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

 

[Robert]

Bonjour Emp numéro bis, bonjour le forum,

En formule je ne sais pas faire mais peut-être que cette macro fera l'affaire :

Sub Macro1()
Dim deb As Long 'déclare la variable deb

deb = 300 'définit la variable deb
Range('A1') = deb 'attribue la valeur deb à la cellule A1

For x = 2 To 501 'boucle sur 500 lignes (à adapter au nombre de lignes que tu désires)

If x Mod 3 = 1 Then 'condition : si le reste de la division de x pas 3 est égal à 1
deb = deb + 1 'redéfinit la variable deb
Cells(x, 1) = deb 'attribue la valeur deb à la cellue LxC1
Else 'sinon
Cells(x, 1) = deb 'attribue la valeur deb à la cellue LxC1
End If 'fin de la condition

Next x 'prochaine ligne de la boucle

End Sub

 

[Monique]

Bonjour,

Par formule

En ligne 1 :
=ENT((LIGNE()-1)/3)+300

puis à copier coller vers le bas

 

[emp06bis]

Merci je le met en place

 

[emp06bis]

Rebonjour et encore merci pour le code précédent.
Je n'ai pas très bien compris comment faire pour modifier les cases (par exemple) en partant de I5 jusqu'à I13 par exemple.
Merci encore de votre aide!

 

[emp06bis]

Merci,
le probl c'est que si je fais un tri avec cette formule, je pense que ce n'est pas sur que ca fonctionne encore.
Pouvez vous me le confirmer
Merci

 

[Monique]

Re,

Si tu fais un tri avec cette formule,
ça fonctionne (la formule)
c'est le tri qui ne fonctionne pas.
300 reste en lignes 1, 2 et 3,
301 en lignes 4, 5 et 6

 

[emp06bis]

Effectivement, j'ai besoin de pouvoir trier ma feuille par la suite.
A tu une autre formule pour pouvoir inscrire cette incrementation une seule fois
Merci

 

[Monique]

Re,

Si tu nous dis pourquoi tu veux 300 en ligne 1, puis 301 en ligne 3,
et quelles sont les autres données à trier
et en fonction de quoi,
peut-être que l'on pourrait trouver autre chose

 

[emp06bis]

Si tu une base données simple mais avec une 15qz de champs
noms libelleé montants numéro de pièces code journal etc...
j'ai besoin d'incrémenter mes numéros de fres qui se trouvent au sein de cette base
Mais j'ai besoin également par la suite de pouvoir continuer à faire des tris
ordre alpha code piéces montants etc...
suis je assez clair ?
Merci de votre aide

 

[Monique]

Re,

Pas compris :
qu'est ce que le n° identique sur 3 lignes vient faire dans l'histoire ?
Tu as 3 lignes pour chacun des 'nom libellé montant numéro de pièces code journal, etc' ?

 

[emp06bis]

ligne 1 numéro 300
ligne 2 nuémro 300
ligne 3 numéro 300
ligne 4 num 301
ligne 5 num 301
ligne 6 num 301
ligne 7 num 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]

veux-tu essayer cette macro
tu selectionnes la colonne que tu veux traiter et tu lances la macro

si ma façon de reperer les premieres et dernieres cellules de la selection paraissent etranges (et c'est surement le cas) j suis interessé par toute autre methode

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) = premier
If n Mod 3 = 0 Then
premier = premier + 1
Cells(n, col) = premier
End If
Next
End Sub

 

[Monique]

Re,

Une autre solution :
tu copies la formule sur autant de lignes que tu veux
puis tu copies toute la plage,
puis Edition - Collage spécial - Valeurs.

 

[pierrejean]

je te reponds ici et souhaite egalement que tu y restes
tu mets 100 en I5 tu selectionnes de I5 à I13 puis tu lances la macro
dis-moi deja si cela fonctionne
pour le texte je regarde