si pas de zone de cellules sélectionnée alors...... en VBA

[pascal21]

bonsoir le forum
afin d'obliger un utilisateur à sélectionner une zone de cellules (plus 6 cellules)
j'aimerais utiliser la propriété enabled d'un bouton
un code du genre
si pas de zone de cellules sélectionnée alors commandbutton1. enabled = false sinon enabled = true
comment écrivez-vous cela
merci

 

[ROGER2327]

Re : si pas de zone de cellules sélectionnée alors...... en VBA

Bonjour pascal21

Avec ce code, le bouton nommé Bouton n'est actif que lorsque plus de six cellules sont sélectionnées :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count > 6 Then Bouton.Enabled = True Else Bouton.Enabled = False
End Sub[/B][/COLOR]

ROGER2327
#2487

 

[Pierrot93]

Re : si pas de zone de cellules sélectionnée alors...... en VBA

Bonsoir Pascal, Roger

une autre solution :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Enabled = Target.Count > 6
End Sub

bonne soirée
@+

 

[ROGER2327]

Re : si pas de zone de cellules sélectionnée alors...... en VBA

Suite...

Je viens d'écrire une bêtise !

(- Ça m'étonne, venant de moi...
- Oh ! ROGER...
__T'as pas les chevilles qui enflent ?
- Si !)​

Ce code activera le bouton aussi si on sélectionne une seule cellule en maintenant la touche Ctrl enfoncée.
En fait, il faut écrire une procédure pour vérifier qu'on trouve au moins sept adresses de cellules différentes.
​

ROGER2327
#2488

 

[ROGER2327]

Re : si pas de zone de cellules sélectionnée alors...... en VBA

Suite...

Pas mieux, Pierrot93...​

ROGER2327
#2489

 

[ROGER2327]

Re : si pas de zone de cellules sélectionnée alors...... en VBA

Suite...

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oColl As New Collection, ce As Range
   On Error Resume Next
   For Each ce In Selection.Cells
      oColl.Add ce.Address, ce.Address
   Next ce
   On Error GoTo 0
   If oColl.Count > 6 Then Bouton.Enabled = True Else Bouton.Enabled = False
End Sub[/B][/COLOR]

?​

ROGER2327
#2490

 

[Pierrot93]

Re : si pas de zone de cellules sélectionnée alors...... en VBA

Re,

aarf, quelque chose doit m'échapper, car même en maintenant la touche CTRL enfoncée, le bouton ne devient actif que lorsqu'il y a au moins 7 cellules de sélectionnées....

 

[Pierrot93]

Re : si pas de zone de cellules sélectionnée alors...... en VBA

Re

Ok, j'ai peut être compris,c'est au cas ou l'on clique plusieurs fois sur la même cellule.... effectivement

 

[pascal21]

Re : si pas de zone de cellules sélectionnée alors...... en VBA

bonsoir à tous
j'ai choisi ton code roger
avec tout le mal que tu t'ais donné c'est la moindre des choses
mais une question encore
lorsque je sélectionne une zone de cellules le code se met en route ,fait son oeuvre très bien!!
bonne soirée et merci à tous
pour ce qui est du nombre de cellules en fait on devrait être plus autour de 50 ou 60 cellules que 6
mais c'était pour donner une base de travail et surtout que ça fonctionne uniquement lorsque l'on sélectionne des cellules