Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
uDGCX2oEJHA.4936@TK2MSFTNGP03.phx.gbl...
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
uDGCX2oEJHA.4936@TK2MSFTNGP03.phx.gbl...
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
(meme pouvant contenir 20 caracteres)
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié de
dire que le nom des onglet pourvait contenir plus de 3 caracteres (meme
pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news:
%Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
(meme pouvant contenir 20 caracteres)
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié de
dire que le nom des onglet pourvait contenir plus de 3 caracteres (meme
pouvant contenir 20 caracteres)
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%238PtrepEJHA.4304@TK2MSFTNGP02.phx.gbl...
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
uDGCX2oEJHA.4936@TK2MSFTNGP03.phx.gbl...
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
(meme pouvant contenir 20 caracteres)
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié de
dire que le nom des onglet pourvait contenir plus de 3 caracteres (meme
pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news:
%Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié de
dire que le nom des onglet pourvait contenir plus de 3 caracteres (meme
pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news:
%Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié de
dire que le nom des onglet pourvait contenir plus de 3 caracteres (meme
pouvant contenir 20 caracteres)
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%238PtrepEJHA.4304@TK2MSFTNGP02.phx.gbl...
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
uDGCX2oEJHA.4936@TK2MSFTNGP03.phx.gbl...
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié de
dire que le nom des onglet pourvait contenir plus de 3 caracteres (meme
pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news:
%Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié de dire que le nom des onglet pourvait contenir
plus de 3 caracteres (meme pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news: %Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié de dire que le nom des onglet pourvait contenir
plus de 3 caracteres (meme pouvant contenir 20 caracteres)
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: %238PtrepEJHA.4304@TK2MSFTNGP02.phx.gbl...
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" <maud2604@neuf.fr> a écrit dans le message de news: uDGCX2oEJHA.4936@TK2MSFTNGP03.phx.gbl...
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié de dire que le nom des onglet pourvait contenir
plus de 3 caracteres (meme pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news: %Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
euh oublier mon dernier commentaire c est bon ca marche/.....
merci bcps..
juste une chose savez vous comment changer tous les n-ièmes caracteres des
noms des onglets.. je voudrais changer pour tous les onglets qui finissent
par +1 les caracteres numéros 5 et 6 iemes caracteres en partant de la
droite
exemple P_xxx yyyy R+7-z+1 je voudrais changer automatiquement le + et
le caractere a sa droite..donnant par exemple:
P_xxx yyyy Rtt-z+1
merci d avance
"maud s" a écrit dans le message de news:
%MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié
de dire que le nom des onglet pourvait contenir plus de 3 caracteres
(meme pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news:
%Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
euh oublier mon dernier commentaire c est bon ca marche/.....
merci bcps..
juste une chose savez vous comment changer tous les n-ièmes caracteres des
noms des onglets.. je voudrais changer pour tous les onglets qui finissent
par +1 les caracteres numéros 5 et 6 iemes caracteres en partant de la
droite
exemple P_xxx yyyy R+7-z+1 je voudrais changer automatiquement le + et
le caractere a sa droite..donnant par exemple:
P_xxx yyyy Rtt-z+1
merci d avance
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
%23Hffj3pEJHA.1272@TK2MSFTNGP02.phx.gbl...
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié
de dire que le nom des onglet pourvait contenir plus de 3 caracteres
(meme pouvant contenir 20 caracteres)
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%238PtrepEJHA.4304@TK2MSFTNGP02.phx.gbl...
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
uDGCX2oEJHA.4936@TK2MSFTNGP03.phx.gbl...
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
euh oublier mon dernier commentaire c est bon ca marche/.....
merci bcps..
juste une chose savez vous comment changer tous les n-ièmes caracteres des
noms des onglets.. je voudrais changer pour tous les onglets qui finissent
par +1 les caracteres numéros 5 et 6 iemes caracteres en partant de la
droite
exemple P_xxx yyyy R+7-z+1 je voudrais changer automatiquement le + et
le caractere a sa droite..donnant par exemple:
P_xxx yyyy Rtt-z+1
merci d avance
"maud s" a écrit dans le message de news:
%MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié
de dire que le nom des onglet pourvait contenir plus de 3 caracteres
(meme pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news:
%Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE 20.
merci bcps de botre aide....
stefane
Re...
C'est une nouvelle question ??
Ou dans la foulé de la création des précédentes feuilles.
Si oui sur les feuilles qui viennent d'être crées ou toutes les feuilles
présentes ?
--
Salutations
JJ
"maud s" a écrit dans le message de news:euh oublier mon dernier commentaire c est bon ca marche/.....
merci bcps..
juste une chose savez vous comment changer tous les n-ièmes caracteres
des noms des onglets.. je voudrais changer pour tous les onglets qui
finissent par +1 les caracteres numéros 5 et 6 iemes caracteres en
partant de la droite
exemple P_xxx yyyy R+7-z+1 je voudrais changer automatiquement le + et
le caractere a sa droite..donnant par exemple:
P_xxx yyyy Rtt-z+1
merci d avance
"maud s" a écrit dans le message de news:
%MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié
de dire que le nom des onglet pourvait contenir plus de 3 caracteres
(meme pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news:
%Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE
20.
merci bcps de botre aide....
stefane
Re...
C'est une nouvelle question ??
Ou dans la foulé de la création des précédentes feuilles.
Si oui sur les feuilles qui viennent d'être crées ou toutes les feuilles
présentes ?
--
Salutations
JJ
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
OTICBIqEJHA.5060@TK2MSFTNGP03.phx.gbl...
euh oublier mon dernier commentaire c est bon ca marche/.....
merci bcps..
juste une chose savez vous comment changer tous les n-ièmes caracteres
des noms des onglets.. je voudrais changer pour tous les onglets qui
finissent par +1 les caracteres numéros 5 et 6 iemes caracteres en
partant de la droite
exemple P_xxx yyyy R+7-z+1 je voudrais changer automatiquement le + et
le caractere a sa droite..donnant par exemple:
P_xxx yyyy Rtt-z+1
merci d avance
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
%23Hffj3pEJHA.1272@TK2MSFTNGP02.phx.gbl...
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié
de dire que le nom des onglet pourvait contenir plus de 3 caracteres
(meme pouvant contenir 20 caracteres)
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%238PtrepEJHA.4304@TK2MSFTNGP02.phx.gbl...
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
uDGCX2oEJHA.4936@TK2MSFTNGP03.phx.gbl...
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE
20.
merci bcps de botre aide....
stefane
Re...
C'est une nouvelle question ??
Ou dans la foulé de la création des précédentes feuilles.
Si oui sur les feuilles qui viennent d'être crées ou toutes les feuilles
présentes ?
--
Salutations
JJ
"maud s" a écrit dans le message de news:euh oublier mon dernier commentaire c est bon ca marche/.....
merci bcps..
juste une chose savez vous comment changer tous les n-ièmes caracteres
des noms des onglets.. je voudrais changer pour tous les onglets qui
finissent par +1 les caracteres numéros 5 et 6 iemes caracteres en
partant de la droite
exemple P_xxx yyyy R+7-z+1 je voudrais changer automatiquement le + et
le caractere a sa droite..donnant par exemple:
P_xxx yyyy Rtt-z+1
merci d avance
"maud s" a écrit dans le message de news:
%MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié
de dire que le nom des onglet pourvait contenir plus de 3 caracteres
(meme pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news:
%Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE
20.
merci bcps de botre aide....
stefane
toutes les feuilles qui viennent d etre créer..
toutes les feuilles qui viennent d etre créer..
merci d avance
"Jacky" a écrit dans le message de news:Re...
C'est une nouvelle question ??
Ou dans la foulé de la création des précédentes feuilles.
Si oui sur les feuilles qui viennent d'être crées ou toutes les feuilles
présentes ?
--
Salutations
JJ
"maud s" a écrit dans le message de news:euh oublier mon dernier commentaire c est bon ca marche/.....
merci bcps..
juste une chose savez vous comment changer tous les n-ièmes caracteres
des noms des onglets.. je voudrais changer pour tous les onglets qui
finissent par +1 les caracteres numéros 5 et 6 iemes caracteres en
partant de la droite
exemple P_xxx yyyy R+7-z+1 je voudrais changer automatiquement le + et
le caractere a sa droite..donnant par exemple:
P_xxx yyyy Rtt-z+1
merci d avance
"maud s" a écrit dans le message de news:
%MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié
de dire que le nom des onglet pourvait contenir plus de 3 caracteres
(meme pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news:
%Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE
20.
merci bcps de botre aide....
stefane
toutes les feuilles qui viennent d etre créer..
toutes les feuilles qui viennent d etre créer..
merci d avance
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
OzKEjeqEJHA.680@TK2MSFTNGP03.phx.gbl...
Re...
C'est une nouvelle question ??
Ou dans la foulé de la création des précédentes feuilles.
Si oui sur les feuilles qui viennent d'être crées ou toutes les feuilles
présentes ?
--
Salutations
JJ
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
OTICBIqEJHA.5060@TK2MSFTNGP03.phx.gbl...
euh oublier mon dernier commentaire c est bon ca marche/.....
merci bcps..
juste une chose savez vous comment changer tous les n-ièmes caracteres
des noms des onglets.. je voudrais changer pour tous les onglets qui
finissent par +1 les caracteres numéros 5 et 6 iemes caracteres en
partant de la droite
exemple P_xxx yyyy R+7-z+1 je voudrais changer automatiquement le + et
le caractere a sa droite..donnant par exemple:
P_xxx yyyy Rtt-z+1
merci d avance
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
%23Hffj3pEJHA.1272@TK2MSFTNGP02.phx.gbl...
MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié
de dire que le nom des onglet pourvait contenir plus de 3 caracteres
(meme pouvant contenir 20 caracteres)
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%238PtrepEJHA.4304@TK2MSFTNGP02.phx.gbl...
Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
uDGCX2oEJHA.4936@TK2MSFTNGP03.phx.gbl...
Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE
20.
merci bcps de botre aide....
stefane
toutes les feuilles qui viennent d etre créer..
toutes les feuilles qui viennent d etre créer..
merci d avance
"Jacky" a écrit dans le message de news:Re...
C'est une nouvelle question ??
Ou dans la foulé de la création des précédentes feuilles.
Si oui sur les feuilles qui viennent d'être crées ou toutes les feuilles
présentes ?
--
Salutations
JJ
"maud s" a écrit dans le message de news:euh oublier mon dernier commentaire c est bon ca marche/.....
merci bcps..
juste une chose savez vous comment changer tous les n-ièmes caracteres
des noms des onglets.. je voudrais changer pour tous les onglets qui
finissent par +1 les caracteres numéros 5 et 6 iemes caracteres en
partant de la droite
exemple P_xxx yyyy R+7-z+1 je voudrais changer automatiquement le + et
le caractere a sa droite..donnant par exemple:
P_xxx yyyy Rtt-z+1
merci d avance
"maud s" a écrit dans le message de news:
%MERCI BCPS pour votre aide.... mais zuuuuuuuuuuttttttttttt j ai oublié
de dire que le nom des onglet pourvait contenir plus de 3 caracteres
(meme pouvant contenir 20 caracteres)
"Jacky" a écrit dans le message de news:
%Bonsoir,
J'ai pris en compte que XXX peut être remplacé par autre chose
La macro est lancer a partir de la feuille XXX
'--------------
Sub jj()
On Error GoTo erreur
Dim x As String
nom = ActiveSheet.Name
x = Left(ActiveSheet.Name, Len(ActiveSheet.Name) - 1)
Sheets.Add.Name = ActiveSheet.Name & "_" & x & "1"
For i = 2 To Sheets(nom).[a1]
Sheets.Add.Name = x & i - 1 & "_" & x & i
Next
Exit Sub
erreur:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Resume Next
End Sub
'----------------
--
Salutations
JJ
"maud s" a écrit dans le message de news:Bonjour
Voila j ai un fichier contenant une feuille nommée XXX..
j ai une cellule A1 par exemple qui contient le chiffre 6
je souhaiterais
Q une macro m'execute une création d onglet allant de XXX aaa / XXX
aaa(+1)
exemple donc 6 en A1
onglet XXX
ce qui donnerais
1ER ONGLET XXX / XX1
2EME ONGLET XX1 / XX2
3EME ONGLET XX2 / XX3
DERNIER ONGLET XX5/XX6
S ARRETE A 6 PARCE QU EN A1 J AI MIS LE CHIFFRE 6 MAIS IL PEUT ETRE
20.
merci bcps de botre aide....
stefane