XL 2019 Créer une boucle

[Dravol]

Bonjour à tous,

Je souhaiterais créer une boucle avec le code ci-dessous afin de répéter le renseignement de [R24:R43,R45:R48] avec [L24:L43,L45:L48].

càd Si R25 non vide, documenter L25
Si R26 non vide, documenter L26
.....
.....

Voici mon code qui fonctionne bien sur ma ligne 24 :

If CStr([r24]) <> "" And Intersect(ActiveCell, [l24]) Is Nothing Then _
If CStr([l24]) = "" Then [l24].Select: MsgBox "Renseignez le défaut dans votre commentaire"
End Sub

Au plaisir ^^

Drav.

 

[Rouge]

Bonsoir,

Essayez ceci

Sub Boucle()
    For i = 1 To 4
        Cell_1 = Choose(i, "R24", "R43", "R45", "R48")
        Cell_2 = Choose(i, "L24", "L43", "L45", "L48")
        If Range(Cell_1).Value <> "" And Intersect(ActiveCell, Range(Cell_2)) Is Nothing Then
            'Partie à  traiter
        ElseIf Range(Cell_1).Value = "" Then
            Range(Cell_2).Select:
            MsgBox "Renseignez le défaut dans votre commentaire"
        End If
    Next i
End Sub

ou plus simplement encore

Cdlt

 

[Dravol]

Bonjour Rouge
Vous mettez "ou plus simplement encore" mais je ne vois pas le code ^^

Cdt

 

[Rouge]

Zut, mauvaise manip

Sub Boucle()
    For i = 1 To 4
        Lig= Choose(i, "24", "43", "45", "48")
        If Range("R" & Lig).Value <> "" And Intersect(ActiveCell, Range("L" & Lig)) Is Nothing Then
            'Partie à traiter
        ElseIf Range("R" & Lig).Value = "" Then
            Range("L" & Lig).Select:
            MsgBox "Renseignez le défaut dans votre commentaire"
        End If
    Next i
End Sub

 

[Dravol]

Merci bien je teste ça.

Drav