Microsoft 365 Incrémentation valeur cellule selon une variable

xls_62

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


Fichier en Pièce jointe.

Merci d'avance.
 

Pièces jointes

  • INCREMENTATION.xlsm
    11.1 KB · Affichages: 7

herve62

XLDnaute Barbatruc
Supporter XLD
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
 

herve62

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • INCREMENTATION.xlsm
    19.3 KB · Affichages: 1

xls_62

XLDnaute Junior
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?
1643983468227.png
 

xls_62

XLDnaute Junior
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,
 

Discussions similaires

Réponses
2
Affichages
366