Re : incorporer le texte d'un bouton dans une macro VBA
Merci Pierrejean,
cela me va très bien :
Sub Clavier()
ActiveSheet.Shapes.Range(Array(Application.Caller)).Select
Range("a1") = Selection.Characters.Text
End Sub
Une question supplémentaire cependant :
maintenant, la cellule destination n'est plus systématiquement A1.
- disons que la cellule destination par défaut est b2, puis lorsqu'on active de nouveau cette macro :
- si b2 contient déjà du texte, alors la cellule destination est c2
- si b2 et c2 contiennent déjà du texte, alors la cellule destination est d2
- etc...
Cela revient à identifier la première cellule vide parmi b2 et les cellules à droite de b2.
Autrement dit, je souhaterais incorporer dans la macro "Clavier" ci-dessus l'équivalent de :
DerLgn = .Range("b" & Rows.Count).End(xlUp).Row + 1
... mais à l'orizontal (au lieu de vertical).
J'espère être claire
Merci pour votre aide
Nicole