Macro pour remplir la première cellule vide en cliquant sur un bouton

[hadswimmer]

Bonjour,

Après avoir parcouru pas mal de fils de discussion sur ce sujet, je n'ai toujours pas réussi à résoudre mon problème :

Je veux réaliser un fichier avec un bouton sur une première feuille (qui ouvre des InputBox pour rentrer des données) qui vont se mettre automatiquement sur une DB dans une feuille 2. C'est là qu'est l'os : lorsque je fais le premier clic, cela me permet de renter les données dans les premières cellules. Mais si je ré-appuye dessus, il va me copier sur les cellules déjà remplie

J'aimerais donc que lorsque je clique sur le bouton et qu'il ouvre les InputBox, que les nouvelles données s'inscrivent dans la première cellule vide à droite...Et je suis coincééééé

En annexe un fichier-exemple très simplifié pour illustrer mon problème.

Merci d'avance,

 

[CBernardT]

Re : Macro pour remplir la première cellule vide en cliquant sur un bouton

Bonsoir hadswimmer et le forum,

Bienvenue sur le forum XLD

Essaye cette syntaxe pour la macro MesPoints :
Sub MesPoints()
Dim C As Long
With Sheets("DB_Points")
C = .Range("XFD2").End(xlToLeft).Column
.Cells(2, C + 1) = InputBox("Introduisez le titre du test :", "Titre du test")
.Cells(4, C + 1) = InputBox("Introduisez le max du test :", "Max du test")
End With
End Sub

 

[hadswimmer]

Re : Macro pour remplir la première cellule vide en cliquant sur un bouton

Bernard,

Merci, cela fonctionne parfaitement dans le fichier que j'ai mis en ligne.
J'essaie donc maintenant d'extrapoler dans mon fichier complet mais cela ne donne pas le résultat voulu...

Je met en annexe mon fichier complet. Sur la page Accueil c'est le bouton "Créer SEcouter" auquel je voudrais affecter ma macro.

Merci d'avance!

Bàv,

 

[CBernardT]

Re : Macro pour remplir la première cellule vide en cliquant sur un bouton

Re,

J'ai supposé que la feuille Intro est la feuille Accueil...

 

[hadswimmer]

Re : Macro pour remplir la première cellule vide en cliquant sur un bouton

Bernard,

merci de prendre en considération ma problématique avec tant d'attention.

Malheureusement, le script que vous me proposez ne fonctionne pas. Le système réclame un End Sub (pour le CommandButton).
Après avoir décypté cela, je ne vois pas ce qu'il manque...

Bàv,

hadswimmer

 

[hadswimmer]

Re : Macro pour remplir la première cellule vide en cliquant sur un bouton

Re-bonjour,

Voilà qu'en re-trifouillant des forums et autres, j'ai solutionné le end-sub du Command_Button (via fonction call).
Bon mnt, le bouton ne produit rien du tout sur mon fichier...

En annexe, le fichier travaillé par Bernard que j'ai adapté.

Si une bonne âme se sentait prête à me résoudre cela

Merci d'avance,

Bàv,

 

[CBernardT]

Re : Macro pour remplir la première cellule vide en cliquant sur un bouton

Bonjour à tous,

Réponse précédente un peu rapide ! Correction apportée.

 

[hadswimmer]

Re : Macro pour remplir la première cellule vide en cliquant sur un bouton

C'est EXCELLENT

Un grand merci à toi et au forum.

Bonne journée,

hadswimmer