Formule ou macro

Fermé

lili - 7 janv. 2016 à 13:18
Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 - 12 janv. 2016 à 09:04

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.

A voir également:

Formule ou macro
Formule si et - Guide
Formule excel pour additionner plusieurs cellules - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel moyenne - Guide
Formule excel - Guide

1 réponse

Réponse 1 / 1

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
7 janv. 2016 à 13:26

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

lili
9 janv. 2016 à 16:24

Merci de ta réponse j'ai 200 feuilles à créer et éditer je voulais que ce soit automatiser pour faire autre chose entre temps pour la macro j'ai compris mais pas pour la numérotation de 1 a 200 !
Cordialement

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
12 janv. 2016 à 09:04

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

Discussions similaires

je veut créer des codes

exo pix