incrementer + 1 toutes les 3 lignes

[emp06bis]

Merci de m'aider
je souhaite incrémenter toutes les lignes un chiffre + 1
ligne 1 300
ligne 2 300
ligne 3 300
ligne 4 301
ligne 5 301
ligne 6 301
ligne 7 302
etc....
le fichier devant être ensuite reclassé, il ne faut pas que la formule puisse l'en empecher ou modiifé les numéros crés.
Merci

 

[pierrejean]

pour passer entexte avec 0 devant

Sub incr()
For Each cel In Selection
deb = cel.Row
col = cel.Column
Exit For
Next
For Each cel In Selection
fin = cel.Row
Next
premier = Cells(deb, col) - 1
For n = deb To fin
Cells(n, col) = '0' & Format(premier, '@@@@')
If n Mod 3 = 0 Then
premier = premier + 1
Cells(n, col) = '0' & Format(premier, '@@@@')
End If
Next
End Sub

 

[emp06bis]

Resalut, j'ai creer mon code, qui s'inspire pas mal du tiens (j'connais pas les fonctions en fait)
bref, voici le snippet:

Sub incr()
i = 0
valeurpas = 3               'valeur d'incrémentation, pendant combien de lignes
                            'on garde la même valeur
valeurCourrante = 100       'Valeur que tu veux donner à la premiere ligne
For Each cel In Selection
                            'traitement général
                            'condition d'incrementation
    If (i = 0 Or i = valeurpas) Then
        i = 1
        valeurCourrante = valeurCourrante + 1
    Else:
        i = i + 1
    End If
    ligne = cel.Row
    colonne = cel.Column
    Cells(ligne, colonne) = valeurCourrante
Next
End Sub

Merci à vous pour vos efforts!
Et bonne continuation, ca a l'air passionnant de programmer avec excel tout de même!
à bientôt

 

[AUDRY]

Bonjour, je souhaiterai créer le même type de Macro mais pas exactement.
Il faudrait que la macro s'exécute automatiquement quand on rentre une valeur manuelle en F9
En colonne F (des lignes 9 à 5008), je voudrais une incrémentation de +1 toutes les 89 cellules.

C’est à dire:
F9 valeur rentrée manuellement = 00001
F98 valeur auto macro = 00002
F187 valeur auto macro = 0003
Jusqu’à la ligne 5008

Merci d’avance pour votre aide
Audrey

 

[AUDRY]

Bonjour, je souhaiterai créer le même type de Macro mais pas exactement.
Il faudrait que la macro s'exécute automatiquement quand on rentre une valeur manuelle en F9
En colonne F (des lignes 9 à 5008), je voudrais une incrémentation de +1 toutes les 89 cellules.

C’est à dire:
F9 valeur rentrée manuellement = 00001
F98 valeur auto macro = 00002
F187 valeur auto macro = 0003
Jusqu’à la ligne 5008

Merci d’avance pour votre aide
Audrey