Numérotation automatique
JGui
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonsoir à tous,
Je m'y connais vraiment très peu en VBA mais je m'instruis doucement.
Néanmoins j'ai besoin d'aide svp, je m'explique:
Je souhaite créer une fiche de signalement pour une personne mais il faut qu'elles soient numérotées.
Pour se faire je pensais créer une macro ou elle cliquerai sur un bouton et la fiche se créerait automatiquement (jusque la j'ai réussis) mais la numérotation ne fonctionne pas.
Auriez vous des conseils svp? assez simple pour moi?
Merci
Je m'y connais vraiment très peu en VBA mais je m'instruis doucement.
Néanmoins j'ai besoin d'aide svp, je m'explique:
Je souhaite créer une fiche de signalement pour une personne mais il faut qu'elles soient numérotées.
Pour se faire je pensais créer une macro ou elle cliquerai sur un bouton et la fiche se créerait automatiquement (jusque la j'ai réussis) mais la numérotation ne fonctionne pas.
Sub Macro11()
'
' Macro11 Macro
'
'
Sheets("Fiche Signalement ").Select
Sheets("Fiche Signalement ").Copy After:=Sheets(1)
Sheets("Fiche Signalement ").Range("L4").Value = Sheets("Fiche Signalement ").Range("L4") + 1
End Sub
Auriez vous des conseils svp? assez simple pour moi?
Merci
A voir également:
- Numérotation automatique
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique gmail - Guide
- Sommaire automatique word - Guide
1 réponse
Bonsoir
1) pourquoi un espace dans le nom de la feuille à la fin ? s'il n'y en pas dans le noms (ce qui devrait le cas en principe, ça va buguer !)
2) Il faut incrémenter la cellule de la feuille modèle AVANT de la copier
3) Il faut renommer la nouvelle feuille créée sinon elle va s'appeler "Fiche signalement (2)" etc nom trop long pour les onglets, il est préférable de nommer les feuilles par ex FS_1, FS_2 ....
Voilà la macro qui fait tout ceci :
Cdlmnt
Via
1) pourquoi un espace dans le nom de la feuille à la fin ? s'il n'y en pas dans le noms (ce qui devrait le cas en principe, ça va buguer !)
2) Il faut incrémenter la cellule de la feuille modèle AVANT de la copier
3) Il faut renommer la nouvelle feuille créée sinon elle va s'appeler "Fiche signalement (2)" etc nom trop long pour les onglets, il est préférable de nommer les feuilles par ex FS_1, FS_2 ....
Voilà la macro qui fait tout ceci :
Sub nouvelle_fiche() Sheets("Fiche Signalement").Range("L4").Value = Sheets("Fiche Signalement").Range("L4") + 1 Sheets("Fiche Signalement").Select Sheets("Fiche Signalement").Copy After:=Sheets(1) Sheets("Fiche Signalement (2)").Name = "FS_" & Sheets("Fiche Signalement").Range("L4") End Sub
Cdlmnt
Via