Discussion :

[Vadorblanc]

Bonjour
Mon code ne s'exécute que si l'onglet se nomme "Untel", je recherche l'astuce pour que le code ne tienne pas compte du nom mais de l'emplacement par exemple j'ai un code "Feuil2.Select" ou "Feuil4.Select" qui fonctionne mais ne fonctionne mais pas pour "Feuil6.Select", pourquoi ? j'ai rajouté des feuilles dans ce fichier qui avait un bout de code et qui utilisait Sheet2.Sélect

Code :

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

1
2
3
4
Source.Activate
            Sheets("Untel").Select
            Cells.Select
            Selection.Copy

Merci pour l'astuce

[fring]

Tu peux appeler la feuille par sa position, par exemple la 4ème feuille donnera :

Code :

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

Sheets(4).Select

Autre exemple pour sélectionner la dernière feuille, peu importe le nombre de feuilles dans le classeur

Code :

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

Sheets(Sheets.Count).Select

Et si tu veux être certain de toujours prendre en compte une cellule, peu importe où elle se situe selon que l"on a inséré des lignes, des colonnes ou des feuilles, c'est de nommer cette cellule et ensuite y faire référence dans ton code de cette manière :

Code :

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

Range("NomDeMaCellule")

[Vadorblanc]

Bonjour Fring
J'ai bien noté et ça fonctionne sauf pour ta troisième proposition

Code :

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

Range("NomDeMaCellule")

Code :

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

1
2
3
4
Sub Macro1()
 
    Range("B10").Select
End Sub

qui revoie toujours la sélection sur B10 sur toutes les feuilles ce qui est normal, comment fais tu pour la "nommer" de façon qu'elle soit uniquement dans la feuille ou elle a été nommée sans sélectionner la Sheet ?

Merci, ces petites astuces sont très interessantes

[mercatog]

Une question simple mais ma foi primordiale: Pourquoi tu veux sélectionner une cellule ou même une feuille?

[Vadorblanc]

Bonjour
Fring m'a apporté la réponse par 'Sheets(6).Select' pour ne pas bloquer mon code sur des classeur qui n'avaient pas tous le même nom de la Sheet que je voulais ouvrir car c'est l'opérateur qui sélectionne son fichier personnalisé avec parfois des Sheets renommées par lui, super c'est ok pour moi, mais Fring me propose une astuce qui attire ma curiosité dont je ne connais pas et demandé sur mon dernier post ... comment 'nommer une cellule' précisément et que le code va se positionner dessus comme proposé

Et si tu veux être certain de toujours prendre en compte une cellule, peu importe où elle se situe selon que l'on a inséré des lignes, des colonnes ou des feuilles, c'est de nommer cette cellule et ensuite y faire référence dans ton code de cette manière :

Code :

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

Range("NomDeMaCellule")

Si c'est une astuce, je trouve qu'elle mérite son attention
Merci

[mercatog]

Ma question était claire: Pourquoi sélectionner une cellule? Du moment que tu peux agir sur les propriétés de la cellule sans la sélectionner.
Même en renommant une cellule de la feuille 6 NomDeTaCellule
Si la feuille active est la feuille 1 et tu mets:

Code :

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

sheets(6).range("NomDeTaCellule").Select

Tu auras une erreur.
Fring ne t'a jamais dit de sélectionner ta cellule.

[Vadorblanc]

Merci pour toutes ses réponses ... tout est très claire ... j'étais parti à rêver ... je souris ... mais mieux vaut être optimiste et avoir tort ... que d'être pessimiste et avoir raison ...
... Bien cordialement ...

[fring]

Je n'ai pas été complet dans ma réponse...dans la plupart des cas, il n'est pas nécessaire d'utiliser ".Select"

Code :

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

1
2
3
Sheets(2).Select
Range("B1").Select
Selection.Interior.ColorIndex = 6

En faisant de la manière suivante, tu obtiens le même résultat sans passer par une sélection

Code :

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

Sheets(2).Range("B1").Interior.ColorIndex = 6

Et si tu nommes ta cellule B1 par exemple "MaCel", tu peux directement y faire référence sans préciser la feuille vu que MaCel est unique

Code :

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

Range("MaCel").Interior.ColorIndex = 6

[Vadorblanc]

Je viens de réaliser et de valider le "nom" de la cellule et je trouve que c'est une superbe astuce, un code qui sélectionne une cellule nommée sans définir la Sheet, pour moi ce code est une première, et ça vaut son attention, j'étais parti sur une question simple et j'apprends des tas de choses.
Tout à l'heure j'avais cherché à la nommer mais j'oubliai de faire Entrée pour la valider, son nom doit s'écrire dans le coin supérieur gauche de la feuille d'excel, j'avais déjà vu en tant que formule pour déterminer le nom d'une plage de données, c'est méthode est peu utilisée et portant mérite son détours car elle peut déterminer plusieurs plages de cellules non adjacentes ce qui est très très interessant.
Bien cordialement et Merci