Discussion :

[sergio_gr66]

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.

[ucfoutu]

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 :

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

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

[Gorfael]

Salut sergio_gr66 et le forum

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 :

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

Range("Volume").Row

Ou tu recherches la cellule contenant le mot Volume ?

Code :

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

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 :

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

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+