je cherche a ouvrir un nouveau onglet portant un nom dans une liste sur une
page d acceuil
exemple
j ai la feuille "acceuil" et dedans une liste de nom
ERIC
PATRICK
MARCEL
.....
je cherche a ouvrir a partir d une feuille "modele" une autre feuille
portant le nom de "eric" si je clique sur eric.....
car pour l instant j arrive pas a mettre un nom sur la feuille j ai "modele
2"
merci pour l aide
Patrick
(je me lance en VBA que depuis hier grace a des explications que j ai eu sur
le forum)
encore merci
--
_____________________________________
RCI Martinique en Live! :-)
http://www.rci.gp/player_radiowm_mart.asp
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
-On suppose que les noms sont dans la colonne A (A3:A10) -Déclenché sur Double-Clic sur la cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([A3:A10], Target) Is Nothing And Target.Count = 1 Then If Not OngletExiste(Target) Then Sheets.Add Type:= _ "C:Documents and SettingsjboisgonApplication DataMicrosoftModèlesmonmodele.xlt" ActiveSheet.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = Target Sheets("Accueil").Select End If Cancel = True End If End Sub
Function OngletExiste(onglet) témoin = False For Each s In ActiveWorkbook.Sheets If s.Name = onglet Then témoin = True Next s OngletExiste = témoin End Function
Cordialement JB
Bonjour,
-On suppose que les noms sont dans la colonne A (A3:A10)
-Déclenché sur Double-Clic sur la cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([A3:A10], Target) Is Nothing And Target.Count = 1
Then
If Not OngletExiste(Target) Then
Sheets.Add Type:= _
"C:Documents and SettingsjboisgonApplication
DataMicrosoftModèlesmonmodele.xlt"
ActiveSheet.Move after:=Sheets(Sheets.Count)
ActiveSheet.Name = Target
Sheets("Accueil").Select
End If
Cancel = True
End If
End Sub
Function OngletExiste(onglet)
témoin = False
For Each s In ActiveWorkbook.Sheets
If s.Name = onglet Then témoin = True
Next s
OngletExiste = témoin
End Function
-On suppose que les noms sont dans la colonne A (A3:A10) -Déclenché sur Double-Clic sur la cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([A3:A10], Target) Is Nothing And Target.Count = 1 Then If Not OngletExiste(Target) Then Sheets.Add Type:= _ "C:Documents and SettingsjboisgonApplication DataMicrosoftModèlesmonmodele.xlt" ActiveSheet.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = Target Sheets("Accueil").Select End If Cancel = True End If End Sub
Function OngletExiste(onglet) témoin = False For Each s In ActiveWorkbook.Sheets If s.Name = onglet Then témoin = True Next s OngletExiste = témoin End Function
Cordialement JB
Patrick C
Bonjour bin j ai fais des essais mais marche pas et comme je suis pas un pro des macros serait il possible d avoir ceci en exemple afin de bien comprendre
encore merci
"JB" a écrit dans le message de news:
Bonjour,
-On suppose que les noms sont dans la colonne A (A3:A10) -Déclenché sur Double-Clic sur la cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([A3:A10], Target) Is Nothing And Target.Count = 1 Then If Not OngletExiste(Target) Then Sheets.Add Type:= _ "C:Documents and SettingsjboisgonApplication DataMicrosoftModèlesmonmodele.xlt" ActiveSheet.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = Target Sheets("Accueil").Select End If Cancel = True End If End Sub
Function OngletExiste(onglet) témoin = False For Each s In ActiveWorkbook.Sheets If s.Name = onglet Then témoin = True Next s OngletExiste = témoin End Function
Cordialement JB
Bonjour
bin j ai fais des essais mais marche pas
et comme je suis pas un pro des macros
serait il possible d avoir ceci en exemple afin de bien comprendre
encore merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1139806180.541251.64620@z14g2000cwz.googlegroups.com...
Bonjour,
-On suppose que les noms sont dans la colonne A (A3:A10)
-Déclenché sur Double-Clic sur la cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect([A3:A10], Target) Is Nothing And Target.Count = 1
Then
If Not OngletExiste(Target) Then
Sheets.Add Type:= _
"C:Documents and SettingsjboisgonApplication
DataMicrosoftModèlesmonmodele.xlt"
ActiveSheet.Move after:=Sheets(Sheets.Count)
ActiveSheet.Name = Target
Sheets("Accueil").Select
End If
Cancel = True
End If
End Sub
Function OngletExiste(onglet)
témoin = False
For Each s In ActiveWorkbook.Sheets
If s.Name = onglet Then témoin = True
Next s
OngletExiste = témoin
End Function
Bonjour bin j ai fais des essais mais marche pas et comme je suis pas un pro des macros serait il possible d avoir ceci en exemple afin de bien comprendre
encore merci
"JB" a écrit dans le message de news:
Bonjour,
-On suppose que les noms sont dans la colonne A (A3:A10) -Déclenché sur Double-Clic sur la cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([A3:A10], Target) Is Nothing And Target.Count = 1 Then If Not OngletExiste(Target) Then Sheets.Add Type:= _ "C:Documents and SettingsjboisgonApplication DataMicrosoftModèlesmonmodele.xlt" ActiveSheet.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = Target Sheets("Accueil").Select End If Cancel = True End If End Sub
Function OngletExiste(onglet) témoin = False For Each s In ActiveWorkbook.Sheets If s.Name = onglet Then témoin = True Next s OngletExiste = témoin End Function
merci pour la reponse mais j ai un probleme le classeur navigue via le net sur plusieurs PC serait il possible de prendre le modele directement celui de onglet du claseurs dans le classeurs j ai acceuil la je place ma liste de noms et dans le 2eme onglet modèles dans votre macro il faut que je place le modeles dans le c:document...... et pas evident de faire cette manip sur tous les pc ou alors j ai pas compris
patrick "Patrick C" a écrit dans le message de news: 43f0074f$0$20165$
Bonjour a tous
je cherche a ouvrir un nouveau onglet portant un nom dans une liste sur une page d acceuil exemple j ai la feuille "acceuil" et dedans une liste de nom ERIC PATRICK MARCEL .....
je cherche a ouvrir a partir d une feuille "modele" une autre feuille portant le nom de "eric" si je clique sur eric..... car pour l instant j arrive pas a mettre un nom sur la feuille j ai "modele 2"
merci pour l aide Patrick (je me lance en VBA que depuis hier grace a des explications que j ai eu sur le forum) encore merci
-- _____________________________________
RCI Martinique en Live! :-) http://www.rci.gp/player_radiowm_mart.asp
Bonjour,
merci pour la reponse mais j ai un probleme
le classeur navigue via le net sur plusieurs PC
serait il possible de prendre le modele directement celui de onglet du
claseurs
dans le classeurs j ai acceuil
la je place ma liste de noms
et dans le 2eme onglet modèles
dans votre macro il faut que je place le modeles dans le c:document......
et pas evident de faire cette manip sur tous les pc
ou alors j ai pas compris
patrick
"Patrick C" <efr1ab@wanadoo.fr> a écrit dans le message de news:
43f0074f$0$20165$8fcfb975@news.wanadoo.fr...
Bonjour a tous
je cherche a ouvrir un nouveau onglet portant un nom dans une liste sur
une page d acceuil
exemple
j ai la feuille "acceuil" et dedans une liste de nom
ERIC
PATRICK
MARCEL
.....
je cherche a ouvrir a partir d une feuille "modele" une autre feuille
portant le nom de "eric" si je clique sur eric.....
car pour l instant j arrive pas a mettre un nom sur la feuille j ai
"modele 2"
merci pour l aide
Patrick
(je me lance en VBA que depuis hier grace a des explications que j ai eu
sur le forum)
encore merci
--
_____________________________________
RCI Martinique en Live! :-)
http://www.rci.gp/player_radiowm_mart.asp
merci pour la reponse mais j ai un probleme le classeur navigue via le net sur plusieurs PC serait il possible de prendre le modele directement celui de onglet du claseurs dans le classeurs j ai acceuil la je place ma liste de noms et dans le 2eme onglet modèles dans votre macro il faut que je place le modeles dans le c:document...... et pas evident de faire cette manip sur tous les pc ou alors j ai pas compris
patrick "Patrick C" a écrit dans le message de news: 43f0074f$0$20165$
Bonjour a tous
je cherche a ouvrir un nouveau onglet portant un nom dans une liste sur une page d acceuil exemple j ai la feuille "acceuil" et dedans une liste de nom ERIC PATRICK MARCEL .....
je cherche a ouvrir a partir d une feuille "modele" une autre feuille portant le nom de "eric" si je clique sur eric..... car pour l instant j arrive pas a mettre un nom sur la feuille j ai "modele 2"
merci pour l aide Patrick (je me lance en VBA que depuis hier grace a des explications que j ai eu sur le forum) encore merci
-- _____________________________________
RCI Martinique en Live! :-) http://www.rci.gp/player_radiowm_mart.asp
