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 joseph,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set Mycontrols = ActiveSheet.CommandButton1 ' adapter à votre control Set ici = Application.Intersect(Target, Range("L9:M65000")) If ici Is Nothing Then Mycontrols.Visible = True Else Mycontrols.Visible = False End If End Sub
j ai un petit probleme avec le calendrier excel, je voudrais afficher le calendrier quand je clique sur les cellule qui
se trouve dans la plage L9:M65000 mais sa fonctionne quand je clique mais je n arrive pas a le faire disparaitre
merci d avance
bonjour joseph,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Mycontrols = ActiveSheet.CommandButton1 ' adapter à votre
control
Set ici = Application.Intersect(Target, Range("L9:M65000"))
If ici Is Nothing Then
Mycontrols.Visible = True
Else
Mycontrols.Visible = False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set Mycontrols = ActiveSheet.CommandButton1 ' adapter à votre control Set ici = Application.Intersect(Target, Range("L9:M65000")) If ici Is Nothing Then Mycontrols.Visible = True Else Mycontrols.Visible = False End If End Sub