Macro Bt dialogue pour remplir des cellule

[WITER]

Bonjour à tous je recherche une macro lié à un bouton qui me remplirait 2 cellules (une par question) d'une des feuille de mon classeur en fonction de la date que j'entrerais dans la premiere question de la BD.

Pour etre plus clair voici mon fichier en pieces jointes
Merci d'avance

 

[GPLIONEL]

Re : Macro Bt dialogue pour remplir des cellule

Bonjou WITER,

Voilà un exemple de macro que tu peux associer à ton bouton :

Sub Macro1()
x = InputBox("Entrez une date (au format mm/aa)")
x = CDate(1 & "/" & Left(x, 2) & "/" & Right(x, 2))
y = InputBox("Tx Fact Relv")
z = InputBox("Taux Erreur")
Sheets("Résultats RELV").Select
Range("b1").Select
While ActiveCell <> x
ActiveCell.Offset(0, 1).Select
Wend
ActiveCell.Offset(1, 0) = y
ActiveCell.Offset(2, 0) = z
End Sub

 

[WITER]

Re : Macro Bt dialogue pour remplir des cellule

merci GPLIONEL, la boite de dialogue fonctionne pour les questions, mais elle ne me remplit pas les cases dans mon fichier.

Pourrait tu me l adapter a mon fichier en pieces jointe, je suis nul an macro et en vba

merci encore pour ton aide

 

[WITER]

Re : Macro Bt dialogue pour remplir des cellule

ya rien a faire , lolll
meme en modifiant la macro de GPLIONEL , je n'arrive pas a l'adapter a mon fichier.
Elle fonctionne mais ne me recopie pas les donnée s
entrées au question "y" et "z" dans la colonne de la cellule qui correspond a la reponse de la question "x"

Oullla moi meme jai du mal a me suivre, lolllll
Quelqu'un pourrait m aider sur le forum
svp , merci d avance

 

[GPLIONEL]

Re : Macro Bt dialogue pour remplir des cellule

Je ne comprends pas, chez moi tout marche.
Ci-joint le fichier.

 

[GPLIONEL]

Re : Macro Bt dialogue pour remplir des cellule

J'ai fais une petite correction dans la macro au cas ou la date saisie n'existe pas dans ton classeur.

 

[WITER]

Re : Macro Bt dialogue pour remplir des cellule

C cool GPLIONEL, le fichier fonctionne tres bien

Merci encore pour ton aide