copier et nommer onglets selon plusieurs selections

Le
gilles
Bonjour à tous,
ci dessous un code qui, à partir de l'onglet "recap"
- examine les cellules qui comporte un X dans une selection
- active l'onglet "vierge" et le recopie,
- le renomme vierge & le contenu d'une cellule de "recap"
- saisit l'onglet ajouté et ajoute en A4 le contenu la cellule de "recap"
Après l'onglet "vierge", j'utilise le même code pour beaucoup d'autres
onglets et j'aimerais creer des variables pour simplifier sinon je dois
recopier ce code pour les 26 onglets
(ex: renommer les onglets ajoutés (pour le moment Name est lié à "vierge")

Sub essai()
On Error Resume Next
Dim Name As String
Sheets("recap").Select
Range("F6:X6").Select
For Each cell In Selection
If cell <> "" Then
Sheets("vierge").Copy After:=Sheets("vierge")
cell.Offset(-3, 0).Copy Sheets("vierge (2)").Range("A4").Offset(0, 0)
Name = "vierge" & cell.Offset(-3, 0).Value 'ça marche - définit le nom de la
feuille
ActiveSheet.Name = (Name)
End If
Next cell
Application.ScreenUpdating = False
End Sub

Merci aux puissants vbatistes qui voudront bien consacrer un ppeu de leur
temps précieux
Gilles
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #19114151
bonjour gilles,

cell.Offset(-3, 0).Copy ActiveSheet.Range("A4").Offset(0, 0)

isabelle

gilles a écrit :
Bonjour à tous,
ci dessous un code qui, à partir de l'onglet "recap"
- examine les cellules qui comporte un X dans une selection
- active l'onglet "vierge" et le recopie,
- le renomme vierge & le contenu d'une cellule de "recap"
- saisit l'onglet ajouté et ajoute en A4 le contenu la cellule de "recap"
Après l'onglet "vierge", j'utilise le même code pour beaucoup d'autres
onglets et j'aimerais creer des variables pour simplifier sinon je dois
recopier ce code pour les 26 onglets
(ex: renommer les onglets ajoutés (pour le moment Name est lié à "vierge")

Sub essai()
On Error Resume Next
Dim Name As String
Sheets("recap").Select
Range("F6:X6").Select
For Each cell In Selection
If cell <> "" Then
Sheets("vierge").Copy After:=Sheets("vierge")
cell.Offset(-3, 0).Copy Sheets("vierge (2)").Range("A4").Offset(0, 0)
Name = "vierge" & cell.Offset(-3, 0).Value 'ça marche - définit le nom de la
feuille
ActiveSheet.Name = (Name)
End If
Next cell
Application.ScreenUpdating = False
End Sub

Merci aux puissants vbatistes qui voudront bien consacrer un ppeu de leur
temps précieux...
Gilles



gilles
Le #19119281
Merci Isabelle,
ça me va bien...

--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...


"gilles" a écrit :

Bonjour à tous,
ci dessous un code qui, à partir de l'onglet "recap"
- examine les cellules qui comporte un X dans une selection
- active l'onglet "vierge" et le recopie,
- le renomme vierge & le contenu d'une cellule de "recap"
- saisit l'onglet ajouté et ajoute en A4 le contenu la cellule de "recap"
Après l'onglet "vierge", j'utilise le même code pour beaucoup d'autres
onglets et j'aimerais creer des variables pour simplifier sinon je dois
recopier ce code pour les 26 onglets
(ex: renommer les onglets ajoutés (pour le moment Name est lié à "vierge")

Sub essai()
On Error Resume Next
Dim Name As String
Sheets("recap").Select
Range("F6:X6").Select
For Each cell In Selection
If cell <> "" Then
Sheets("vierge").Copy After:=Sheets("vierge")
cell.Offset(-3, 0).Copy Sheets("vierge (2)").Range("A4").Offset(0, 0)
Name = "vierge" & cell.Offset(-3, 0).Value 'ça marche - définit le nom de la
feuille
ActiveSheet.Name = (Name)
End If
Next cell
Application.ScreenUpdating = False
End Sub

Merci aux puissants vbatistes qui voudront bien consacrer un ppeu de leur
temps précieux...
Gilles
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...


Publicité
Poster une réponse
Anonyme