ZEPS2
Messages postés19Date d'inscriptiondimanche 21 décembre 2008StatutMembreDernière intervention14 avril 2019
-
11 mai 2014 à 23:20
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
13 mai 2014 à 06:14
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 Variant
With Montableau Set 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 If End With End 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.
A voir également:
With avec mon tableau me pose problème - Cherche valeur 0
ZEPS2
Messages postés19Date d'inscriptiondimanche 21 décembre 2008StatutMembreDernière intervention14 avril 2019 12 mai 2014 à 22:15
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".