Définir une plage dans une feuille spécifique

Résolu
ddpoel Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
ddpoel Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je suis nouveau sur le forum, bien que je vous suis depuis longtemps. Et vous m'avez déjà donné beaucoup de solutions dans d'autres post. Et là, ça y est je buggue sur un problème... Et je ne trouve pas de réponse...

Le code suivant me donne une erreur 1004 au niveau de la ligne Set MatriceMod... et je ne comprends vraiment pas pourquoi



'Définir la matrice modèle
Dim C As Object
Dim NoLigne As Integer
Dim MatriceMod As Range

Set C = WorksheetFunction.Index(Worksheets("Feuil1").Columns(2), WorksheetFunction.Match(jeu, Worksheets("Feuil1").Columns(2), 0), 1)

NoLigne = C.Row

Set MatriceMod = Worksheets("Feuil1").Range(Cells(NoLigne + 1, 3), Cells(NoLigne + 6, 33))

MsgBox " adresse de MatriceMod " & MatriceMod.AddressLocal


Mais si je mets juste :
Set MatriceMod = Range(Cells(NoLigne + 1, 3), Cells(NoLigne + 6, 33))
Alors, cela marche, sauf que la plage MatriceMod est alors dans la feuille active, mais moi je veux vraiment que ce soit une plage de Feuil1 et nulle part ailleurs...

Merci d'avance pour votre aide.
Bonne nuit.
A voir également:

2 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Il faut préciser dans quelle feuille se trouvent les Cells !!!
0
ddpoel Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Ha ok, erreur de debutant, sorry!
C'est-à-dire comme ceci p.ex., si on utilise le point devant cells

With Worksheets("Feuil1")
Set MatriceMod = .Range(.Cells(NoLigne + 1, 3), .Cells(NoLigne + 6, 34)) 'aller plus loin que 34 (parce que 34 c'est juste pour éléphant). Sans doute aller jusque la dern colonne utilisée
End With
0