Prob VBA / boucle
Bonjour,
Je suis débutant et j''ai un souci avec une macro.
J'ai introduit la commande do until.. Mais la macro tourne sans fin.
Quelqu'un pourrait-il me dire ce qui ne pas pas. Merci.
Bien cordialement
Sub insertion_fournisseurs()
Do Until ActiveCell.Value = " "
Dim vNom
vNom = ActiveCell.Value
Sheets("Nouveau fournisseur").Select
Range("A2").Select
ActiveCell.Value = vNom
Sheets("liste_fournisseurs").Select
Selection.EntireRow.Insert
ActiveCell.Value = vNom
Sheets("Nouveau fournisseur").Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub
bonsoir,
J'ai pas du tout testé, mais avec tout ces ActiveCell...
A mon avis tu dois commencer la boucle sur Sheets("liste_fournisseurs")
et tu la termine sur Sheets("Nouveau fournisseur")
donc ton Do Until ActiveCell doit pas trop y retrouver son compte...
A+