remplir a partir de la 1ere cellule vide : Résolu/Fermé

Question

Bonjour, 

J'aurai besoin de votre aide. Je vous explique mon problème. 

J'ai 26 boutons correspondant a chaque lettre de l'alphabet.

Ma zone a remplir se trouve en : A5:L5

Je souhaiterais qu'en cliquant sur un des 26 boutons, la lettre correspondante aille se mettre dans la première case vide de la plage : A5:L5.

Ensuite, le souhaiterais que chaque bouton sur lequel je clique remplisse les cases vierges suivante dans l'ordre.


Est-ce possible ?
Merci d'avance à tout le monde :)

Mike-31 · Answer

Bonsoir,

[L5].End(xlToLeft)(1, 2).Select

ou 
Range("L5").End(xlToLeft)(1, 2).Select
 ou encore
Range("L5").End(xlToLeft).Offset(0, 1).Select

ensuite il faudrait savoir comment tu as renseigné ton bouton, si tu as mis A sur le bouton par exemple
 
Private Sub CommandButton1_Click()
Range("L5").End(xlToLeft).Offset(0, 1) = CommandButton1.Caption
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

cyrga11 · Answer

Je regarderais ça en rentrant. En tous cas merci beaucoup. Bonne soirée. Je te dirait si cela fonctionne.

cyrga11 · Answer

Bonsoir Mike-31

J'ai réussi grâce à ta dernière ligne de code. 

Sub CommandButtonA3_Click()
Range("L5").End(xlToLeft).Offset(0, 1) = "A"
End Sub

Cela fonctionne parfaitement, merci à toi.

Remplir a partir de la 1ere cellule vide :

3 réponses

Discussions similaires