Problème avec un For Each

[olic95]

Bonjour à tous,

J'ai cherché dans le forum, mais je n'ai pas trouvé de solution, malgré les exemples fournis.

Je déclare deux variables : CELLULE et PLAGE_LIGNE as RANGE
LIGNE est issu d'une boucle FOR
I est un RND entre 1 et 9

Je veux comparer I à toutes les cellules de la plage PLAGE_LIGNE

PLAGE_LIGNE = Range('G' & LIGNE & ':O' & LIGNE).Select
For Each CELLULE In PLAGE_LIGNE
If I = PLAGE_LIGNE.Cells(1, 1) Then
PRESENT = True
End If
Next CELLULE

EXCEL me renvoie une 'Erreur d'exécution '424' : Objet Requis' sur le 'For Each' et je n'arrive pas à résoudre le problème.

Si quelqu'un peut m'aider.

D'avance merci.

Olivier.

 

[PascalXLD]

Bonjour

modifies ton code ainsi

Set Plage_Ligne = Range('G' & ligne & ':O' & ligne)
For Each Cellule In Plage_Ligne
If I = Cellule Then
Present = True
End If
Next Cellule

Bon courage

 

[olic95]

Salut Pascal76, le forum,

IMPECCCABLE, ça tourne. Mille fois merci.

Un autre schmilblic cependant :

LIGNE = Int((UBound(TAB_LIGNE) * Rnd) + 1)
COLONNE = Int((UBound(TAB_COLONNE) * Rnd) + 1)

Les deux lignes ci-dessus me génèrent TOUJOURS les même séries de chiffres bien qu'il y ait un RND... ça peut venir d'où ?

Première série : LIGNE = 6 et COLONNE = 5
Seconde série : LIGNE = 5 et COLONNE = 6

TAB_LIGNE et TAB_COLONNE sont des petits tableaux (0 à 8)redimentionnés dans une boucle FOR (0 à 7), (0 à 6).... et ainsi de suite

Merci.

Olivier.

 

[olic95]

Désolé, j'y ai pensé en validant... je ne le ferai plus, promis.

OK jmps, j'essaie ça ! Merci à toi aussi.