!!! Macro de numérotaiton croissante !!!

  • Initiateur de la discussion Initiateur de la discussion fabrice
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

fabrice

Guest
Bonjour tout le monde,

J'espere que vous ne vous etes pas fait de soucis car ca fait un bout de temps que je n'ais pas poster de posts ;=). Je vais bien, tout va bien (comme le dirai un comique aux grandes oreilles ;=) ).

Non, plus serieusement, j'ai un probleme avec les boucles dans excel.
Je souhaiterai faire une nuémrotation croissante jusqu'a une valeur définie dans une cellule.
Ex
A1 1
A2 2
A3 3
...
Ax x ou X est définit dans une autre cellule (par exemple B1)

Pourriez vous m'aider SVP.

Merci de votre aide,
FAb
 
Salut fabrice,

Petite formule en colonne A :
A1 : =1
A2 : =SI(A1+1>$B$1;"";A1+1)
et tu copies cette formule vers le bas

Tu peux même te permettre d'avoir des cellules vides avec la formule :
A1 : =1
A2 : =SI(MAX(A$1:A1)>$B$1;"";Max(A$1:A1)+1)
et tu copies aussi cette formeule vers le bas
Si tu effaces cette formule dans une cellule quelconque de la colonne A, la numérotation s'adaptera automatiquement.

Si la cellule A1 est vide, ou du texte (titre), commence directement par une des deux formules en A2 pour obtenir le "1".

André
 
merci de ta réponse.

Est ce que tu aurais le temps pour une autre question???

Est ce que tu pourrais m'aider à copier une cellule X fois (C1 par exemple) jusqu'a la valeur définie en B1 (si on reprend l'exemple précédent)

Merci de ta réponse,
FAb

PS: j'espère avoir été clair
 
Fab,

et ta question c'est quoi exactement :

copier une cellule X fois (C1 par exemple) MAXI jusqu'a la valeur définie en
B1? (et pourquoi pas selon un pas d'incrémentation défini en D1?)

tu compliques! Pourquoi ne pas saisir un chiffre en A1 puis avec le clic DROIT glisser la poignée de recopie ensuite cliquer (gauche) sur le mot Série... et donner la dernière valeur?

Voici toutefois un exemple de code, si j'ai bien compris ce que tu veux.

W = Range("A1").Value
Y = Range("B1").Value
Z = Range("C1").Value

For x = 1 To Y
If W <= Z Then
Range("A" & x).Value = W
W = W + 1
End If
Next

Je suis comme toi, la formule d'André m'échappe.

Elle est belle, mais elle fait quoi au juste André, ta formule?

C@thy
 
Coucou Fabrice et André!

Je suis de retour de réunion et je vois que j'ai du courrier.

Je ne peux pas lire les pièces jointes. Pouvez-vous me les envoyer directement dans ma bal? Je vais voir ce que je peux faire (si je comprends la question!!!)

Merci.

Cathy
 
OK, Fab, André,

Range("A1").Select
NbCopie = Selection.CurrentRegion.Rows.Count
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B" & NbCopie), Type:=xlFillDefault

C'est ça kil te fo?

(xlup ferait la copie jusqu'à la dernière ligne remplie dans la feuille, pas dans la plage)

C@thy
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
490
Réponses
10
Affichages
563
Réponses
2
Affichages
404
Réponses
7
Affichages
533
Retour