ma boucle VBA est-elle correcte? Résolu/Fermé

Question

Bonjour, 


Pouvez m'aider à corriger ma boucle svp? Je n'y arrive pas :/
Le but est d'écrire dans la cellule A(i) tant que la cellule B(i) n'est pas vide


    Dim i As Integer
    i = 1
    Do
    With Cells(i, B)
    If Not IsEmpty(i, B) Then
    Cells(i, A) = ("1 - A qualifier")
    Var i = i + 1
    End If
    Loop Until IsEmpty(i, B)
    
End Sub



merci pour votre aide!

chossette9 · Answer

Bonjour,  

Sub boucle() 

Dim i As Integer 
i = 1 
Do Until IsEmpty(Cells(i,"B")) 
Cells(i, "A") = "1- A qualifier" 
i = i + 1 
Loop 

End SubCela me semblerait plus correct, mais je n'ai pas testé. 

Cordialement. 

EDIT : j'avais inversé le Do et le Loop ^^
Ce mec la n'était pas une lumière, car il était niais.

michel_m · Answer

Doublons incessants depuis ce matin !!!
https://forums.commentcamarche.net/forum/affich-24449858-vba-remplir-une-cellule-sous-condition-loop

Ma boucle VBA est-elle correcte?

2 réponses

Discussions similaires

Newsletters