[VB Excel] Utilisation boucle DO WHILE

Bonjour,

Je tente de parcourir dans un fichier excel toute les colones qui commencent par "picto". Il y a des colones "pictoX" et "pictoX-text" ou X peut aller de 1 à 10 mais en fonction du fichier il peut y en avoir plus ou moins.

Je travaille donc sur une macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub test()   Dim B As Integer B = NumCol("picto1") Do MsgBox B MsgBox Cells(1, B) B = B + 1 Loop While Cells(1, B) Like "picto*" MsgBox "Done"   End Sub     // c est une fonction qui me permet de retrouver mon numéro de colonne en fonction de son contenu   Public Function NumCol(Texte As String) As Integer On Error GoTo ErrNumCol NumCol = Rows(1).Find(Texte, LookIn:=xlFormulas, lookat:=xlWhole, SearchFormat:=False).Column Exit Function ErrNumCol: NumCol = 0 End Function

---

malheuresement ma boucle se stopppe après le premier passage comme si mon loop while etait faux.
j'ai tenté avec
Loop While Cells(1, B).value Like "picto*"
sans succès...

Quelqu'una une idée? je fait quoi de travers?

Bonjour,

Ta boucle va s'arrêter dès qu'elle passe sur une cellule ne commençant pas par "picto".
Si tu as des colonnes du genre "picto1" / "xxxx" / "picto2" / "xxxx" / "picto3", la boucle s'arrêtera après "picto1".

Je ferais comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim B As Integer, x As Integer   B = NumCol("picto1")   For x = B To Cells(1, Columns.Count).End(xlToLeft).Column If Left(Cells(1, x), 5) = "picto" Then 'ce qu'il faut faire quand la cellule comporte picto... End If Next   End Sub

---

Bonjour,

Cela vient peut-être du fait que l'opérateur like tient compte de la casse (par défaut, Option compare Binary)

Commence le module par :

Code:

---

Option compare Text

---

Merci Fring!
ta fonction fonctionne parfaitement :)
Bonne fin de journée.

Merci aussi à Patrice740 ^_^