Les fonctions de bases

Trouver les col et lig d'un tableau

Si une table commence en A1
Taches_tabX0Y0 = "A1"
Taches_tabX = Sheets("taches").Range(Taches_tabX0Y0).End(xlDown).Row
Taches_tabY = Sheets("taches").Range(Taches_tabX0Y0).End(xlToRight).Column
Taches_tabX0Yn = Sheets("taches").Range(Taches_tabX0Y0).End(xlToRight).Address
Taches_tabXnYn = Sheets("taches").Cells(Sheets("taches").Range(Taches_tabX0Y0).End(xlDown).Row, Sheets("taches").Range(Taches_tabX0Y0).End(xlToRight).Column).Address

alors Taches_tabX et Taches_tabY donne la dimenssion de la table.
et Taches_tabX0Yn donne la case la plus à droite et Taches_tabXnYn en bas à droite.

Pour trier

        Set clef = Sheets("taches").Cells(i, j)
        clef = clef.Address()
         Selection.Sort Key1:=Sheets("taches").Range(clef), Order1:=ordre, Key2:=Sheets("taches").Range(clefbis) _
        , Order2:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

Un timer

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Création d'une feuille excel

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
Sheets(Sheets.Count).Name = "taches"

Donne l'indice dans une liste

indice = InStr(listerapport.List(i), "coucou")

Initialisation d'un combobox

Fixe

Dans le contrôle Combobox :

On peut fixer les éléments avec l’attribut RowSource (A2:A6)

Variable

Pour rendre les éléments variables d'une listbox, on peut écrire la procédure suivante :

Private Sub UserForm_Initialize()

Dim Dercell As String

MsgBox Range("A1").End(xlDown)

MsgBox Range("A1").End(xlDown).Address

Dercell = Range("A1").End(xlDown).Address

Dercell = "A1:" & Dercell

MsgBox Dercell

ListBox1.RowSource = Dercell

End Sub