For each --> incompatibilité de type 13 ??

[Dam178]

Bonjour,

Mon code est simple mais ne fonctionne pas.

Private Sub ComboBox1_Change()

Dim ste As Range

For Each ste In Sheets(2).Range("a3:a100")
If ste.Value = ComboBox1.Value Then
X = Sheets(2).Cells(ste, 1).Value
End If

Next ste

MsgBox X

End Sub

apparement trés simple, quand j'execute mon Userform, il me marque erreur: incompatibilité de type 13
Pour info: les valeurs du range("a3:a100") sont du texte.

Quelqu'un aurait-il une idée ?

Merci

 

[Roland_M]

Re : For each --> incompatibilité de type 13 ??

bonjour

voir avec X$ !

X$ = Sheets(2).Cells(ste, 1).Value

et ici > Cells(ste, 1).Value !!! ste n'est pas une valeur num !

 

[Roland_M]

Re : For each --> incompatibilité de type 13 ??

re

voir comme ceci

Private Sub ComboBox1_Change()

Dim ste As Range, X$

For Each ste In Sheets(2).Range("a3:a100")
If ste.Value = ComboBox1.Value Then
X = Sheets(2).Cells(ste.Row, 1).Value
MsgBox X
End If
Next

End Sub

 

[Dam178]

Re : For each --> incompatibilité de type 13 ??

Merci Roland pour t'as réponse,

j'ai essayé

X$= sheets....

et

msgbox x$

et

x$=....
msgbox x$


mais toujours le meme probleme, une autre idée ?

 

[Dam178]

Re : For each --> incompatibilité de type 13 ??

j'avais pas vu ton message precedent, j'essai

 

[Dam178]

Re : For each --> incompatibilité de type 13 ??

super ça marche, merci !!

 

[Papou-net]

Re : For each --> incompatibilité de type 13 ??

Bonjour Dam178, Roland_L,

@ Dam :

Est-ce la même demande que celle que tu as postée hier à 21h23 et pour laquelle je t'ai proposé une réponse ?

Cordialement.