Voilà j'aimerai faire une petite macro dans excel qui me permettrait de rentrer des valeurs dans une cellule en tapant sur des boutons.
exemple : je lance ma macro : un petit champ apparait qui me présente 4 boutons nommés 1, 2, 3 et "ok"  
selon si je clik sur 1, 2 ou 3, la cellule "a1" de la feuille sur laquelle je suis prend la valeur 1, 2 ou 3!
En clikant sur "ok" je ferme la macro.
 
Je sais ça va péter loin ça fait 1 heure que je patauge avec des tas de bouquins et j'arrive pas!  
le code je le comprend mais là où je perds pied c'est entre les userform, lesmodules, les feuilles, les procédures ...qui lance quoi? comment les articuler, les enregistrer, les retrouver ...pfff !  
Si une ame charitable pouvait me dire calmement comment procéder... en détail comme a un enfant... avec des mots simples...
soyez indulgent, vous avez du passer par là!
merci

bonjour,
Quelques explications : ici
Les mots y sont simples, mais chaque mot de chaque ligne est important.  
Bon courage !

Merci galopin mais je vois pas trop le rapport...  
J'ai regardé et j'ai pas compris, ça n'explique pas comment il faut que je procède pour mon problème.
Si quelqu'un pouvait m'expliquer du style :
"-ouvre excel puis un nouveau document,
-renomme ton classeur X ta feuille Y,
-clique sur vb editor  
-clik sur explorateur de projet
-ajoute 1 userform a tel endroit...etc..tu sauvegarde tel truc.."
 
Ben là je comprendrais...
Etant pourtant programmeur en C, en actionscript etc..je n'ai jamais vu un truc aussi confus que cette interface excel/vba!!
J'ai pourtant des tas de tutoriel, de doc...IMPIPABLE !!  
 
HELP Please!!!  
 
-

voilà y a rien de plus simple, en esperant avoir repondu à ta demande
 
Private Sub CommandButton1_Click()
Sheets("feuil1" ).Range("a1" ) = "1"
End Sub
 
Private Sub CommandButton2_Click()
Sheets("feuil1" ).Range("a1" ) = "2"
End Sub
 
Private Sub CommandButton3_Click()
Sheets("feuil1" ).Range("a1" ) = "3"
End Sub
 
Private Sub CommandButton4_Click()
Unload UserForm1
End Sub
Sub ouvrir()
'
UserForm1.Show
'
End Sub

voilà y a rien de plus simple, en esperant avoir repondu à ta demande
 
Private Sub CommandButton1_Click()
Sheets("feuil1" ).Range("a1" ) = "1"
End Sub
 
donne moi ton email je t'enverrai le programme
captainyoyo25@free.fr
 
Private Sub CommandButton2_Click()
Sheets("feuil1" ).Range("a1" ) = "2"
End Sub
 
Private Sub CommandButton3_Click()
Sheets("feuil1" ).Range("a1" ) = "3"
End Sub
 
Private Sub CommandButton4_Click()
Unload UserForm1
End Sub
Sub ouvrir()
'
UserForm1.Show
'
End Sub