Discussion :

[Invité]

Bonsoir,

C'est peut-être très simple pour les expérimentés mais pas pour moi. J'ai besoin de votre aide.
Voilà, je voudrai qu'un bouton sur une feuille Excel s'active si dans la plage D8 à D&dernièreLigne, je saisis des valeurs numériques.
Et qu'il se désactive si j'efface toutes les valeurs de cette plage (vider la plage).

je joins un fichier. En vous remerciant par avance.

Bonne soirée!

Cordialement,

[casefayere]

Bonsoir,

Essaies ce code dans la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dl As Integer
Dl = Range("D" & Rows.Count).End(xlUp).Row
If Target.Column = 4 And Target.Row > 7 And Target.Count = 1 Then
  If WorksheetFunction.IsNumber(Target.Value) Then
    CommandButton1.Enabled = True
  End If
End If
If Target.Column = 4 And Target.Count > 1 Then
  If WorksheetFunction.Sum(Range("D4:D" & Dl)) = 0 Then
    CommandButton1.Enabled = False
  End If
End If
End Sub

[Invité]

Bonsoir casefayere,

je te remercie pour la célérité de ta réponse ainsi que pour ton code.

je l'ai copié sur le module de code de la feuille. Le bouton s'active quand je saisis des valeurs numériques.

Par contre, il ne se désactive pas quand je vide la plage (en effaçant toutes les valeurs).

Merci beaucoup.

Cordialement,

Re,

je ne suis pas sûr mais ça semble bien fonctionner suite à une petite modification de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'If Target.Column = 4 And Target.Count > 1 Then
'j'ai modifié le signe de la ligne ci-dessus
If Target.Column = 4 And Target.Count <= 1 Then
  If WorksheetFunction.Sum(Range("D4:D" & Dl)) = 0 Then
    CommandButton1.Enabled = False
  End If
End If

Merci beaucoup. Mais est-ce vraiment la bonne correction?

Cordialement,

[casefayere]

Bonjour,

Pour reprendre ton avant dernière remarque

Par contre, il ne se désactive pas quand je vide la plage (en effaçant toutes les valeurs)

Si tu sélectionnes plusieurs cellules en même temps, que tu effaces et que la totalité = 0, ça devrait fonctionner mais si tu effaces les cellules une à une, avec mon code tel quel, tu as raison, je n'ai pas pensé à cette éventualité, peut-être comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dl As Integer
Dl = Range("D" & Rows.Count).End(xlUp).Row
If Target.Column = 4 And Target.Row > 7 And Target.Count = 1 Then
  If WorksheetFunction.IsNumber(Target.Value) Then
    CommandButton1.Enabled = True
  End If
    If WorksheetFunction.Sum(Range("D4:D" & Dl)) = 0 Then
      CommandButton1.Enabled = False
    End If
End If
If Target.Column = 4 And Target.Count > 1 Then
  If WorksheetFunction.Sum(Range("D4:D" & Dl)) = 0 Then
    CommandButton1.Enabled = False
  End If
End If
End Sub

[Invité]

Bonjour,

je te remercie pour ta matinale réponse. je viens de faire un test et ça fonctionne très bien. je te remercie beaucoup.

je te souhaite une très bonne journée.

Encore merci.

Cordialement,