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?