Macro

Le
pb
Bonjour,
J'ai cette macro
Sub TXA2()
[e9]
If [e9] = "Vrai" Then
[c8].Value = 0.08
End If
[e11]
If [e11] = "Vrai" Then
[c8].Value = 0.1
End If
[e13]
If [e13] = "Vrai" Then
[c8].Value = 0.12
End If
[e15]
If [e15] = "Vrai" Then
[c8].Value = 0.14
End If
[e17]
If [e17] = "Vrai" Then
[c8].Value = 0.15
End If
End Sub
et je voudrais l'appeler à chaque changement de valeur en C18.
Je ne toruve pas
Merci
Pascal
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #19806601
bonjour Pascal,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, [c18])
If Not isect Is Nothing Then
If [e9] = "Vrai" Then [c8].Value = 0.08
If [e11] = "Vrai" Then [c8].Value = 0.1
If [e13] = "Vrai" Then [c8].Value = 0.12
If [e15] = "Vrai" Then [c8].Value = 0.14
If [e17] = "Vrai" Then [c8].Value = 0.15
End If
End Sub

isabelle

pb a écrit :
Bonjour,
J'ai cette macro
Sub TXA2()
[e9]
If [e9] = "Vrai" Then
[c8].Value = 0.08
End If
[e11]
If [e11] = "Vrai" Then
[c8].Value = 0.1
End If
[e13]
If [e13] = "Vrai" Then
[c8].Value = 0.12
End If
[e15]
If [e15] = "Vrai" Then
[c8].Value = 0.14
End If
[e17]
If [e17] = "Vrai" Then
[c8].Value = 0.15
End If
End Sub
et je voudrais l'appeler à chaque changement de valeur en C18.
Je ne toruve pas
Merci
Pascal





pb
Le #19806621
Merci Isabelle
"isabelle" a écrit dans le message de news:
OC99%
bonjour Pascal,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, [c18])
If Not isect Is Nothing Then
If [e9] = "Vrai" Then [c8].Value = 0.08
If [e11] = "Vrai" Then [c8].Value = 0.1
If [e13] = "Vrai" Then [c8].Value = 0.12
If [e15] = "Vrai" Then [c8].Value = 0.14
If [e17] = "Vrai" Then [c8].Value = 0.15
End If
End Sub

isabelle

pb a écrit :
Bonjour,
J'ai cette macro
Sub TXA2()
[e9]
If [e9] = "Vrai" Then
[c8].Value = 0.08
End If
[e11]
If [e11] = "Vrai" Then
[c8].Value = 0.1
End If
[e13]
If [e13] = "Vrai" Then
[c8].Value = 0.12
End If
[e15]
If [e15] = "Vrai" Then
[c8].Value = 0.14
End If
[e17]
If [e17] = "Vrai" Then
[c8].Value = 0.15
End If
End Sub
et je voudrais l'appeler à chaque changement de valeur en C18.
Je ne toruve pas
Merci
Pascal







Publicité
Poster une réponse
Anonyme