!!! 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

 

[fabrice]

Salut

Ca semble etre exatement ca !!! Youpiiii
Je te le reconfirme une fois rentré chez moi

Merci encore et a tout a l'heure
FAb

 

[fabrice]

Bonsoir Cathy

Tout va tres bien a l'exeption que mon boutton est sur une feuille différente de celle ou doit se dérouler la macro.

Pour remdéier à cela, j'ai rajouté a ton code ceci:
Sheets("Donnees_graphique")Range("A1").Select
NbCopie = Selection.CurrentRegion.Rows.Count
Sheets("Donnees_graphique")Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B" & NbCopie), Type:=xlFillDefault

Comment faire??? Je pensé que ca serait bon mais en fait non :=(

Merci de ton aide pour une dernière fois (je l'espère!!!)
FAb

 

[Cathy]

Bonjour le forum, Salut Fabrice,

tu rajoutes juste

Sheets("Donnees_graphique").Select

avant le code que je t'ai donné.

Bonne journée

Cathy

 

[fabrice]

merci beaucoup pour ton aide Cathy.

J'avais essayé avec activesheet mais sans résultat. l'idée y était mais mais la forme.

Merci encore.
FAb