Macro pour ajouter une texte, devant un autre si....

Y

Yaloo

XLDnaute Barbatruc

• 13 Mars 2013

• #2

Re : Macro pour ajouter une texte, devant un autre si....

Bonjour Christian,

Voir avec le fichier ci-joint, pour le moment je n'ai pas regardé à la couleur.

Dis moi si ça convient.

A te relire

Martial

 

Pièces jointes

• InsérerTexteSiCoché V1.xls

  56 KB · Affichages: 36

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 13 Mars 2013

• #3

Re : Macro pour ajouter une texte, devant un autre si....

Re,

Bon cette fois, c'est avec la couleur 😀

A+

Martial

 

Pièces jointes

• InsérerTexteSiCoché V1.1.xls

  55 KB · Affichages: 38

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 13 Mars 2013

• #4

Re : Macro pour ajouter une texte, devant un autre si....

Re, le forum, Yaloo,

Je te remercie infiniment, Yaloo, pour ton boulot.
C'est parfaitement, parfait.

Bien à toi,
Christian

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Mars 2013

• #5

Re : Macro pour ajouter une texte, devant un autre si....

Bonjour Christian, salut Martial,

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, [Q11:Q52]) Is Nothing Then Exit Sub
Dim t As String
Cancel = True
Target = IIf(Target = "ü", "", "ü")
t = Trim(Left(Target(1, -13), InStr(Target(1, -13) & "(", "(") - 1))
Target(1, -13) = t
If Target = "ü" And Target(1, -13) <> 0 And IsDate([C8]) Then
  Target(1, -13) = t & "   (Consommation : " & Format([C8] + 3, "d mmmm yyyy") & ")"
  Target(1, -13).Characters(Len(t) + 4).Font.ColorIndex = 3
End If
End Sub

Testé sous Excel 2010, j'espère qu'il n'y a pas de problème sous Excel 2003...

A+

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 13 Mars 2013

• #6

Re : Macro pour ajouter une texte, devant un autre si....

Salut Job,

J'ai encore du chemin à faire ... 😉

Merci pour cette simplification.

A+

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 14 Mars 2013

• #7

Re : Macro pour ajouter une texte, devant un autre si....

Re, le forum, Yaloo, job75,

Merci job75, pour ta contribution. Je vais appliquer ce code...plus léger...mon fichier est déjà suffisamment assez lourd..lol

Encore un grand merci à vous deux.

Bien amicalement,
Christian

P.S : ok sous excel 2000

 

Dernière édition: 14 Mars 2013

Vote positif 0 Vote négatif