VBA Excel IF avec selection ligne complète

Résolu/Fermé
thibm - 10 avril 2012 à 17:43
 thibm - 10 avril 2012 à 19:10
Bonjour,


J'ai une macro que je doit amélioré. À la base ma feuille de calcul est protégé. La macro premet sur certaines condition de déprotéger une cellule de la feuille. Mon problème est que si toute la ligne est sélectionée la macro ne prend pas en compte les conditions et déprotège toutes les cellules de la ligne.

J'essai d'ajouter la condition suivante:

If "toute la ligne est selectionnée " Then

MsgBox ("You can not select entire row")

Comment écrire "toute la ligne est selectionnée"

Merci
A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
10 avril 2012 à 18:56
Bonjour,

Sub test()
'Selection.Columns.Count=256 pour Excel2003
'Selection.Columns.Count=16384 pour EXcel2007-2010
If Selection.Rows.Count >= 1 And Selection.Columns.Count = 16384 Then
MsgBox ("You can not select entire row")
End If
x = Selection.Rows.Count
y = Selection.Columns.Count
End Sub


Bonne suite
1
Merci
0