Sub test() [COLOR=red]procédure test[/COLOR]
Dim m As String [COLOR=red]déclaration de la variable m en texte[/COLOR]
Dim i As Integer [COLOR=#ff0000]déclaration de la variable i en entier [/COLOR]
Dim mg As String [COLOR=#ff0000]déclaration de la variable mg en texte[/COLOR]
Dim dercol As Integer [COLOR=#ff0000]déclaration de la variable dercol en entier [/COLOR]
dercol = Sheets(1).Range("IV1").End(xlToLeft).Column
[COLOR=red]je donne à [/COLOR][COLOR=red]dercol la valeur de la première colonne trouvée non vide en partant de la colonne IV1 par la gauche[/COLOR]
[COLOR=#ff0000]si vous changez les noms de ligne il faut aussi changer le range[/COLOR]
[COLOR=#ff0000]ex: si les noms commencent en ligne 4 il faut mettre range(IV4)[/COLOR]
For i = 2 To dercol
m = Sheets(1).Cells(1, i).Value & vbTab & " : " & vbTab & Sheets(1).Cells(14, i).Value
mg = mg & vbLf & m
Next
[COLOR=red]boucle for donnant à i la valeur commencant à 2 jusqu' au nombre trouvé dans dercol[/COLOR]
[COLOR=#ff0000]je donne à "m" la valeur de la cellule (ligne 1, colonne i) de la feuille 1 [/COLOR]
[COLOR=#ff0000]ex : pour la première boucle m= [b1][/COLOR]
[COLOR=#ff0000]puis je mets une tabulation vbTab[/COLOR]
[COLOR=#ff0000]puis les deux points plus les espaces[/COLOR]
[COLOR=#ff0000]puis encore une tabulation[/COLOR]
[COLOR=#ff0000]enfin la valeur de la cellule(ligne 14, colonne i)[/COLOR]
[COLOR=#ff0000]ex : pour la première boucle [[b14][/COLOR]
[COLOR=#ff0000][I][U]donc si vous voulez commencer en [b4] il faudra mettre cells(4,i) puis cells(14,i)[/U][/I][/COLOR]
[COLOR=blue]tout ceci est dans la variable "m" à la première boucle[/COLOR]
[COLOR=#0000ff]je charge donc "mg" de cette valeur et je lui ajoute un saut de ligne vbLF[/COLOR]
[COLOR=#0000ff]puis à la second boucle (i=3) "m" prend une autre valeur que j'ajoute à mg[/COLOR]
[COLOR=#0000ff]ainsi de suite jusqu' a arriver à la valeur de dercol[/COLOR]
[COLOR=#0000ff]la boucle for terminée j'affiche le résultat dans une boite de message avec un bouton "OK" et un titre[/COLOR]
msg = MsgBox(mg, vbOKOnly, "total des heures supplémentaires")
End Sub