Incrémentation avec 5 lignes identique

[basile772]

Bonjour à tous,

J'ai un petit problème sous excel, j'aimerai incrémenter mes cellules avec 5 cellules identiques, cad:
cellule 1 à 5: L0020
cellule 6 à 10: L0040
cellule 11 à 15: L0060

Si j'étire les cellules avec la croix, la cellule 16 à la valeur de la cellule 1.
Est ce possible de faire ça?

Merci de vos réponses

 

[Tibo]

Re : Incrémentation avec 5 lignes identique

Bonjour et bienvenue,

Sous réserve d'avoir compris, le plus simple ne serait-il pas de mettre en A16 :

=A1

et de tirer vers le bas cette formule

@+

 

[basile772]

Re : Incrémentation avec 5 lignes identique

Merci de t'as réponse rapide mais je souhaiterai continuer l'incrémentation pour avoir de A16 à A20 L0080 puis de A21 à A25 L0100....

Mon message n'est pas très claire 😱

 

[hoerwind]

Re : Incrémentation avec 5 lignes identique

Bonjour, salut Tibo,

A1 : ="L00"&(ENT((LIGNE()-1)/5)+1)*20
formule à copier vers le bas.

 

[Tibo]

Re : Incrémentation avec 5 lignes identique

re,

Essaye avec cette formule en A1 :

="L00"&(ENT((LIGNE()-1)/5)+1)*20

à tirer vers le bas

@+

Edit : Bing ! Salut hoerwind ! j'ai pas copié ! 😛

@+

 

[JCGL]

Re : Incrémentation avec 5 lignes identique

Bonjour à tous,
Salut Hoerwind,
Salut Tibo,

La formule de Hoerwind et de Tibo mais avec un format personnalisé pour avoir quatre digits après le "L" :

=(ENT((LIGNE()-1)/5)+1)*20

A+ à tous

 

[klin89]

Re : Incrémentation avec 5 lignes identique

Bonjour à tous,

A la va vite, incremente en colonne A à partir de la ligne 1.

Sub Incrementer()
Dim i As Long, j As Long
j = 1
For i = 1 To 5 Step 1
Cells(i, 1).Value = "L0020"
j = j + 1
Next i
For i = 6 To 10 Step 1
Cells(i, 1).Value = "L0040"
j = j + 1
Next i
For i = 11 To 15 Step 1
Cells(i, 1).Value = "L0060"
j = j + 1
Next i
End Sub

Klin89

 

[hoerwind]

Re : Incrémentation avec 5 lignes identique

Re,

Mon cher Tibo, pas besoin de me signaler que tu n'avais pas copié.
Un copieur essaie de cacher sa copie, par exemple en mettant le *20 devant la fonction ENT, ce qui n'est pas la cas !

Mais nous pouvons tous revoir notre copie, y compris notre ami JCGL !
Je viens de voir qu'après L0080 il faut L0100 et non L00100 !

Que direz-vous de : ="L"&TEXTE((ENT((LIGNE()-1)/5)+1)*20;"0000")
J'ai aussi essayer avec la fonction REPT, mais c'est beaucoup plus long.

 

[JCGL]

Re : Incrémentation avec 5 lignes identique

Bonjour à tous,

Mais nous pouvons tous revoir notre copie, y compris notre ami JCGL !
Je viens de voir qu'après L0080 il faut L0100 et non L00100

Voilà pourquoi je préconisais un format personnalisé "L"0000.

A+ à tous

 

[hoerwind]

Re : Incrémentation avec 5 lignes identique

Salut JCGL,

Exact, avec mes excuses !
Il est temps que j'aille dormir.

 

[basile772]

Re : Incrémentation avec 5 lignes identique

Merci beaucoup pour toutes vos réponses 🙂 !!

Mais j'ai encore une petite question, si je souhaite partir d'un nombre X j'utilise:
="L"&TEXTE((ENT((LIGNE()-1)/5)+1)*20;"X")

Par exemple:
="L"&TEXTE((ENT((LIGNE()-1)/5)+1)*20;"2600")
Le problème (ou mon erreur) est qu'après L2680, j'ai L26100

Comment faire pour repartir d'un nombre X, tout en gardant la même incrémentation?

Désolé pour mes réponses un peu longue, mais je n'ai pas de connexion internet permanente...

 

[JCGL]

Re : Incrémentation avec 5 lignes identique

Bonjour à tous,

Peux-tu essayer avec :

2600+(ENT((LIGNE()-1)/5)+1)*20

et toujours le format personnalisé

A+ à tous

 

[Tibo]

Re : Incrémentation avec 5 lignes identique

Bonjour,

Pourquoi ne pas reprendre la formule de Jean-Claude sous cette forme :

en A1 :

=2600+(ENT((LIGNE()-1)/5)+1)*20

à recopier vers le bas

Sous réserve que j'aie bien compris, ce qui n'est pas sûr

@+

 

[basile772]

Re : Incrémentation avec 5 lignes identique

c'est parfait, ça fonctionne !!!

Merci beaucoup de votre aide et de votre réactivité.