incrementer + 1 toutes les 3 lignes

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Février 2006

• #2

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 5 Février 2006

• #3

Bonjour,

Par formule

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

puis à copier coller vers le bas

 

Vote positif 0 Vote négatif

emp06bis

XLDnaute Junior

• 5 Février 2006

• #4

Merci je le met en place

 

Vote positif 0 Vote négatif

emp06bis

XLDnaute Junior

• 5 Février 2006

• #5

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!

 

Vote positif 0 Vote négatif

emp06bis

XLDnaute Junior

• 5 Février 2006

• #6

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 5 Février 2006

• #7

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

 

Vote positif 0 Vote négatif

emp06bis

XLDnaute Junior

• 5 Février 2006

• #8

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 5 Février 2006

• #9

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

 

Vote positif 0 Vote négatif

emp06bis

XLDnaute Junior

• 5 Février 2006

• #10

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 5 Février 2006

• #11

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' ?

 

Vote positif 0 Vote négatif

emp06bis

XLDnaute Junior

• 5 Février 2006

• #12

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Février 2006

• #13

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 5 Février 2006

• #14

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Février 2006

• #15

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

 

Vote positif 0 Vote négatif