Vérifier si une plage de cellule

[zizoufan]

Bonjour,

J'aimerais savoir si une plage de cellules contient le même mot ( "ok") pour appliquer une macro.

j'ai essayé avec le code suivant mais cela ne marche pas ???

Sub verif()

if range("A1:A3").value = "ok" then
msgbox "vous avez évalué tous"
else
exit sub
end if

End sub

 

[job75]

Re : Vérifier si une plage de cellule

Bonjour zizoufan,

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

 

[zizoufan]

Re : Vérifier si une plage de cellule

Bonjour zizoufan,

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

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

 

[zizoufan]

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,

 

[zizoufan]

Re : Vérifier si une plage de cellule

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

 

[Pierrot93]

Re : Vérifier si une plage de cellule

Bonjour,

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

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

bonne journée
@+

 

[job75]

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 :

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

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

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

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 :

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

A+

 

[zizoufan]

Re : Vérifier si une plage de cellule

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

 

[zizoufan]

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 :

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

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

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

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 :

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

A+

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

 

[job75]

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+

 

[zizoufan]

Re : Vérifier si une plage de cellule

job,

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

 

[Pierrot93]

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
@+

 

[job75]

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+

 

[zizoufan]

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

 

[Pierrot93]

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....