Numérotation dans excell de 200 en 200

Résolu/Fermé
jybrepro Messages postés 4 Date d'inscription dimanche 17 mars 2013 Statut Membre Dernière intervention 17 mars 2013 - 17 mars 2013 à 08:11
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 17 mars 2013 à 10:28
Bonjour, je dois numéroter des couvertures de 340001 à 460000, mais de 200 en 200, sois 600 numéros. Donc, 340001 - 340201 - 340401 ... etc.
Novice en excell, merci de me donner l'information.
dans l'attente,
bonne journée



3 réponses

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
Modifié par Vaucluse le 17/03/2013 à 08:24
Bonjour
suffirait de savoir ce que vous appelez des couvertures?
A toutes fins utiles, à adapter:
en A1: 340001
en A2: 342001
sélectionner A1 avec A2
Tirer vers les bas sur la hauteur pour atteindre 460001 (ligne 616)
crdlmnt


Errare humanum est, perseverare diabolicum
0
jybrepro Messages postés 4 Date d'inscription dimanche 17 mars 2013 Statut Membre Dernière intervention 17 mars 2013
17 mars 2013 à 08:53
Bonjour,
Merci de votre réponse.
Ce sont des couvertures de carnets sur lesquelles il y a 1 seul numéro, le 1er, 1ère page : 340001. Je n'ai donc qu'une cellule dans ma page.
Page 2 : 1 cellule au même endroit que la une, et n° 340201 etc. jusqu'à 460000.J'espère avoir été suffisamment clair.
Merci de votre solution
Cordialement
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
Modifié par Vaucluse le 17/03/2013 à 10:27
OK, vous avez donc su adapter:je pense
340001 dans la première couverture
340201 dans la deuxiéme
sélectionner 2 couvertures complètes
tirer sur le champ jusqu'à 460001

En variante:
une feuille couverture avec un seul modèle
clic droit sur le nom de la feuille, et choisir "visualiser le code"

coller ce libellé:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 1 And Target.Row = 1 Then
s = Cells(3, 3).Value + 200
Cells(3, 3).Value = s
Application.CutCopyMode = False
Cells(3, 3).Select
End If

End Sub



La valeur de la cellule B3 augmente de 200 à chaque fois que vous sélectionnez A1

Pour ajuster à vos besoins, dans le code
Cells(3, 3) représente la cellule 3° ligne et 3° colonne de la feuille.

Crdlmnt
0
jybrepro Messages postés 4 Date d'inscription dimanche 17 mars 2013 Statut Membre Dernière intervention 17 mars 2013
17 mars 2013 à 10:25
C'est OK, merci beaucoup
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
17 mars 2013 à 10:28
Attention si vous utilisez la macro, je viens de corriger le texte.
0