Besoin d’une boucle

pascal82 · 6 Avril 2011

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:

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 · 6 Avril 2011

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 · 6 Avril 2011

Re : Besoin d’une boucle

re,

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

Code:

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

à+
Philippe

Gorfael · 6 Avril 2011

Re : Besoin d’une boucle

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

Code:

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 · 6 Avril 2011

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 · 6 Avril 2011

Re : Besoin d’une boucle

Bonjour Gorfael,

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

Cordialement

Besoin d’une boucle

pascal82

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

phlaurent55

Nous a quittés en 2020

Gorfael

XLDnaute Barbatruc

pascal82

XLDnaute Occasionnel

pascal82

XLDnaute Occasionnel

Discussions similaires

Besoin d’une boucle

pascal82

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

phlaurent55

Nous a quittés en 2020

Gorfael

XLDnaute Barbatruc

pascal82

XLDnaute Occasionnel

pascal82

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency