Macro excel insérer plsuieurs lettres

Dull

XLDnaute Barbatruc

• 16 Septembre 2011

• #2

Re : Macro excel insérer plsuieurs lettres

Salut David45000, le Forum

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

Code:

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

 

Vote positif 0 Vote négatif

D

david45000

Guest

• 16 Septembre 2011

• #3

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.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 16 Septembre 2011

• #4

Re : Macro excel insérer plsuieurs lettres

Re David

Code:

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

Bonne Journée

 

Vote positif 0 Vote négatif

D

david45000

Guest

• 16 Septembre 2011

• #5

Re : Macro excel insérer plsuieurs lettres

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 16 Septembre 2011

• #6

Re : Macro excel insérer plsuieurs lettres

Re,

Essaye ce fichier 🙂

Bonne journée

 

Pièces jointes

• David45000.xls

  23 KB · Affichages: 41
• David45000.xls

  23 KB · Affichages: 45
• David45000.xls

  23 KB · Affichages: 40

Vote positif 0 Vote négatif

D

david45000

Guest

• 16 Septembre 2011

• #7

Re : Macro excel insérer plsuieurs lettres

Dull à dit:

Re,

Essaye ce fichier 🙂

Bonne journée

Cliquez pour agrandir...

Merci beaucoup....

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 22 Septembre 2011

• #8

Re : Macro excel insérer plsuieurs lettres

Bonjour Mesdames, Messieurs

Une autre approche

VB:

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

Aurevoir, Mesdames, Messieurs

 

Vote positif 0 Vote négatif