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

[fabrice]

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

 

[Cathy]

Bonjour!!!!

Vite fait, comme ça :

Y = Range("B1").Value
For x = 1 To Y
Range("A" & x).Value = x
Next
End Sub

@+

Cathy

 

[andré]

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é

 

[fabrice]

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

 

[andré]

Vite fait,

Emploie la formule : =SI(NB.SI(C$1:C1)>$B$1;"";C1)

André.

 

[fabrice]

salut

Elle repond à quelle question ta réponse??? ;=) pas mal comme phrase!!!
Si c'est à la deuxieme, est ce qu'il existe la meme mais en VBA???

Merci de ta réponse
FAb

 

[Cathy]

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

 

[fabrice]

salut

Je vois que je me suis mal exprimé.
Je t'envoie un fichier pour une meilleur explication. (enfin je l'espère!!!)

Merci de ton aide précieuse,
FAb

 

[andré]

Salut Cathy,

Petite explication en pièce jointe.

André.

 

[fabrice]

resalut

Elle est super ta formule mais elle ne copie pas les formules contenues dans la cellule copiées :=(

Merci tout de meme
FAb

 

[andré]

Salut fab,

On ne peut pas tout avoir !

André

 

[fabrice]

re

ca c'est vrai. il faut donc obligatoirement passer par VBA.
Donc, il me reste plus qu'a attendre l'aide de Cathy ?=)

FAb

 

[Cathy]

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

 

[andré]

C'est fait.
André

 

[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