Worksheet change

Le 02/07/2014 à 18:36

Bonsoir à Tous,

Est il possible avec l'évènement Worksheet Change de rendre visible un bouton de commande si sur une plage A1 à A5, toutes les cellules A1 à A5 soient toutes remplies ?

Voici mon code pour une cellule seulement/

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Set Plage = Range("A1")

If Application.Intersect(Target, Plage) Is Nothing Then Exit Sub

If Target <> "" Then
ActiveSheet.Shapes("CommandButton1").Visible = True
Else
ActiveSheet.Shapes("CommandButton1").Visible = False

End If
End Sub

Merci d'avance pour vos réponses.

Le 02/07/2014 à 18:50

Bonjour

A tester

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Plage As Range
  Set Plage = Range("A1:A5")

  If Not Intersect(Target, Plage) Is Nothing And Target.Count = 1 Then
    If Application.CountA(Plage) = 5 Then
      ActiveSheet.Shapes("CommandButton1").Visible = True
    Else
      ActiveSheet.Shapes("CommandButton1").Visible = False
    End If
  End If
End Sub

Le 02/07/2014 à 19:44

Bonsoir Banzai64,

Merci c'est impeccable.

Le 03/07/2014 à 16:44

Bonjour à Tous,

Est il possible de le faire avec une plage dynamique ?

Youlig

Le 03/07/2014 à 22:34

Bonsoir

Prépares un fichier dans lequel tu expliques ce que tu veux

Le 03/07/2014 à 23:19

Bonsoir Banzai64,