Vérifier si une plage de cellule

job75

XLDnaute Barbatruc

• 25 Août 2013

• #2

Re : Vérifier si une plage de cellule

Bonjour zizoufan,

Code:

Dim P As Range
Set P = [A1:A3] 'à adapter
If Application.CountIf(P, "ok") = P.Count Then
'-----
End If

 

Vote positif 0 Vote négatif

Z

zizoufan

XLDnaute Occasionnel

• 25 Août 2013

• #3

Re : Vérifier si une plage de cellule

job75 à dit:

Bonjour zizoufan,

Code:

Dim P As Range
Set P = [A1:A3] 'à adapter
If Application.CountIf(P, "ok") = P.Count Then
'-----
End If

Cliquez pour agrandir...

Merci job c'est sympa.

je voudrais maintenant adapter la plage en insérant une variable mais cela ne marche pas :

Set P = [F3:F&"total_enregistrements+2"] 'à adapter

 

Vote positif 0 Vote négatif

Z

zizoufan

XLDnaute Occasionnel

• 25 Août 2013

• #4

Re : Vérifier si une plage de cellule

Job,

je me suis mal exprimé peut être ! j'ai un champ sur la feuille qui calcule le nombre total des enregistrements qui j'ai nommé [total_enregistrements] que j'essaie d'intégrer comme variable dans la plage donc j'ai mis :

Set P = [F3:F&"total_enregistrements+2"]

et ça me donne objet requis ?? y a quelque chose que j'ai omis ?

Merci pour ton aide ?

COrdialement,

 

Vote positif 0 Vote négatif

Z

zizoufan

XLDnaute Occasionnel

• 25 Août 2013

• #5

Re : Vérifier si une plage de cellule

Est ce que c'est compliqué ? y a t il une autre méthode plus simple ? 😕

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Août 2013

• #6

Re : Vérifier si une plage de cellule

Bonjour,

un exemple ci-dessous, à adapter à ton projet :

Code:

Dim total_enregistrements As Long, p As Range
total_enregistrements = 3
Set p = [F3].Resize(total_enregistrements + 2)
p.Select

bonne journée
@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Août 2013

• #7

Re : Vérifier si une plage de cellule

Bonjour zizoufan, salut Pierrot, le forum,

Il y a plusieurs manières de définir la plage P :

Code:

Set P = Range("F3:F" & [total_enregistrements] + 2)

Code:

Set P = [F3].Resize([total_enregistrements])

Code:

Set P = [INDIRECT("F3:F"&total_enregistrements+2)]

Code:

Set P = [OFFSET(F3,,,total_enregistrements)]

La 2ème manière est la plus simple et la plus classique en VBA.

Attention, si la feuille n'est pas la feuille active il faut la préciser, par exemple :

Code:

Set P = [total_enregistrements].Parent.[F3].Resize([total_enregistrements])

A+

 

Vote positif 0 Vote négatif

Z

zizoufan

XLDnaute Occasionnel

• 26 Août 2013

• #8

Re : Vérifier si une plage de cellule

Merci beaucoup les amis. j'apprends très vite avec vous 🙂

 

Vote positif 0 Vote négatif

Z

zizoufan

XLDnaute Occasionnel

• 26 Août 2013

• #9

Re : Vérifier si une plage de cellule

job75 à dit:

Bonjour zizoufan, salut Pierrot, le forum,

Il y a plusieurs manières de définir la plage P :

Code:

Set P = Range("F3:F" & [total_enregistrements] + 2)

Code:

Set P = [F3].Resize([total_enregistrements])

Code:

Set P = [INDIRECT("F3:F"&total_enregistrements+2)]

Code:

Set P = [OFFSET(F3,,,total_enregistrements)]

La 2ème manière est la plus simple et la plus classique en VBA.

Attention, si la feuille n'est pas la feuille active il faut la préciser, par exemple :

Code:

Set P = [total_enregistrements].Parent.[F3].Resize([total_enregistrements])

A+

Cliquez pour agrandir...

Bonjout Job,

ces codes marchent parfaitement sur excel 2007 mais sur 2003 non ? est ce que c'est à cause du champ défini (total_enregistrements) ???

Merci job

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Août 2013

• #10

Re : Vérifier si une plage de cellule

Re,

Je n'ai pas Excel 2003 sous la main mais je ne vois pas pourquoi ces codes, très basiques, ne fonctionneraient pas.

Vous avez peut-être fait des fautes d'orthographe, à vérifier.

A+

 

Vote positif 0 Vote négatif

Z

zizoufan

XLDnaute Occasionnel

• 26 Août 2013

• #11

Re : Vérifier si une plage de cellule

job,

voilà ce que Excel renvoi comme message d'erreur :

 

Pièces jointes

• Sans titre.JPG

  45.9 KB · Affichages: 50
• Sans titre.JPG

  45.9 KB · Affichages: 51
• Sans titre.JPG

  45.9 KB · Affichages: 56

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Août 2013

• #12

Re : Vérifier si une plage de cellule

Bonjour zizoufan, job🙂

A voir le nombre de cellules de ta plage "total_enregistrements" et / ou ce qu'elle contient...

bonne journée
@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Août 2013

• #13

Re : Vérifier si une plage de cellule

Bonjour zizoufan, Pierrot,

Il faudrait joindre le fichier.

Je vois quand même sur l'image que le double-clic modifie la feuille "param".

S'il y a une macro Worksheet_Change dans cette feuille cela peut poser problème.

A+

 

Dernière édition: 27 Août 2013

Vote positif 0 Vote négatif

Z

zizoufan

XLDnaute Occasionnel

• 27 Août 2013

• #14

Re : Vérifier si une plage de cellule

Bonjour job, pierrot,

le but du bout de code que je vous ai soumis c'est de détécter s'il y a ok dans toutes les lignes disponibles pour afficher le message, masquer la feuille bd. je l'ai mis dans worksheet_change sur excel 2007 et cela marche.
en 2003 cela ne fonctionne pas.

Voici donc le fichier.
Par avance merci

 

Pièces jointes

• bd_evaluation.xls

  110.5 KB · Affichages: 48

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Août 2013

• #15

Re : Vérifier si une plage de cellule

Re,

en l'état ton nombre d'enregistrement est égal à 0, donc renvoie de la plage F3:F2.... donc le test n'est pas vérifié... pas top ce contrôle....

 

Vote positif 0 Vote négatif