Formule ou macro
lili
-
Fahora Messages postés 949 Statut Membre -
Fahora Messages postés 949 Statut Membre -
Bonjour,
je souhaiterais créer dans un classeur plusieurs feuilles avec les mêmes données à intérieures sauf 1 cellule qui changerait ex : 01-2016;02-2016;03-2016 etc.. puis imprimer ce ne sont pas des mois mais des numérotations. Quelle la procédure la plus rapide.merci pour vos réponses.
je souhaiterais créer dans un classeur plusieurs feuilles avec les mêmes données à intérieures sauf 1 cellule qui changerait ex : 01-2016;02-2016;03-2016 etc.. puis imprimer ce ne sont pas des mois mais des numérotations. Quelle la procédure la plus rapide.merci pour vos réponses.
1 réponse
-
Bonjour ,
Le plus simple est certainement de le faire à la main si tu n'en a pas énormément:
Ctrl+A (Sélectionner tout) , puis Ctrl + C (Copier).
Créer un nouvel onglet , Ctrl + V (Coller).
Et remplacer la celulle souhaité.
Ou sinon en faisant une macro avec une boucle allant de 1 à ton nombre souhaité.
Cordialement,
Fahora-
-
Bonjour,
Désolé pour le retard , regarde cette macro , je te conseille de la tester avant de l'appliquer à ton fichier. N'ayant pas connaissance de ton fichier de base, il faudra obligatoirement adapter. Pour vérifier que le copier/coller s'effectue correctement , une cellule (autre que la D1) devra être non vide avant d'utiliser la macro.
Sub Creer200feuilles()
'
' Creer200feuilles Macro
'
If ActiveSheet.Name <> "01-2016" Then
ActiveSheet.Name = "01-2016"
End If
For i = 2 To 200
Sheets("01-2016").Select
Cells.Select
Range("B8").Activate
Selection.Copy
Sheets.Add
If i < 10 Then
ActiveSheet.Name = "0" & i & "-2016"
ActiveSheet.Paste
Range("D1") = "0" & i & "-2016"
Else
ActiveSheet.Name = i & "-2016"
ActiveSheet.Paste
Range("D1") = i & "-2016"
End If
Next i
End Sub
Cordialement,
Fahora
-
