repeter une serie

[adkheir]

bonjour le forum
je cherche une fonction qui duplique le chiffre 1 dix fois et le 2 dix et ainsi de suite
merci pour votre aide

 

[Fred0o]

Re : repeter une serie

Bonsoir adkheir,

Voici un code qui permet de le faire.

Tu fais Alt + F11, puis tu le colles dans un module. Ensuite, tu fais Alt + F8, tu sélectionnes "repeter" et c'est parti !

Sub repeter()
    Dim i, j
    For i = 5 To [C65536].End(xlUp).Row
        For j = 5 To 14
            Cells((i - 5) * 10 + j, 4) = Cells(i, 3)
        Next
    Next
End Sub

A+

 

[CBernardT]

Re : repeter une serie

Bonsoir,

Essaye ce code pour une matrice de 1000 éléments :

Sub SériesDix()
Dim i As Integer, j As Integer, N As Integer
N = 1
For i = 1 To 1000 Step 10
For j = i To i + 9
Cells(j, 1) = N
Next j
N = N + 1
Next i
End Sub

 

[adkheir]

Re : repeter une serie

bonsoir FredOo
merci pour cette reponse rapide seulement je recoie un message erreur pj , encore peut le faire a l'aide d'une fonction personalisée

merci encore

 

[Staple1600]

Re : repeter une serie

Bonsoir à tous

Une autre solution par formules
en A1 saisir
=(LIGNE()+10-MOD(LIGNE();10))/10
puis recopier vers le bas

EDITION:Bonsoir FredOo

 

[adkheir]

Re : repeter une serie

bonsoir BernardT
effectivement ton code marche et merci a toi aussi FredOo
a++

 

[Staple1600]

Re : repeter une serie

Re


Et moi ? je pue du bec peut être ?

 

[JNP]

Re : repeter une serie

Bonsoir le fil ,
Sinon, par formule, à glisser vers le bas

=ENT(LIGNES($1:1)/10+0,9)

Bonne soirée
Ajout : Jean-Marie, Je ne pense pas que ce soit ton haleine qui soit en cause, mais 2 minutes de décalages dans les posts ...

 

[Staple1600]

Re : repeter une serie

Re

Bonsoir JNP
Définitivement, je dois avoir la bouche avariée

(Jolie formule, je savais que la mienne était trop alambiquée )

PS: Tu as vu le code de KenDev chez le grand nippon ?

EDITION: Tédites trop vite JNP

 

[Fred0o]

Re : repeter une serie

Re-bonsoir adkheir, bonsoir CBernardT,

Je ne comprends pas pourquoi tu as ce message d'erreur car dans ma macro, je n'utilise ni la fonction "RETOUR()" ni la fonction "ARRETER()".
Ensuite, ce n'est pas possible de le faire par fonction car sinon on va se confronter à des références circulaires.

Poste le fichier que tu viens de modifier et j’essaierais de le débugger.

A+

Edit : Je ne sens toujours rien d'ici
Ne pas tenir compte de ce message, je ne rafraîchis pas assez vite !!!

 

[adkheir]

Re : repeter une serie

merci JNP pour la fonction
peut on augmenter le pas a 20
merci

 

[Staple1600]

Re : repeter une serie

Re


adkheir
Tu le fais exprès ou quoi ?
Tu n'as pas vu mes précédents messages ????

Sinon pour ton 20
Avec la formule de JNP

=ENT(LIGNES($1:1)/21+1)

et si on prend ma formule

=(LIGNE()+21-MOD(LIGNE();21))/21

 

[JNP]

Re : repeter une serie

Re ,

adkheir
Tu le fais exprès ou quoi ?
Tu n'as pas vu mes précédents messages ????

[Private joke ;-)]Finalement, tu pue pas du bec, tu es inodore et sans saveur ...[/Private joke ;-)]

Bonne soirée

 

[Tibo]

Re : repeter une serie

Bonjour,

Pour compléter le fil, une solution proche de celle de Jean-Noël :

=ENT((LIGNES($1:1)-1)/10)+1

une autre pour le fun :

=QUOTIENT(LIGNES($1:1)+9;10)

à copier dans une cellule quelconque et à recopier vers le bas

@+

Edit : JM, as-tu testé tes propositions ?

@+

 

[Staple1600]

Re : repeter une serie

Bonjour Tibo

Oui j'ai testé (comme toujours avant de posté)
Y-aurait-il un problème ? Tu m'inquiètes Tibo

EDITION: Tu veux dire que j'aurai du marquer dans mon premier post?
=(LIGNE()+11-MOD(LIGNE();11))/11

Ok, d'accord, je vais au coin, et je me mets à genoux sur une règle en fer pendant 11 minutes.

Mais comme j'avais bon pour 20 , j'opte pour 11 secondes

PS: Cela ne dédouane pas pour autant akheir de point saluer tous les intervenants de son fil.
Quoique comme c'est dans l'air du temps sur XLD ces temps-ci , a quoi bon lui en tenir rigueur ...