Tableau

[Buburge]

Bonjour,

Dans ma macro, j'ai un tableau déclaré
__________
Dim Tableau_EPCI(29) As String
_____________
et qui prend ses 29 valeurs dans une feuille particulière.


Comment faire pour vérifier si les données saisies par l'utilisateur dans la feuille ne correspondent pas avec une des données de ce tableau, façon :
_______________
For i = 1 To compteur ' déterminé par fonction "comptons"
For ??? = 1 To 29
If ActiveCell.Value <> Tableau_EPCI(????) Then
etc....
___________________

et celà sans comparer chaque donnée avec chaque valeur du tableau.


Merci.

 

[Zon]

Salut,

tu n'as pas mis ta fonction comptons...

Pour boucler sur un tableau

for j=lbound(Tableau_EPCI) to ubound(Tableau_EPCI)
if activecell.value=Tableau_EPCI(j) then
msgbox "Donnée déjà saisie"
...
end if

Boucler sur un tableau est bien plus rapide que de faire un index(equiv)

A+++

qques ex sur les tableaux
Lien supprimé