Intput box

Bonjour

Je souhaite pouvoir créer une macro qui lorsque j'active une feuille deux inputbox apparaissent et leur contenu sera copier dans des cellules. Voilà le texte que j'essaie :

Sub client()

If Sheets("client").Activate

then

Dim resultat As String

resultat = InputBox("Nom & Prénom du/des client(s)", "Titre") '

If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat

Range("a4").Select = resultat

and

Dim resultat As String

resultat = InputBox("No de client)", "Titre") '

If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat

Range("a6").Select = resultat

End If

End Sub

Je voudrais également dire que si la cellule a4 n'est pas vide alors pas besoin d'afficher la 1ère inputbox à l'activiation de la page. Idem pour la 2ème inputbox

D'avance merci pour votre précieuse aide

Bonjour

un fichier test serait utile plutôt que l’écriture des lignes de codes dans le corps du post

fred

Bonjour,

Tu faciliterais grandement les contributeurs ... si tu joignais ton fichier ...

Accessoirement, pour insérer du code ... tu as des balises Code ...ce qui donne à l'affichage

pour insérer le code... 

Oui désolé

voilà le fichier

Merci

Re,

Merci pour le fichier ...

Dis-toi bien que c'est absolument rien contre toi ... c'est que cela fait gagner un temps fou à tout le monde ...

Re voici donc une proposition

problème dans ton fichier test tu n'as qu'un seul onglet donc pour l'activé il faut au moins deux onglets.

deuxième problème tu test si il y a quelque chose dans la cellule A6 sinon tu mets la saisie de l'input box hors dans ton fichier a dispo il y a déjà quelque d'écrit .... donc a adapter en conséquences

fred

Private Sub Worksheet_Activate()
Dim resultat As String

If [A4] = "" Then
    resultat = InputBox("Nom & Prénom du/des client(s)", "Titre") '
    'Si la valeur est différente de "" on affiche le résultat
    If resultat <> "" Then [A4] = resultat
End If

If [A6] = "" Then
    resultat = InputBox("No de client)", "Titre") '
    'Si la valeur est différente de "" on affiche le résultat
    If resultat <> "" Then [A6] = resultat
End If
End Sub

C'est parfait

Un très grand merci

Re,

Bien vu Fred ...

Comme quoi ... 10 minutes après le fichier joint ... le problème est déjà réglé ...

Salut James

bonne journée

fred

Encore une petite question

Y'a-t-il un moyen de changer le visuel de l'Inputbox ?

merci

Bah là pour le coup faut passé par un userform...

fred

Oula il faut que je revois mes classiques

Je ne sais plus les faire depuis le temps. mais merci