XL 2016 Affiche/masque Combobox

[jeromeN95]

Hello en ce beau jour j'aimerai un piti coup de cellule svp.

Affiche / Masque Zone de liste déroulante (formulaire) si cellule vide :

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.OLEObjects("Combobox1")
.Visible = Me.Range("C25").Value <> ""
End With
End Sub

 

[sylvanu]

Bonjour Jérome,
Pas tout bien compris. Essayez pour voir :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub                           ' Si plusieurs cellules sélectionnées, on sort
    If Not Intersect(Target, Range("A1:Z1000")) Is Nothing Then ' Adapter plage où l'action doit s'effectuer
        If Target = "" Then                                     ' Si la cellule cliquée est vide
            ActiveSheet.OLEObjects("Combobox1").Visible         ' Afficher Combobox
        End If
    End If
End Sub

 

[jeromeN95]

Merci sylvanu,
mais ca ne fonctionne pas

Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ' Si plusieurs cellules sélectionnées, on sort
If Not Intersect(Target, Range("C15:C15")) Is Nothing Then ' Adapter plage où l'action doit s'effectuer
If Target = "" Then ' Si la cellule cliquée est vide
ActiveSheet.OLEObjects("CentraleP1").Visible ' Afficher Combobox
End If
End If
End Sub

Je précise que ce n'ai pas une combobox mais une liste déroulante pris le formulaire

 

[sylvanu]

Envoyez un fichier test, cela évitera d'essayez en aveugle. 😉
Quand je lit : "With ActiveSheet.OLEObjects("Combobox1")" on pourrait penser que vous en avez une.

 

[jeromeN95]

exactement, je suis d'accord

Au passage, j'aimerai aussi masquer l'image dans la cellule d'à coter svp.

 

[sylvanu]

Je n'ai pas tout compris. Pourquoi Range("C15:C15") dans votre code alors que la liste est en C24 ?
En PJ un essai, si la liste est vide on masque l'image en B24, sinon elle est visible.
Je ne comprends pas ce qu'est CentraleP1 dans (ActiveSheet.OLEObjects("CentraleP1"))

Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ' Si plusieurs cellules sélectionnées, on sort
If Not Intersect(Target, Range("C24")) Is Nothing Then ' Adapter plage où l'action doit s'effectuer
    If Target = "" Then ' Si la cellule cliquée est vide
        Shapes("Image 3").Visible = False
    Else
        Shapes("Image 3").Visible = True
    End If
End If
End Sub

expliquez moi ce que vous voudriez faire, je suis un peu paumé.🙂

 

[job75]

Bonjour jeromeN95, sylvanu,

Si je comprends bien c'est très simple :

Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Image 3").Visible = [C24] <> ""
Shapes("Zone combinée 1").Visible = [C24] <> ""
End Sub

A+

 

[jeromeN95]

Super Job75,
c'est exactement ça. merci beaucoup, j'ai pu terminer mon fichier ce soir.

Merci mille fois.