Bonjour,
lorsque j'exécute le code ci dessous, j'obtiens un message d'erreur
c'est surement une bêtise mais je n'arrive pas à mètre la main dessus,
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
Je suis preneur d'n coup de pouce sur ce sujet
Partager