Discussion :

[Vad_18]

Bonjour,
Voici mon problème :
Par macro j’insère une nouvelle feuille toujours placée après une feuille nommée "Relevés Journaliers". Cette nouvelle feuille est renommée automatiquement par macro selon le contenu de la cellule E1 (le contenu de la cellule E1 varie à chaque nouvelle feuille insérée).
Je voudrais pouvoir, par macro, sélectionner la feuille placée après celle nommée "Relevés Journaliers" quel que soit le nom de cette feuille puisqu’il change à chaque nouvelle insertion…
Merci par avance de votre aide
Vad

[Pierre Fauconnier]

Salut.

La propriété Index d'un worksheet permet de connaître son rang dans la suite des feuilles. Dès lors, tu peux utiliser le code suivant.

Code :

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

1
2
3
Dim ws As Worksheet
 
Set ws = Worksheets(Worksheets("Relevés Journaliers").Index + 1)

Tu pourrais aussi directement créer la nouvelle feuille en l'affectant à un objet de type worksheet

Code :

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

1
2
3
  Dim ws As Worksheet
 
  Set ws = ThisWorkbook.Worksheets.Add(after:=Worksheets("Relevés Journaliers"))

[Vad_18]

Bonjour Pierre,

Merci pour tes réponses, mais, mes connaissances en Vba étant très limitées, je ne dois pas adapter comme il faut tes propositions, car pour la première, rien ne se passe et pour la deuxième cela m’insère une nouvelle feuille !
Ce que je souhaite, c’est que ma macro sélectionne la feuille que j’insère toujours après la feuille nommée "Relevés Journaliers" (qui elle a toujours le nom Feuil3 dans Visual Basic) mais la feuille que j’insère juste après (celle que je souhaite sélectionner)change toujours de nom d’onglet et de référence dans Visual Basic . La seule chose qui ne change pas est son emplacement après la feuille "Relevés Journaliers"…
(à noter, je ne sais pas si cela peut avoir une incidence ou pas, mais au cas où : j’ai dans ce classeur une feuille nommée "Index" et comme ce terme est employé dans la macro…)

J’ai un deuxième problème : je souhaite, quand la feuille est sélectionnée, supprimer toutes les formes de la feuille, sauf deux. Mais je n’arrive à conserver qu’une seule forme sur les deux que je souhaite garder…. (Ces formes sont nommées "Clic Insère Nvlles Lignes" et "Clic trie dates" toutes les autres formes sont à supprimer…
Merci Pierre de ton aide
Vad

[CaptainMeta]

Salut,

La première proposition est celle qui te conviendra. Pour sélectionner ta feuille, il faut juste rajouter la ligne suivante à la suite :

Code :

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

ws.select

La deuxième proposition te sera utile si tu cherches à automatiser la création de la feuille en plus de son renommage.

Pour ta deuxième question, il faudrait qu'on voit le code que tu utilises pour pouvoir te répondre.

Voila voila!

A+

Captain

[patricktoulon]

bonjour
la premiere proposition de Pierre Fauconnier est incomplete
il t'explique juste comment determiner ton sheets il te faut ensuite le selectionner ou l'activer

Code :

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

1
2
3
Dim ws As Worksheet
Set ws = Worksheets(Worksheets("Relevés Journaliers").Index + 1)
ws.activate'ou select comme tu veux

ou sans variables

Code :

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

sheets(sheets("Relevés Journaliers").Index + 1).activate'ou select comme tu veux

[Theze]

Bonjour,

Pour la suppression des Shapes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Test()
 
    Dim ws As Worksheet
    Dim S As Shape
 
    Set ws = Worksheets(Worksheets("Relevés Journaliers").Index + 1)
 
    For Each S In ws.Shapes
        If S.Name <> "Clic Insère Nvlles Lignes" And S.Name <> "Clic trie dates" Then S.Delete
    Next S
 
End Sub

[Pierre Fauconnier]

En complément du message de Theze, je pense qu'il serait très judicieux de choisir d'autres noms pour les boutons, notamment en évitant espaces et caractères diacritiques. Cela permettrait d'éviter, entre autres, les fautes de saisie...

[Vad_18]

Bonjour,
Merci à tous pour votre aide et vos conseils, tout fonctionne à merveille maintenant…
Vad