Microsoft 365 Incrémentation valeur cellule selon une variable

[xls_62]

Bonjour à tous,
Je recherche une formule ( ou macro) qui me permettra d'incrémenter la valeur cellules de ma colonne comme ci dessous :

Fichier en Pièce jointe.

Merci d'avance.

 

[herve62]

Bonsoir
Un truc basique en VBA simple , pour le moment juste adapté à l'exemple joint donc limité pour la variable de 1 à 4 et donc aux colonnes de D à G

 

[Hasco]

Bonjour,

¨Par formule :

=MOD(LIGNE(A1)-2;COLONNE(A1))+1

Cordialement

 

[herve62]

Bonsoir ; Slt hasco
Oui aussi , mais le Pb et encore par expérience récente sur un gros fichier la personne a fait une selection comme par exemple ici : D3:G13 > sup pour remettre ses données et ZUT ça marche plus
Je suis d'accord avec les formules lorsque la cellule est vouée à un résultat ; Là c'est pour une donnée
Après c'est selon utilisation , mais avec un VBA ultra simple pas d'erreur de manip possible dans la feuille

 

[xls_62]

Bonsoir
Un truc basique en VBA simple , pour le moment juste adapté à l'exemple joint donc limité pour la variable de 1 à 4 et donc aux colonnes de D à G

Bonjour Herve62,
Le code Marche à merveille 🙂
petite question : Mon fichier de travail contient parfois 3000 à 4000 lignes, ça pourrait être bloquant ?

cdt,

 

[xls_62]

Bonjour Herve62,
Le code Marche à merveille 🙂
petite question : Mon fichier de travail contient parfois 3000 à 4000 lignes, ça pourrait être bloquant ?

cdt,

Ps : ETC = dupliquer la série de calcul je voulais dire 🙂

 

[herve62]

Bonjour , Slt xls62
Rien est bloquant , suffit d'étendre la plage
Je viens de l'améliorer un peu , effacement col B avant de relancer
Juste possible d'entrer un chiffre en C1 sinon message
Les lignes s'ajustent selon la colonne
On peut encore faire

 

[Hasco]

Bonjour,

Je dois sentir le gaz,

 

[xls_62]

Bonjour , Slt xls62
Rien est bloquant , suffit d'étendre la plage
Je viens de l'améliorer un peu , effacement col B avant de relancer
Juste possible d'entrer un chiffre en C1 sinon message
Les lignes s'ajustent selon la colonne
On peut encore faire

Re Herve62,
avec l’amélioration du code le résultat souhaité est erroné voir ci dessous avec une variable à 4:
+ pb de décimal?

 

[merinos-BernardEtang]

@Hasco:

Bonjour,

Je dois sentir le gaz,

ouuiiii

et comme c'est du gaz russe, on ouvre pas ton robinet .

Domage, mais tu as resolu la question....

 

[herve62]

J'ai mis des chiffres pour exemple au PIF !! suffit de remettre tes chiffres et il ne peut pas y avoir d'erreur puisque c'est juste une copie de données des colonnes

 

[xls_62]

J'ai mis des chiffres pour exemple au PIF !! suffit de remettre tes chiffres et il ne peut pas y avoir d'erreur puisque c'est juste une copie de données des colonnes

Bonjour Herve62,
je comprends mieux le code maintenant 😉 c'est une solution aussi 🙂
puis je spécifier une feuille dans le code ? pour :
dl1 = Range("D10000").End(xlUp).Row
dl2 = Range("E10000").End(xlUp).Row
dl3 = Range("F10000").End(xlUp).Row
dl4 = Range("G10000").End(xlUp).Row

cdt,

 

[herve62]

Bonjour
Oui on fait ce qu'on veut , feuille , même autre classeur (si ouvert)
dl1 = sheets("Mapage"). Range("D10000").End(xlUp).Row
dl1=workbooks("C:\data\rep1\monfic.xlsx").sheets("sdfdsf"). Range("D10000").End(xlUp).Row

 

[xls_62]

Bonjour
Oui on fait ce qu'on veut , feuille , même autre classeur (si ouvert)
dl1 = sheets("Mapage"). Range("D10000").End(xlUp).Row
dl1=workbooks("C:\data\rep1\monfic.xlsx").sheets("sdfdsf"). Range("D10000").End(xlUp).Row

ok parfait, je essaierai 😉
je reviendrai vers vous en cas de difficulté.
Encore un grand merci

 

[xls_62]

rebonjour Herve62,
j'ai essayé de rajouter nom de la feuille mais rien
pouvez vous regarder fichier en PJ?