Titre du sujet : Re: Recherche valeur.
par Guy le 30/05/2010 19:19:58
Bonjour gmh, Dan,
L'erreur, je crois, provient de ce que la ligne 3 est vide. Complètement vide.
Ainsi l'affectation
dercol = Sheets("Récap").Range("IV3").End(xlToLeft).Column
pose à 1 la valeur de la variable dercol (puisque la ligne est vide). Or une instruction suivante re-dimentionne le tableau tablo avec zéro en dimension 1 (puisque dercol - 1 = 0). D'où l'erreur 9 "L'indice n'appartient pas à la sélection."
ReDim tablo(dercol - 1, nbre) 'est identique à Redim tablo(0, 0) et Badaboum!
De plus, comme la feuille elle-même est tout à fait vide, l'affectation
nbre = Application.CountIf(.Columns(2), entete)
pose identiquement à zéro la variable nbre.
On ne peut dimensionner un tableau en (0,0). Un tableau de zéro ligne et zéro colonne est un tableau vide. Aucun indice ne peut correspondre.
Ajouter des en-têtes et des données me semble la moindre des choses. Une fois la chose faite, teste le code mais sans rien y modifier. Une seule modification à la fois suivie d'un test de validation est impératif.
Lorsqu'on ne connait pas la route mieux vaut avancer lentement et avec la plus grande prudence.
Cordialement,
Guy
|
Didier FOURGEOT