Discussion :

[Citrax]

Salut tout le monde, je ne sais pas si certains pro du VBA trainent encore par ici, mais dans le doute je poste ma demande. Puisque trouvé nul part ailleurs.

Depuis 2 semaine je suis bloqué sur une commande VBA vraiment pratique, mais qui me rend dingue.
En fait j'ai recuperer et bricoler un code qui fait presque ce que je veux finaliser, mais il me manque le point le plus vital;
J'ai plusieurs references presque identique dans la colonne A et en double cliquant sur l'une d'elle je veux creer une nouvelle feuille unique, mais qui ne soit pas une feuille vierge d'excel, plutot une fiche de renseignement type que j'ai lourdement préremplie et preparé.
A chaque creation de la nouvelle fiche de rens, celle ci doit porter le nom de la cellule d'origine.
Et j'ai juste a cliquer dans les cases prevalidées.

Sauf que je ne sais absolument pas ou definir dans le code VBA que la nouvelle feuille ("FRT") sera mon modele vierge et le seul a dupliquer....

Please, help me, je vais imploser !!
Voila le 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
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As Range
Dim ws As Worksheet
Dim Nom As String
 
If Target.Column <> 1 Then Exit Sub
On Error Resume Next
Nom = Target.Value
If Nom = "" Then Exit Sub
For Each ws In Worksheets
    If ws.Name = Nom Then
        Call MsgBox("La [FRT] Fiche de Relevé de Traversée liée à cette référence existe déja.", vbCritical, "Impossible de créer une feuille")
        Exit Sub
    End If
Next ws
Sheets.Add , Sheets(Worksheets.Count)
ActiveSheet.Name = Nom
End Sub

[Philippe Tulliez]

Bonjour,
Actuellement le code que tu as réalisé vérifie si le nom de feuille cherchée qui correspondant à la valeur de la cellule où à eu lieu le double clic. Si le nom existe tu quittes la procédure dans le cas contraire tu insères une nouvelle feuille.

Sauf que je ne sais absolument pas ou definir dans le code VBA que la nouvelle feuille ("FRT") sera mon modele vierge et le seul a dupliquer....

Comment ferais-tu manuellement ?
Je suppose que la feuille modèle existe déjà et se trouve sur le même classeur ?
Donc il suffit de faire une copie de cette feuille modèle et la renommer du nom de la valeur de la cellule.
Pour en connaître le code, utilise l'enregistreur de macros

[Citrax]

Bonjour, merci pour la reponse rapide.
Alors jai testé votre solution et elle est bien, mais en procedant par simple copie ou par macro, je perd du coup toutes les fonctions interessantes qu’il y avait deja.

et le risque grave serait de creer un doublon car a terme j’ai plus de mille references.
Il faut donc qu’en double cliquant sur une cellule de ma liste, soit le message d’erreur apparait et empeche toute procedure, soit une nouvelle feuille est créee. Mais cette nouvelle feuille doit etre mon modele et deja nommée, sinon aucun interet.

Je ne sais pas vraiment comment je ferais manuellement sauf en repetant l'action 5000 fois.....
Avez vous une idée dans mon code de quelle sequence choisit de creer une feuille vierge ?
Il me semblait que c’etait “sheet.add” sauf que non…

ps: navré mais j'ai repondu il y a deux jours et le message n'est pas passé !?!

[Menhir]

en procedant par simple copie ou par macro, je perd du coup toutes les fonctions interessantes qu’il y avait deja.

Tu peux être plus explicite ? Comment procèdes-tu à la copie ? Qu'est-ce que tu perds exactement ?

et le risque grave serait de creer un doublon car a terme j’ai plus de mille references.

Si tu veux créer 1000 onglets dans un classeur, je doute que ce soit gérable et je ne suis même pas sûr que ce soit techniquement possible.

Pour éviter les doublons, il suffit que la désignation se trouvant dans ta cellule source soit unique.
Excel dispose d'un outil pour identifier les doublons dans la mise en forme conditionnelle.

Il faut donc qu’en double cliquant sur une cellule de ma liste, soit le message d’erreur apparait et empeche toute procedure, soit une nouvelle feuille est créee.

Quelle est la condition qui oriente vers l'un ou l'autre de ces "soit" ?

Mais cette nouvelle feuille doit etre mon modele et deja nommée, sinon aucun interet.

Regarde dans l'aide VBA Excel la méthode Copy de l'objet Worksheet.

Avez vous une idée dans mon code de quelle sequence choisit de creer une feuille vierge ?

Au lieu d'utiliser la méthode Add de l'objet Sheets, utilise la méthode Copy de l'objet Worksheet.
Voir sa syntaxe et son utilisation dans l'aide VBA.

[Citrax]

Bonjour tout le monde,
Alors tout d’abord merci de vos recherches actives pour m’aider, même si je n’ai pas tout saisi au langage de pro que vous user.Ensuite désolé pour l’absence un peu irrespectueuse, j’avais perdu le lien du forum, donc galère galère de retrouver cette page.
J’ai finalement réussi à trouver ma soluce d’après vos bonnes indications, car il s’agissait en fait d’une condition de création de feuille si la cible n’était pas référencée. Au debut j’avais pas compris.
Du coup en changeant les 2 dernières lignes j’ai obtenu la copie de mon model plutôt qu’une feuille vierge.
A la main la manip était simple, et pour milles références c’était trop long.

(ce que je perdais c’était la verif de la reference existante, et le message box, plus le double clic.
Les doublons n’etaient pas un probleme car j’en ai déjà 200 au depart, mais je voulais surtout eviter d’en créer d’autre par megarde.)
Voila, Je poste le code des fois qu’il puisse servir à d’autres.
Merci encore, & au plaisir.

« Dupliquer une feuille modelé à partir d’une liste de donnée » :

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
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As Range
Dim ws As Worksheet
Dim Nom As String
 
If Target.Column <> 4 Then Exit Sub
On Error Resume Next
Nom = Target.Value
If Nom = "" Then Exit Sub
For Each ws In Worksheets
    If ws.Name = Nom Then
        Call MsgBox("La Fiche liée à cette référence existe déja.", vbCritical, "Impossible de créer une feuille")
        Exit Sub
    End If
Next ws
Sheets("modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom
End Sub