Définir une plage dans une feuille spécifique

Résolu/Fermé
ddpoel Messages postés 11 Date d'inscription lundi 11 avril 2016 Statut Membre Dernière intervention 15 septembre 2016 - 11 avril 2016 à 23:08
ddpoel Messages postés 11 Date d'inscription lundi 11 avril 2016 Statut Membre Dernière intervention 15 septembre 2016 - 12 avril 2016 à 07:44
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.

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
12 avril 2016 à 00:23
Bonjour,

Il faut préciser dans quelle feuille se trouvent les Cells !!!
0
ddpoel Messages postés 11 Date d'inscription lundi 11 avril 2016 Statut Membre Dernière intervention 15 septembre 2016
Modifié par ddpoel le 12/04/2016 à 07:47
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