Un débutant qui a besoin d'aide!

[keew182]

Bonjour,

je suis un peu novice dans le VB et j'ai un petit problème, je vous explique en espérant être le plus clair possible.

J'ai crée un bouton que nous appellerons "crayon" et lorsque je clique sur "crayon", je veux que le mot "crayon" s'écrive dans une cellule d'un tableau qui est en fait un récapitulatif d'une commande. Mon problème est que j'ai beaucoup de boutons et que je ne sais pas comment faire pour que le mot assigné au bouton s'inscrive dans la cellule suivante si il y a déjà un mot dans la cellule précédente et donc ne l'écrase pas.

Pour l'instant le code mon bouton est :

Range("E6").Select
ActiveCell.FormulaR1C1 = "Crayon"
End Sub



Merci pour notre aide préciseuse 😉

A bientôt

 

[Bebere]

Re : Un débutant qui a besoin d'aide!

bonjour Keew

Dim L as Integer'déclare la variable L

'L=index de ligne de la dernière cellule pleine,+1 la cellule suivante est vide
L=range("E65536").End(Xlup).Row+1
Range("E" & L).Value = "Crayon"
'sans variable
Range("E" & Range("E65536").End(Xlup).Row+1).Value = "Crayon"
End Sub

à bientôt

 

[christ-94]

Re : Un débutant qui a besoin d'aide!

salut

Sub Macro2()

DerLigne = Sheets(1).Range("d65536").End(xlUp).Row ' calcul de la derniere ligne colonne d

    Range("A1").Select 'copie du mot en A1
    Selection.Copy
    ActiveSheet.Paste
    Range("d" & DerLigne + 1).Select 'possitionne le curseur sur la derniere ligne colonne d
       ActiveSheet.Paste ' colle la cellule A1
End Sub

Bon courage

 

[keew182]

Re : Un débutant qui a besoin d'aide!

Merci les gars, c'est exactement ce que je voulais et en plus réponses super rapide, longue vie à ce super forum!!!