Boucle for

Bonjour,

Comme indiqué dans mon fichier en pièce jointe lorsque je lance ma macro celle-ci fonctionne pour la ligne 2 de mon fichier ( première ligne d'utilisation de la macro)

Or je souhaite faire une boucle pour que le code qui s'applique sur la ligne 2 s'applique de la même façon pour les 1000 prochaines ligne de mon fichier excel.

De plus j'aimerais que lorsque je clique sur le bouton refaire mesure de mon Userform que le fichier reste sur la ligne en question… car à l'heure actuelle j'ai un problème avec cette partie du code.

Merci d'avance de votre aide.

Bonjour Papi, bonjour le forum,

Pas sûr d'avoir bien compris... Essaie comme ça :

Sub exemple()
Dim DL As Integer
DL = Cells(Application.Rows.Count, "A").End(xlUp).Row
For I = 2 To DL
    If Cells(I, "A") >= 6.3 And Cells(I, "A") <= 6.6 Then
        Cells(I, "A").Interior.ColorIndex = 4
        'Cells(I+1, "A").Select 'pas très conseillé
    Else
        Cells(I, "A").Interior.ColorIndex = 3
        Cells(1, Application.Columns.Count).Value = I 'on stocke la ligne dans la dernière colonne
        UserForm1.Show
    End If
Next I
End Sub

et

Private Sub Workbook_Open()
ActiveSheet.Cells(ActiveSheet.Cells(1, Application.Columns.Count).Value, 1).Select
End Sub

Bonjour et merci !

Fonctionne parfaitement juste une petite chose ou deux que j'adapte plus précisément mais le gros du travail est fait

Merci je cloture le sujet