bonjour à tous
j'ai un onglet SAISIE et un onglet MODELE
Sur SAISIE je double-click sur une cellule de la colonne M (par exemple
M12)et je copie l'onglet MODELE.
L'onglet crée prend le nom de la valeur de C4 (ex:PARIS en M4 donne onglet
PARIS)
J'ai voulu compléter mon code pour que PARIS s'inscrive aussi en A1 de la
feuille créée
J'approche en tatonnant mais à chaque fois, c'est A1 de l'onglet SAISIE et
non PARIS qui est renseigné
Si un puissant VBAtiste veut bien aider le nullos que je suis , qu'il ou
elle en soit remerciée
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
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
JLuc
*Bonjour gilles*, Quel est ton code pour mettre la valeur PARIS dans le nom de l'onglet ?
bonjour à tous j'ai un onglet SAISIE et un onglet MODELE Sur SAISIE je double-click sur une cellule de la colonne M (par exemple M12)et je copie l'onglet MODELE. L'onglet crée prend le nom de la valeur de C4 (ex:PARIS en M4 donne onglet PARIS) J'ai voulu compléter mon code pour que PARIS s'inscrive aussi en A1 de la feuille créée J'approche en tatonnant mais à chaque fois, c'est A1 de l'onglet SAISIE et non PARIS qui est renseigné Si un puissant VBAtiste veut bien aider le nullos que je suis , qu'il ou elle en soit remerciée
Gilles en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui, mais à chaque jour suffit sa peine...
*Bonjour gilles*,
Quel est ton code pour mettre la valeur PARIS dans le nom de l'onglet ?
bonjour à tous
j'ai un onglet SAISIE et un onglet MODELE
Sur SAISIE je double-click sur une cellule de la colonne M (par exemple
M12)et je copie l'onglet MODELE.
L'onglet crée prend le nom de la valeur de C4 (ex:PARIS en M4 donne onglet
PARIS)
J'ai voulu compléter mon code pour que PARIS s'inscrive aussi en A1 de la
feuille créée
J'approche en tatonnant mais à chaque fois, c'est A1 de l'onglet SAISIE et
non PARIS qui est renseigné
Si un puissant VBAtiste veut bien aider le nullos que je suis , qu'il ou
elle en soit remerciée
Gilles
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
*Bonjour gilles*, Quel est ton code pour mettre la valeur PARIS dans le nom de l'onglet ?
bonjour à tous j'ai un onglet SAISIE et un onglet MODELE Sur SAISIE je double-click sur une cellule de la colonne M (par exemple M12)et je copie l'onglet MODELE. L'onglet crée prend le nom de la valeur de C4 (ex:PARIS en M4 donne onglet PARIS) J'ai voulu compléter mon code pour que PARIS s'inscrive aussi en A1 de la feuille créée J'approche en tatonnant mais à chaque fois, c'est A1 de l'onglet SAISIE et non PARIS qui est renseigné Si un puissant VBAtiste veut bien aider le nullos que je suis , qu'il ou elle en soit remerciée
Gilles en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui, mais à chaque jour suffit sa peine...
bonjour à jean luc et jb ...et merci grâce à la lumière divine que vous avez transmis !! en adaptant la suggestion de jb, voila le code final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'essai de créer feuille par double click Dim cell As Range, Nom$, Sht As Worksheet
For Each cell In Selection Nom = cell.Value If Nom <> "" Then On Error Resume Next 'sur erreur reprendre Worksheets("modèle").Copy after:=Worksheets("modèle") ActiveSheet.Name = Nom ActiveSheet.Range("A1") = Nom End If Next cell Sheets("saisie").Select [d1].Select End Sub
merci et à+ -- gilles72
Si la variable m contient PARIS:
Sheets(m).Range("A1")=m
JB
bonjour à jean luc et jb
...et merci
grâce à la lumière divine que vous avez transmis !!
en adaptant la suggestion de jb,
voila le code final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'essai de créer feuille par double click
Dim cell As Range, Nom$, Sht As Worksheet
For Each cell In Selection
Nom = cell.Value
If Nom <> "" Then
On Error Resume Next 'sur erreur reprendre
Worksheets("modèle").Copy after:=Worksheets("modèle")
ActiveSheet.Name = Nom
ActiveSheet.Range("A1") = Nom
End If
Next cell
Sheets("saisie").Select
[d1].Select
End Sub
bonjour à jean luc et jb ...et merci grâce à la lumière divine que vous avez transmis !! en adaptant la suggestion de jb, voila le code final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'essai de créer feuille par double click Dim cell As Range, Nom$, Sht As Worksheet
For Each cell In Selection Nom = cell.Value If Nom <> "" Then On Error Resume Next 'sur erreur reprendre Worksheets("modèle").Copy after:=Worksheets("modèle") ActiveSheet.Name = Nom ActiveSheet.Range("A1") = Nom End If Next cell Sheets("saisie").Select [d1].Select End Sub
