Discussion :

[canichon]

bonjour a tous,

le titre est pas très clair donc je dois m'expliquer.

d'habitude, je mets mes macros dans un module mais là, je dois dupliquer une feuille dans un autre classeur avec ses macros... donc, les macros sont dans la feuille.

Le soucis est que, une fois dupliquée, je passe d'une feuille a l'autre pour copier/coller des données

imaginons que mes macros sont dans la feuille "pointage" et je doive aller chercher des données dans la fuille "RECAP". suis_je obligé de systématiquement mentionné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets("RECAP").blabla

ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Sheets("RECAP").Range(Sheets("RECAP").ActiveCell, Sheets("RECAP").Cells((Sheets("RECAP").ActiveCell.End(xlDown).Row) - 1, 10)).EntireRow.Select

sachant que ce dernier code renvoie une erreur qui m'arrête ma macro au lieu de me rendre la main !!! ( si vous avez la soluce pour eviter cette erreur, je prend aussi...

merci pour votre aide

[Invité]

Salut,

Tu ne peux appeler la propriété .ActiveCell d'une feuille qui n'est pas active (sélectionnée).

Sinon regarde du côté de With et End With pour éviter d'écrire le nom du Worksheet à chaque fois.

[canichon]

c'est pire que ça...

si je fais ça, ça marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("TEMP pointage").Activate
Range("C6").End(xlDown).Offset(4, -2).Select

il faut que je fasse ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("TEMP pointage").Activate
Sheets("TEMP pointage").Range("C6").End(xlDown).Offset(4, -2).Select

bon, je vais me démerder...


sinon, question gratuite, la différence entre

**.select

et

**.activate

[illight]

Et si tu fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("TEMP pointage").Select
Range("C6").End(xlDown).Offset(4, -2).Select

Voir ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("TEMP pointage").Range("C6").End(xlDown).Offset(4, -2).Select

Pour répondre à ta dernière question, va voir ici :

http://www.developpez.net/forums/d70...tivate-select/

[canichon]

non mais là, c'est un exemple simple... le rappeler une fois en début de ligne, ça me pose pas de soucis...

c'est quand je cherche a faire des trucs un peu plus "sioux", que ça se complique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        Range(ActiveCell, Cells((ActiveCell.End(xlDown).Row) - 1, 10)).EntireRow.Select

(ce code fonctionne a merveille quand je le met dans la feuille"RECAP")

et le code devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        Sheets("RECAP").Range(Sheets("RECAP").ActiveCell, Sheets("RECAP").Cells((ActiveCell.End(xlDown).Row) - 1, 10)).EntireRow.Select

et encore... ça marche meme pas

[illight]

Tu es forcément obligé de mettre la référence de ta feuille quand tu appelle une cellule, sinon ça prendra la cellule de ta feuille active

Je ne vois pas d'autres solution