Macro excel insérer plsuieurs lettres

[david45000]

Bonjour,

Je souhaiterais crée un macro qui peux m'insérer 3 lettres dans des cases différentes dans excel.

Exemple:

"T" dans une case, N dans une autre case à côté du "T" et une 3ème lettre "E" à côté de la lette "N", le tout sur la même ligne.

T N E

Merci.

 

[Dull]

Re : Macro excel insérer plsuieurs lettres

Salut David45000, le Forum

A tester avec le Double Click si j'ai bien compris

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target = "T"
Target.Offset(, 1) = "N"
Target.Offset(, 2) = "E"
End Sub

Bonne Journée

 

[david45000]

Re : Macro excel insérer plsuieurs lettres

Merci de ta réponse rapide, mais je n'arrive pas à utiliser le macro sur un bouton... peux-tu me dire comment faire.

 

[Dull]

Re : Macro excel insérer plsuieurs lettres

Re David

Private Sub CommandButton1_Click()
ActiveCell = "T"
ActiveCell.Offset(, 1) = "N"
ActiveCell.Offset(, 2) = "E"
End Sub

Bonne Journée

 

[david45000]

Re : Macro excel insérer plsuieurs lettres

Peut-être que je suis bête mais je n'arrive pas à le mettre dans un macro...

 

[Dull]

Re : Macro excel insérer plsuieurs lettres

Re,

Essaye ce fichier 🙂

Bonne journée

 

[david45000]

Re : Macro excel insérer plsuieurs lettres

Re,

Essaye ce fichier 🙂

Bonne journée

Merci beaucoup....

 

[TempusFugit]

Re : Macro excel insérer plsuieurs lettres

Bonjour Mesdames, Messieurs

Une autre approche

Sub SubSub()
ActiveCell.Resize(, 3) = [{"T","N","E"}]
End Sub

Aurevoir, Mesdames, Messieurs