Discussion :

[CaraLePoke]

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 :

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
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?

[fring]

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 :

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

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

[Patrice740]

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 :

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

Option compare Text

[CaraLePoke]

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

Merci aussi à Patrice740 ^_^