Discussion :

[barbiturix]

Bonjour,

lorsque j'exécute le code ci dessous, j'obtiens un message d'erreur

Code :

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

1
2
3
4
5
6
7
8
 
        If Range("H1").Value Like "*,*" Then
             H1 = Left(Range("H1"), InStr(0, Range("H1"), ",") - 1)
             H1bis = Right(Range("H1"), Len(Range("H1")) - InStr(0, Range("H1"), ","))
        Else
             H1 = Range("H1")
             H1bis = ""
        End If

c'est surement une bêtise mais je n'arrive pas à mètre la main dessus,
Je suis preneur d'n coup de pouce sur ce sujet

[gerald2545]

Bonsoir,
Pour identifier la ligne en erreur, tu peux insérer un point d'arrêt (clic dans la marge à gauche) puis tu fais du debug pas à pas (ctrl+F8)

A+

[barbiturix]

Bonsoir erald2545,

merci pour ce coup de pouce, c'est désormais ok,
le point n'était pas dans le test et condition
mais dans InStr(0, Range("H1"), ","),
le 0 n'est pas une valeur possible ,
il faut écrire InStr(1, Range("H1"), ",")

bonne soirée