Besoin d’une boucle

[pascal82]

Bonjour à tous,

Pour l’instant j’ai ce code qui fonctionne. Par contre 26 boucles max sont autorisées car limite de l’alphabet. De plus ce code est très long et pas souple du tout.

Je cherche désespéramment une méthode ou une boucle avec un « FOR I » pour gagner en souplesse et raccourcir le code, mais cela fait 2 jours que je tourne en rond. Si quelqu’un avait la petite étincelle qui me manque.

Merci par avance

Bout de code:

Dim A As Long
For A = 20 To 29
Range("BA20").FormulaR1C1 = "=SIN(RC[-52]/R" & A & "c56)"
    Range("BA20").Select
    Selection.AutoFill Destination:=Range("BA20:BA99"), Type:=xlFillDefault
    Range("BA20:BA99").Select
Range("BA12").Copy
Range("BE" & A).PasteSpecial Paste:=xlPasteValues
Next A

Dim B As Long
For B = 20 To 29
Range("ba20").FormulaR1C1 = "=SIN(RC[-52]/R17C57)+SIN(RC[-51]/R" & B & "c56)"
    Range("BA20").Select
    Selection.AutoFill Destination:=Range("BA20:BA99"), Type:=xlFillDefault
    Range("BA20:BA99").Select
Range("ba12").Copy
Range("bF" & B).PasteSpecial Paste:=xlPasteValues
Next B

Dim C As Long
For C = 20 To 29
Range("ba20").FormulaR1C1 = "=SIN(RC[-52]/R17C57)+SIN(RC[-51]/R17C58)+SIN(RC[-50]/R" & C & "c56)"
    Range("BA20").Select
    Selection.AutoFill Destination:=Range("BA20:BA99"), Type:=xlFillDefault
    Range("BA20:BA99").Select
Range("ba12").Copy
Range("bG" & C).PasteSpecial Paste:=xlPasteValues
Next C

 

[phlaurent55]

Re : Besoin d’une boucle

Bonjour Pascal,

si tu pouvais joindre ton fichier et des explications un peu plus précises concernant le résultat attendu ...........

à+
Philippe

 

[phlaurent55]

Re : Besoin d’une boucle

re,

tu n'est pas uniquement limité aux 26 lettres de l'alphabet
cette macro fonctionne

Sub Macro1()
For azerty = 20 To 29
Beep
Next azerty
End Sub

à+
Philippe

 

[Gorfael]

Re : Besoin d’une boucle

Salut pascal82 et le forum
Pas sûr de comprendre cette histoire de boucle
Une tentative ;

Dim A As Long, X As Integer, Str_Val_1 As String, Cel As Range
For X = 1 To 26
    Select Case X
        Case 1
            Str_Val_1 = "=SIN(RC[-52]/R"
            Set Cel = Range("BE1")
        Case 2
            Str_Val_1 = "=SIN(RC[-52]/R17C57)+SIN(RC[-51]/R"
            Set Cel = Range("BF1")
        Case 3
            Str_Val_1 = "=SIN(RC[-52]/R17C57)+SIN(RC[-51]/R17C58)+SIN(RC[-50]/R"
            Set Cel = Range("BG1")
        Case 4
            'suffit de continuer la série
    End Select
    For A = 20 To 29
        Range("BA20").FormulaR1C1 = Str_Val_1 & A & "C56)"
        Range("BA20").AutoFill Destination:=Range("BA20:BA99"), Type:=xlFillDefault
        Range("BA12").Copy
        Cel.Offset(A - 1, 0).PasteSpecial Paste:=xlPasteValues
    Next A
Next X

J'ai supposé que la fin de la formule était toujours "C56)". Dans le cas contraire, il suffit de la transformer en variable et de l'initialiser en même temps que le début.
A+

 

[pascal82]

Re : Besoin d’une boucle

Bonjour Gorfael et phlaurent55,

Je ne peux pas envoyer le fichier, trop lourd par la voie normale.
Merci pour le code, je vais tester

Cordialement

 

[pascal82]

Re : Besoin d’une boucle

Bonjour Gorfael,

Les tests sont terminés et le code fonctionne trés bien.
Merci encore

Cordialement