Aide avec le command WHILE

Bonjour a tous et à toutes.


J'ai besoin d'ide avec le command WHILE, je veux savoir si quelqu'un peut me montrer comme il faut l'utiliser.
J'ai besoin de chercher une cellule qui s'appelle "Volume" et je veux le chercher avec un cycle.
Je veux que le cycle continue seulement si la cellule ne s'appelle pas "Volume" et que il s'arrete quand elle est trouvé.

Je vous vais ajouter plus details:
quand je trouve la colonne "Volume" je veux copier les donnes dans cette clonne jusqu'à il n'y rien, mais il peut être despuis 1 donne jusqu'à 500.
J'ai besoin trouver la cellule pour trouver la colonne et apres je veux copier les donnes.

Merci pour votre aide.


:lahola:
:help:

Bonjour,

Pourquoi t'y pends-tu ainsi et non en sens inverse, à savoir : identifier où se trouve cette cellule nommée, puis décider de la plage de traitement à effectuer, en fonction de cette adresse ?

Code:

---

1 2	Application.Goto Reference:="Volume" MsgBox ActiveCell.Row & " " & ActiveCell.Column & " " & ActiveCell.Address

---

Salut sergio_gr66 et le forum

Citation:

---

J'ai besoin de chercher une cellule qui s'appelle "Volume"

---

Va falloir être plus rigoureux : Tu recherches la ligne de la cellule nommée "Volume" ?

Code:

---

Range("Volume").Row

---

Ou tu recherches la cellule contenant le mot Volume ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test() Dim X As Long X = 1 While Range("A" & X) <> "Volume" X = X + 1 Wend MsgBox "1 - ligne " & X X = 1 Do Until Range("A" & X) = "Volume" X = X + 1 Loop MsgBox "2 - ligne " & X   For X = 1 To Range("A65536").End(xlUp).Row If Range("A" & X) = "Volume" Then Exit For Next X MsgBox "3 - ligne " & X End Sub

---

Trois boucles l'avantage de la dernière, c'est que tu donnes une limite (dernière ligne écrite en A), alors que les deux premières te donneront une erreur si elles ne trouvent pas de correspondance, mais après avoir parcouru les 65536 lignes de ta colonne.

Mais utiliser la méthode Find est plus rapide

Code:

---

1 2 3 4 5

Sub test() Dim Cel As Range Set Cel = Range("A:A").Find("Volume") If Not Cel Is Nothing Then MsgBox "Ligne " & Cel.Row End Sub

---

A+