XL 2013 masquer zone de texte si...

yoda60 · 26 Janvier 2022

bonjour,
je souhaiterais démasquer une zone de texte (ici zone texte 1) si en D1 ile mot "ok " est inscrit ET que l'une des valeurs de la colonne L est inscrites en D3.

évidemment masquer si les conditions ne sont pas respectées.

Pour précision on doit pouvoir remplir D1 ou D3 dans n'importe quel ordre.

merci de votre aide

cordialement

sylvanu · 31 Janvier 2022

Bonsoir Yoda,
Un essai en PJ avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D1:D3")) Is Nothing Then
        If Application.CountIf([L:L], [D3]) > 0 And LCase([D1]) = "ok" Then
            Shapes("ZoneTexte 1").Visible = msoFalse
        Else
            Shapes("ZoneTexte 1").Visible = msoTrue
        End If
    End If
End Sub

sylvanu · 31 Janvier 2022

Bonsoir Yoda,
Un essai en PJ avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("D1:D3")) Is Nothing Then
        If Application.CountIf([L:L], [D3]) > 0 And LCase([D1]) = "ok" Then
            Shapes("ZoneTexte 1").Visible = msoFalse
        Else
            Shapes("ZoneTexte 1").Visible = msoTrue
        End If
    End If
End Sub

yoda60 · 2 Février 2022

bonjour Sylvanu,
parfait , tu as parfaitement répondu à la demande , un grand merci.

XL 2013 masquer zone de texte si...

yoda60

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

yoda60

XLDnaute Nouveau

Discussions similaires