Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Incrément toutes les 12 lignes

Incrément toutes les 12 lignes

7 réponses
Avatar
Franck
Bonjour,

Je cherches =E0 faire une incr=E9mentation un peu sp=E9ciale.

Je voudrais que en colonne E s'incr=E9mente une valeur mais=20
toutes les 12 lignes

Ligne 1 =E0 12 : valeur 01
Ligne 13 =E0 25 : valeur 02

etc.

jusqu'=E0 ce qu'il n'y ait plus de valeurs en colonne A

Merci
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Bonjrou,

=1+ENT(LIGNE()/12)
fromat ""00"
ou bien
=TEXTE(1+ENT(LIGNE()/12);"00")

puis repocie vers le bas

!!!
-----Message d'origine-----
Bonjour,

Je cherches à faire une incrémentation un peu spéciale.

Je voudrais que en colonne E s'incrémente une valeur
mais

toutes les 12 lignes

Ligne 1 à 12 : valeur 01
Ligne 13 à 25 : valeur 02

etc.

jusqu'à ce qu'il n'y ait plus de valeurs en colonne A

Merci
.



Avatar
Franck
Merci.

NB : Je suis aussi preneur d'une solution par macro, je
planches sur la boucle, mais je m'en sors pas....

-----Message d'origine-----
Bonjrou,

=1+ENT(LIGNE()/12)
fromat ""00"
ou bien
=TEXTE(1+ENT(LIGNE()/12);"00")

puis repocie vers le bas

!!!
-----Message d'origine-----
Bonjour,

Je cherches à faire une incrémentation un peu spéciale.

Je voudrais que en colonne E s'incrémente une valeur
mais

toutes les 12 lignes

Ligne 1 à 12 : valeur 01
Ligne 13 à 25 : valeur 02

etc.

jusqu'à ce qu'il n'y ait plus de valeurs en colonne A

Merci
.

.





Avatar
gaston
il faut définir une variable r as long
et que cette variable soit divisible par 12 c.a.d. que
lorsqu'on fait r/12 ça donne un nombre entier
à partir de là tu fais (excuse: j'ai pas le code exact)

On error Resume next
For r = Range("A:A").Find("*", [A1], , , xlByRows,_
xlPrevious).Row To 1 Step -1
If r/12 = un nombre entier 'je connais pas le code pour
exprimer ça
Range("A" & r).Select
ActiveCell.Formula = "machin"
next r




-----Message d'origine-----
Merci.

NB : Je suis aussi preneur d'une solution par macro, je
planches sur la boucle, mais je m'en sors pas....

-----Message d'origine-----
Bonjrou,

=1+ENT(LIGNE()/12)
fromat ""00"
ou bien
=TEXTE(1+ENT(LIGNE()/12);"00")

puis repocie vers le bas

!!!
-----Message d'origine-----
Bonjour,

Je cherches à faire une incrémentation un peu spéciale.

Je voudrais que en colonne E s'incrémente une valeur
mais

toutes les 12 lignes

Ligne 1 à 12 : valeur 01
Ligne 13 à 25 : valeur 02

etc.

jusqu'à ce qu'il n'y ait plus de valeurs en colonne A

Merci
.

.


.






Avatar
Patrick Bastard
Bonjour à toi aussi, *Franck*.
*Pour reprendre les termes de ton intervention* -voir en fin de message :

Je ne pense pas que l'appel à VBA se justifie pour une action aussi simple,
si c'est la seule.
As-tu essayé (adaptation de la prop de Anonymous)
Sélectionne ta colonne E,
=SI(A1="";"";1+ENT(LIGNE()/13))
Valide par Ctrl+Entrée pour copier jusqu'en bas.

J'espère avoir pu te dépanner
--
Bien cordialement,
==================================== P. Bastard.
Pour me contacter, remplacez "Chez" par @ dans l'adresse

Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net


Je voudrais que en colonne E s'incrémente une valeur mais
toutes les 12 lignes

Ligne 1 à 12 : valeur 01
Ligne 13 à 25 : valeur 02

etc.

jusqu'à ce qu'il n'y ait plus de valeurs en colonne A

Merci


Avatar
docm
Bonjour.

=1+ENT(LIGNE()/12)-1*(MOD(LIGNE();12)=0)

ou encore

=1+ENT(LIGNE()/12)-1*((LIGNE()/12)=ENT(LIGNE()/12))

Gerard

wrote in message
news:f00d01c43d7e$329f70a0$
Bonjrou,

=1+ENT(LIGNE()/12)
fromat ""00"
ou bien
=TEXTE(1+ENT(LIGNE()/12);"00")

puis repocie vers le bas

!!!
-----Message d'origine-----
Bonjour,

Je cherches à faire une incrémentation un peu spéciale.

Je voudrais que en colonne E s'incrémente une valeur
mais

toutes les 12 lignes

Ligne 1 à 12 : valeur 01
Ligne 13 à 25 : valeur 02

etc.

jusqu'à ce qu'il n'y ait plus de valeurs en colonne A

Merci
.



Avatar
ru-th
Salut

Sub test()
j = 0
For i = 1 To 36 Step 12
Range("e" & i & ":e" & i + 11).Value = j + 1
j = j + 1
Next
End Sub

a+
rural thierry
"Franck" a écrit dans le message de news:
f13201c43d7f$9cde45d0$
Merci.

NB : Je suis aussi preneur d'une solution par macro, je
planches sur la boucle, mais je m'en sors pas....

-----Message d'origine-----
Bonjrou,

=1+ENT(LIGNE()/12)
fromat ""00"
ou bien
=TEXTE(1+ENT(LIGNE()/12);"00")

puis repocie vers le bas

!!!
-----Message d'origine-----
Bonjour,

Je cherches à faire une incrémentation un peu spéciale.

Je voudrais que en colonne E s'incrémente une valeur
mais

toutes les 12 lignes

Ligne 1 à 12 : valeur 01
Ligne 13 à 25 : valeur 02

etc.

jusqu'à ce qu'il n'y ait plus de valeurs en colonne A

Merci
.

.





Avatar
ru-th
petit complément
Sub test()
k = [a65536].End(xlUp).Row
j = 0
For i = 1 To k Step 12
Range("e" & i & ":e" & i + 11).Value = j + 1
j = j + 1
Next
Range("e" & k + 1 & ":e65536").ClearContents
End Sub
a+
rural thierry
"ru-th" a écrit dans le message de news:
O#
Salut

Sub test()
j = 0
For i = 1 To 36 Step 12
Range("e" & i & ":e" & i + 11).Value = j + 1
j = j + 1
Next
End Sub

a+
rural thierry
"Franck" a écrit dans le message de news:
f13201c43d7f$9cde45d0$
Merci.

NB : Je suis aussi preneur d'une solution par macro, je
planches sur la boucle, mais je m'en sors pas....

-----Message d'origine-----
Bonjrou,

=1+ENT(LIGNE()/12)
fromat ""00"
ou bien
=TEXTE(1+ENT(LIGNE()/12);"00")

puis repocie vers le bas

!!!
-----Message d'origine-----
Bonjour,

Je cherches à faire une incrémentation un peu spéciale.

Je voudrais que en colonne E s'incrémente une valeur
mais

toutes les 12 lignes

Ligne 1 à 12 : valeur 01
Ligne 13 à 25 : valeur 02

etc.

jusqu'à ce qu'il n'y ait plus de valeurs en colonne A

Merci
.

.