Besoin d'aide pour InputBox

Résolu
poufab Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -  
poufab Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aurai besoin, d'un info, j'ai trouver la macro pour faire une inputBox, mais le probléme, je ne trouve pas comment faire, pour que sa passe de ligne en ligne.
Voici la macro de base :

sub essai_inputbox ()
nom = inputbox ("Quel est votre nom ?", "Votre nom")
range("A1").value = nom
end sub


Je voudrai que le prochain nom aille en A2, le prochain en A3 et ainsi de suite.
J'ai magouillé divers truc mais impossible de trouvé la solution.

Merci beaucoup pour votre aide.

2 réponses

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
Bonjour,
Essayez ceci :
sub essai_inputbox () 
nom = inputbox ("Quel est votre nom ?", "Votre nom") 
range("A65536").End(xlUp).Offset(1,0).value = nom 
end sub 

0
poufab Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   7
 
Impeccable Merci....

Bonne continuation.
0