Microsoft 365 Condition avec avec Worksheet_Change(ByVal Target As Range)

pat66 · Hier à 17:32

Bonsoir le forum,

et merci d'avance de bien vouloir m'aider,

Je souhaite faire en sorte qu'à chaque saisie de texte (liste déroulante) dans K27 et selon le mot saisi, le contenu de D88 soit de 11,30% soit de 0%

je vous ai établi un schéma plus explicite enfin je crois

Je vous remercie beaucoup

Pat66

sylvanu · Hier à 17:44

Bonjour Pat,
Une possibilité en PJ avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [K26]) Is Nothing Then
        Select Case LCase(Target)
            Case "phare": [D88] = 0.113
            Case "clignotant": [D88] = 0.113
            Case "pare choc": [D88] = 0.113
            Case Else: [D88] = 0
        End Select
    End If
Fin:
End Sub

la méthode par Select est, à mon avis, la plus simple à modifier ensuite.

sylvanu · Hier à 17:44

Bonjour Pat,
Une possibilité en PJ avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [K26]) Is Nothing Then
        Select Case LCase(Target)
            Case "phare": [D88] = 0.113
            Case "clignotant": [D88] = 0.113
            Case "pare choc": [D88] = 0.113
            Case Else: [D88] = 0
        End Select
    End If
Fin:
End Sub

la méthode par Select est, à mon avis, la plus simple à modifier ensuite.

pat66 · Hier à 18:19

Bonsoir Sylvanu,

toujours aussi réactif et efficace !
cela fonctionne parfaitement et je vous en remercie beaucoup

bonne soirée

Microsoft 365 Condition avec avec Worksheet_Change(ByVal Target As Range)

pat66

XLDnaute Impliqué

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

pat66

XLDnaute Impliqué

Discussions similaires

Microsoft 365 Condition avec avec Worksheet_Change(ByVal Target As Range)

pat66

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

pat66

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency