Besoin d'aide pour InputBox

Résolu
poufab Messages postés 32 Statut Membre -  
poufab Messages postés 32 Statut Membre -
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 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 765
 
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 32 Statut Membre 7
 
Impeccable Merci....

Bonne continuation.
0