Discussion :

[janakka-horus]

Bonjour tout le monde,

Je vous expose mon problème.

J'ai besoin de savoir s'il est possible de créer des onglets (ou feuilles) et leur attribuer un nom à partir des informations qui se trouvent dans une colonne (exemple colonne D). Il est necessaire de faire attention que ces onglets ne soient pas déjà créer.
Ces nouveaux onglet doivent être identique à l'onglet appelé MODELE.

J'ai parcouru un peu tous les forum EXCEL, j'ai trouvé des codes VBA qui font cela, mais ils buguent des que l'onglet existe déjà.

Pouvez vous m'aider SVP?

Merci à vous

PS : J’espère ne pas avoir été trop confus ?

[78chris]

Bonjour

Fonction pour tester l'existence d'un feuille dont le nom est passé en paramètre

Code :

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

1
2
3
4
5
Function ExistWorkSheet(FEUILLE) As Boolean
'Principe : évalue la formule Feuille!A1 et vérifie si elle renvoie #REF
 
         ExistWorkSheet = Evaluate("ISREF('" & FEUILLE & "'!A1)")
End Function

N.B : attention à la casse des noms

[janakka-horus]

Bonjour

Fonction pour tester l'existence d'un feuille dont le nom est passé en paramètre

Code :

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

1
2
3
4
5
Function ExistWorkSheet(FEUILLE) As Boolean
'Principe : évalue la formule Feuille!A1 et vérifie si elle renvoie #REF
 
         ExistWorkSheet = Evaluate("ISREF('" & FEUILLE & "'!A1)")
End Function

N.B : attention à la casse des noms

Merci à toi J'ai appliqué ton code à ce code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Sub Ajouter_Feuilles()
Dim J As Long
Dim Ws As Worksheet
 
  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 8 To Ws.Range("H" & Rows.Count).End(xlUp).Row
    If Not ExistWorkSheet(Ws.Range("H" & J).Value) Then
      Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("H" & J)
      'Range("D2") = ActiveSheet.Name ' Met le nom de la feuille dans la cellule D2
    End If
  Next J
  Ws.Select
End Sub
 
Function ExistWorkSheet(FEUILLE) As Boolean
'Principe : évalue la formule Feuille!A1 et vérifie si elle renvoie #REF
 
         ExistWorkSheet = Evaluate("ISREF('" & FEUILLE & "'!A1)")
End Function

Est il possible de créer des liens vers les onglets crées ?

Merci encore

[78chris]

Re

Oui tu peux soit créer le lien dans ton code avec

Code :

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

Hyperlinks.Add...

soit par une formule de type =LIEN_HYPERTEXTE située dans une cellule à coté

[janakka-horus]

Re

Oui tu peux soit créer le lien dans ton code avec

Code :

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

Hyperlinks.Add...

soit par une formule de type =LIEN_HYPERTEXTE située dans une cellule à coté

RE

A nouveau Merci
Tu pourrais me montrer stp sur le fichier ci joint?
Je voudrai que dans l'onglet sommaire que lorsque on clic sur le compte il nous renvoi sur l'onglet en question

[78chris]

Bonjour

Crée le lien à la main en utilisant l'enregistreur macro et adapte. Si tu as un souci, tu repostes.

[janakka-horus]

Bonjour

Crée le lien à la main en utilisant l'enregistreur macro et adapte. Si tu as un souci, tu repostes.

Merci à toi Je vais le faire.

Une dernière question.
Le code crée une erreur lorsque dans la liste des onglets à créer il y à une cellule vide. Pourrais tu m'indiquer comment faire pour qu'il ignore la ou les cellules vides ?

[78chris]

Re

Il serait plus logique d'éviter les cellules vides dans une liste servant au paramétrage de procédures VBA sinon intercaler un contrôle

Code :

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

1
2
3
 For J = 8 To Ws.Range("H" & Rows.Count).End(xlUp).Row
     If not isempty(Ws.Range("H" & J)) then
         If Not ExistWorkSheet(Ws.Range("H" & J).Value) Then

[janakka-horus]

Merci pour ton aide precieuse