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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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
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
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
Merci Isabelle
"isabelle" <i@v> a écrit dans le message de news:
OC99%23AsCKHA.4792@TK2MSFTNGP05.phx.gbl...
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
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