Discussion :

[Loki83]

Bonjour,

Je vous explique mon problème:
J'ai une liste de valeur en colonne.

Je souhaiterai coller un élément à la fin de la liste.
Je pensais donc faire une boucle qui parcourt la liste et qui teste les valeurs. Ainsi, à la première valeur vide elle collerai l'élément.
Une fois le collage effectué, il faudrait que la boucle s'arrete.
On m'a conseillé un "break" où un goto à inclure dans le corps du code de mon "if".
Comment s'utilise "GoTo" ou "break"?
Quel est la synthaxe?

Merci de votre aide!!!

[wilfried_42]

bonjour

je n'aime ni breack ni goto

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
i=1
While range("A" & i)>""
    msgbox Range("A" & i)
    i = i + 1
wend

en Francais
Initialisation de I selon 1ere ligne
Tant que La valeur de la colonne A à la ligne i est > à "" faire le traitement qui suit
Affiche en message la valeur de La cellule A & I
Incrementation de i pour tester la cellule suivante
Retour au debut (While)

[Loki83]

En utilisant ton code, à quel moment je peux effectuer mon collage?

[patbou]

Bonjour,

Ainsi, à la première valeur vide elle collerai l'élément.

à quel moment je peux effectuer mon collage?

Dès que ta boucle trouve une cellule vide ....

[Loki83]

En fait je dois avouer que je n'ai jamais eu l'occasion d'utiliser while en VBA...
Le collage se fait après le Wend?

[wilfried_42]

re:

desolé, je n'avais pas tout compris ta demande

voici un autre option autant de fois plus rapide que tu as de ligne dans ta base
à adapter selon tes feuilles et tes cellules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
dim ligne as long
Ligne = sheets("Bases").range("A65536").end(xlup).row +1
' par copier coller
Sheets("Saisie").range("A1").copy destination:=sheets("Bases").range("A" & ligne)
' en affectation directe
Sheets("Bases").range("A" & ligne) = sheets("Saisie").range("A1")
' copie une ligne complete 
sheets("Saisie").range("A1:E1").copy destination:=Sheets("Bases").range("A" & ligne)

[decondelite]

En fait je dois avouer que je n'ai jamais eu l'occasion d'utiliser while en VBA...
Le collage se fait après le Wend?

Même si la solution que vient de poster wilfried est beaucoup plus rapide, je te répondrai que oui.

Et pour cause: une fois sorti de la boucle ta variable de boucle reste intacte en mémoire et tu peux donc toujours l'exploiter.

Ensuite, je ne connais pas de "break" en VB/VBA: il n'y a que des "Exit" et malheureusement le "Exit While" n'existe pas.