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

Question

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

Signaler

ZEPS2

Messages postés: 19
Date d'inscription: dimanche 21 décembre 2008
Statut: Membre
Dernière intervention: 14 avril 2019

- 11 mai 2014 à 23:20
ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 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
Trier un tableau à partir d'une valeur calculée ✓ - Forum - PHP
Supprimer les lignes d'un tableau en fonction d'une valeur ✓ - Forum - VB.NET
Un tableau qui se remplit avec des'\0' entre chaque caractère ? ✓ - Forum - C
Trier un tableau et recup la premiere valeur ✓ - Forum - PHP
MAJ tableau en fonction de la valeur d'une liste déroulante ✓ - Forum - PHP

5 réponses

Répondre Posez votre question

NHenry · Answer 1 · 2014-05-11T23:34:18+0200

Réponse 1 / 5

NHenry

Messages postés: 14788
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 1 mai 2021

155
11 mai 2014 à 23:34

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 2 · 2014-05-12T22:15:28+0200

Réponse 2 / 5

ZEPS2

Messages postés: 19
Date d'inscription: dimanche 21 décembre 2008
Statut: Membre
Dernière intervention: 14 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".

merci de votre aide à tous,

NHenry · Answer 3 · 2014-05-12T22:25:10+0200

Réponse 3 / 5

NHenry

Messages postés: 14788
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 1 mai 2021

155
12 mai 2014 à 22:25

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 4 · 2014-05-12T22:58:14+0200

Réponse 4 / 5

ZEPS2

Messages postés: 19
Date d'inscription: dimanche 21 décembre 2008
Statut: Membre
Dernière intervention: 14 avril 2019

12 mai 2014 à 22:58

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 If
Next cel

Grand Merci NHenry pour ton aide.

ucfoutu · Answer 5 · 2014-05-13T06:14:57+0200

Réponse 5 / 5

ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

236
13 mai 2014 à 06:14

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

Votre réponse