Y
yohinomura
Guest
Bonjour le Forum
voici mon problème, je désire effectuer une boucle jusqu'à ce que la cellule soit vide (ou boucler tant que la cellule ne l'est pas) et quelque soit la méthode, il ne boucle que 25 fois.
petite précision, même si les cellules sont vides, il boucle 25 fois.
le second problème, je suis obligé d'écrire: Sheets("PrevSH").Rows(x).Activate car il me met une erreur si je ne met que: Rows(x).Activate
si une personne peut m'expliquer ou je me suis trompé ?
merci
voici mon problème, je désire effectuer une boucle jusqu'à ce que la cellule soit vide (ou boucler tant que la cellule ne l'est pas) et quelque soit la méthode, il ne boucle que 25 fois.
PHP:
Dim y&, z&, x&
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If MsgBox(("Voulez-vous mettre à jours la feuille ?"), vbQuestion + vbYesNo, ("Confirmation")) = vbNo Then Exit Sub
x = 2
y = 3
Sheets("PrevSH").Activate
Do Until Range("A" & x).Value = "" 'ou Do while Range("A" & x).Value <> ""
Sheets("PrevSH").Activate
Sheets("PrevSH").Rows(x).Activate 'et pk Rows(x).Activate ne suffit pas
Selection.Copy
Sheets("PrevTotWagDB").Activate
Rows(y).Cells(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
x = x + 1
y = y + 1
Looppetite précision, même si les cellules sont vides, il boucle 25 fois.
le second problème, je suis obligé d'écrire: Sheets("PrevSH").Rows(x).Activate car il me met une erreur si je ne met que: Rows(x).Activate
si une personne peut m'expliquer ou je me suis trompé ?
merci
Dernière modification par un modérateur: