With avec mon tableau me pose problème - Cherche valeur 0Résolu

Question

Bonjour à tous,

un petit problème avec "With" et mon tableau.

Ci -dessous mon code (raccourci...en amont, j'ai rempli mon tableau sur 2 colonnes et 32 lignes) :

Sub ComprehensionTableau()'Définit le type de données pour le tableau.Dim Montableau(0 To 32, 0 To 1) As VariantWith MontableauSet c = .Find(0, LookIn:=xlValues)        If Not c Is False Then        MsgBox c & "Attention! Manque des Infos - Voir les champs en rouge"        Else        MsgBox "OK"        End IfEnd WithEnd Sub

Je cherche à contrôler si aucune cellule ne contient "0" (zéro).

A la ligne 6 (With Montableau), le message erreur est : "l'objet associé à with doit être défini par l'utilisateur ....en object ou variant "
Hors je l'ai déclarer en variant...

Je vous remercie tous de votre aide.

NHenry · Answer

With sur un tableau en VBA n'a pas de sens.
De plus, tu déclare ton tableau, mais tu ne le remplis pas, donc c'est normal que ça ne fonctionne pas.

ZEPS2 · Answer

Merci NHenry de m'avoir répondu.
Comme je le disais dans mon post, j'ai shunté toute la partie du code ou je rempli mon tableau.
Tu me dis que with n'a pas de sens.
OK si tu le dis !
Je cherche à vérifier si dans mon tableau je n'ai pas la valeur "0".

merci de votre aide à tous,

NHenry · Answer

Un tableau VBA ne gère aucune méthode (à ma connaissance), ce n'est pas un objet.

As-tu essayé de faire de simple boucles For ?

ZEPS2 · Answer

je viens de résoudre avec ce code tout bête.
Je me faisais des noeuds à la tête ! 
 
For Each cel In Montableau    If cel = "0" Then    MsgBox "Attention! Manque des Infos - Voir les champs en rouge"    Exit For    End IfNext cel

Grand Merci NHenry pour ton aide.

ucfoutu · Answer

Bonjour,
Aucune boucle nécessaire.
Ouvre ton aide VBA à la rubrique WorksheetFunction.Countif

With avec mon tableau me pose problème - Cherche valeur 0

5 réponses

Votre réponse