C
Cédric
Guest
Bonjour au forum, j'aimerai que la case soit mise en majuscule directement, voici le code que j'ai essayé :
entreprise = InputBox("Saisissez le nom de l'entreprise que vous avez choisi :", "Entreprise")
Target.Value = UCase(Target.Value)
Sheets("Données").Range("B16") = entreprise
Il y a une erreur concernant cette ligne : Target.Value = UCase(Target.Value)
Quelqu'un aurait-il une solution s'il vous plait ??
Merci bcp à vous tous.
entreprise = InputBox("Saisissez le nom de l'entreprise que vous avez choisi :", "Entreprise")
Target.Value = UCase(Target.Value)
Sheets("Données").Range("B16") = entreprise
Il y a une erreur concernant cette ligne : Target.Value = UCase(Target.Value)
Quelqu'un aurait-il une solution s'il vous plait ??
Merci bcp à vous tous.