XL 2019 Créer une boucle

Dravol · 6 Janvier 2021

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 · 7 Janvier 2021

Zut, mauvaise manip

VB:

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

Rouge · 6 Janvier 2021

Bonsoir,

Essayez ceci

VB:

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

Code:

Cdlt

Dravol · 7 Janvier 2021

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

Cdt

Rouge · 7 Janvier 2021

Zut, mauvaise manip

VB:

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 · 7 Janvier 2021

Merci bien je teste ça.

Drav

XL 2019 Créer une boucle

Dravol

XLDnaute Junior

Rouge

Rouge

XLDnaute Impliqué

Dravol

XLDnaute Junior

Rouge

XLDnaute Impliqué

Dravol

XLDnaute Junior

Discussions similaires