Macro Boucle "Copier-Coller" de n fois ?

Bonjour a tous, je me permet de lancer sujet sur les combinaisons :

Dans un premier temps :

En rentrant des valeurs dans les cases bleues; que Excel me compte jusqu'a cette valeur

(une fonction enumererer ?)

A la limite si c'est pas faisable c'est pas grave, je peux toujours le faire manuellement

Dans un second temps (le plus important :O !):

Qu'il soit capable de reproduire a l'infini le "motif" sur toute la colonne

(en jaune; il y'a 3 motifs; en bleu on a UN seul motif)

Je pensais en faisant une macro; j'obtient ca via l'outil:

    Sub Macro5()
    '
    ' Macro5 Macro
    '
    ' Touche de raccourci du clavier: Ctrl+u
    '
    Range("B12").Select
    ActiveCell.FormulaR1C1 = "=R[-10]C[2]"
    Range("B13").Select
    ActiveCell.FormulaR1C1 = "=R[-11]C[3]"
    Range("B14").Select
    ActiveCell.FormulaR1C1 = "=R[-12]C[4]"
    Range("B15").Select
    ActiveCell.FormulaR1C1 = "=R[-13]C[2]"
    Range("B16").Select
    ActiveCell.FormulaR1C1 = "=R[-14]C[3]"
    Range("B17").Select
    ActiveCell.FormulaR1C1 = "=R[-15]C[4]"
    Range("B18").Select
    ActiveCell.FormulaR1C1 = "=R[-16]C[2]"
    Range("B19").Select
    ActiveCell.FormulaR1C1 = "=R[-17]C[3]"
    Range("B20").Select
    ActiveCell.FormulaR1C1 = "=R[-18]C[4]"
    Range("B21").Select
    ActiveCell.FormulaR1C1 = "=R[-19]C[2]"
    Range("B22").Select
    ActiveCell.FormulaR1C1 = "=R[-20]C[3]"
    Range("B23").Select
    ActiveCell.FormulaR1C1 = "=R[-21]C[4]"
    Range("B24").Select
    End Sub

En copiant collant je me suis apercu de quelques trucs :

    ActiveCell.FormulaR1C1 = "=R[[b]x-1[/b]]C[4]"
    Range("[b]By + 1[/b]").Select

J'aimerai qu'il continue ceci a l'infini ou jusqu'a une certaine case de B comme B965000 par exemple

Mais je ne veux pas copier coller ce code jusqu'a 965000 !

Je pense qu'en donnant des valeurs a X et a Y; je pourrai copier coller un motif jusqu'a une certaine valeur non ?

Merci d'Avance pour votre contribution

ps: Je suis un n00b de VBA

OOps, j'ai oublié de donner le excel avec ^^

Bonjour,

C'était pas la peine de t'inscrire sous un nouveau pseudo pour continuer !

Je ne sais pas ce qu'en penseront les Modos et l'administrateur ?

Amicalement

Claude

lol non, c'etait involontaire, je tient a m'excuser !

J'ai voulu changer l'adresse de mon ancien compte, mais je me suis trompé dans l'adresse

Du coup pour la reactivation, je ne pourrai jamais la refaire ...

Pardon

Bonjour a tous,

Alors a mon grand étonnement, je me suis a moitié sorti du pétrin ^^

Je vous explique rapidement:

' Macro1 Macro

    Range("B10").Select
    ActiveCell.FormulaR1C1 = "0"

    Range("B11").Select
    ActiveCell.FormulaR1C1 = "1"

    Range("B12").Select
    ActiveCell.FormulaR1C1 = "2"

    Range("B10:B12").Select

 Selection.AutoFill Destination:=Range("B10:[b]B15[/b]"), Type:=xlFillCopy

    Range("B10:[b]B15[/b]").Select
End Sub

En fait avec cette macro, j'ai essayé de changer manuellement la valeur de la cellule B15. Si je met 900000; le code va se prolonger jusqu'a la cellule B900000 !

Ce qui est un bon point

Neanmoins, cela ne m'interesse pas

Je voudrais dire a Excel (ou plutot a VBA) d'aller a la case 1 741 834 (même si c'est impossible sur une seule page)

(le nombre de possibilités+10 car elles sont déja utilisées)

Et la j'avoue que je ne sais pas comment l'ecrire

Une idée?

Merci beaucoup !

ps: Pour ce qui est du nombre max de possibilités, est il possible de dire "Si 1 741 834 > 999 999 (limite de lignes excel); alors changer de feuille et continuer ?)