Code VBA

M12

XLDnaute Accro

• 27 Octobre 2017

• #2

Bonjour,

A tester

 

Pièces jointes

• Code VBA.xls

  42 KB · Affichages: 28

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 27 Octobre 2017

• #3

Hello
avec ce code

VB:

Private Sub TextBox69_Change()
Application.EnableEvents = False
TextBox69 = Format(TextBox69, """Soit une moyenne de""  # ##0 Km parcourus cette semaine ")
Application.EnableEvents = True
End Sub

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 27 Octobre 2017

• #4

Bonjour M12,
Super ton code, mais j'ai oublier de dire que l'USF sert pour plusieurs feuilles.
Merci
Marcelio

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 27 Octobre 2017

• #5

Merci messieurs,
Je viens de voir le code de vgendron, merci pour ce code cela fonctionne pour toutes les feuilles.
Bonne fin d'après midi à M12, vgendron et le Forum.
Et encore merci à tous les 2
Marcelio

 

Vote positif 0 Vote négatif