Ma boucle VBA est-elle correcte?

Résolu/Fermé

fapfapfap - 14 févr. 2012 à 16:44
fapfapfap - 14 févr. 2012 à 17:06

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!

A voir également:

Ma boucle VBA est-elle correcte?
Vérifier si une phrase est correcte - Accueil - Google
Find vba - Astuces et Solutions
Vba attendre 1 seconde ✓ - Forum VB / VBA
Boucle cmd - Forum Programmation

2 réponses

Réponse 1 / 2

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
Modifié par chossette9 le 14/02/2012 à 16:57

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 Sub

Cela 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
14 févr. 2012 à 17:06

ca marche merci beaucoup!

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
14 févr. 2012 à 17:01

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

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
14 févr. 2012 à 17:03

Effectivement michel, je n'avais pas vu.

fapfapfap
14 févr. 2012 à 17:04

désolé.

Discussions similaires

Mon pc s'allume et s'éteint en boucle

"L'indice n'appartient à la sélection" + VBA

Photographie

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA