Ma boucle VBA est-elle correcte?
Résolu/Fermé
fapfapfap
-
fapfapfap -
fapfapfap -
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!
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!
A voir également:
- Ma boucle VBA est-elle correcte?
- Vérifier si une phrase est correcte - Accueil - Google
- Excel compter cellule couleur sans vba - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
- Colombe souhaite utiliser cette image comme illustration. quel texte doit-elle ajouter pour attribuer correctement la photographie à son auteur ? - Forum Photofiltre
2 réponses
Bonjour,
Cordialement.
EDIT : j'avais inversé le Do et le Loop ^^
Ce mec la n'était pas une lumière, car il était niais.
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.
fapfapfap
ca marche merci beaucoup!
Doublons incessants depuis ce matin !!!
https://forums.commentcamarche.net/forum/affich-24449858-vba-remplir-une-cellule-sous-condition-loop
https://forums.commentcamarche.net/forum/affich-24449858-vba-remplir-une-cellule-sous-condition-loop