Macro VBA

[pascal82]

Bonjour a tous,

J’ai besoin d’une petite macro qui devrait me simplifier la tache.
Je joins en annexe le fichier pour être plus clair.
Le fichier est constitué de 4 tableaux, la macro consisterait :
1 : Sur le tableau B, la cellule AB3 = « =SI(OU($C3="oui";C3="oui");1;0) » et recopie de la formule jusqu’en AY22
2 : Copie les résultats CA2 :CX2 en CA4 :CX4
3 : Sur le tableau B, la cellule AB3 devient « =SI(OU($D3="oui";C3="oui");1;0) » et recopie de la formule jusqu’en AY22 puis copie les résultats CA2 :CX2 en CA5 :CX5 et bouclage jusqu'à ce que $C3 devienne $Z3.

Merci par avance.

 

[hbenalia]

Re : Macro VBA

Bonjour à tous,

Une solution avec le code suivant:

Sub TEST()
  Dim I As Integer
  For I = 1 To 24
    If I <= 24 Then
        Range("AB3").FormulaR1C1 = "=IF(OR(RC" & I + 2 & "=""oui"",RC[-25]=""oui""),1,0)"
        Range("AB3").AutoFill Destination:=Range("AB3:AY3"), Type:=xlFillDefault
        Range("AB3:AY3").AutoFill Destination:=Range("AB3:AY22"), Type:=xlFillDefault
        Range("CA2:CX2").Copy
        Range("CA" & I + 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
    End If
  Next I
    Range("CA4").Select
End Sub

en application dans le fichier attaché (préparé sur Excel 2003)...

NB: Tu peux créer un bouton pour l'exécution de ce code...


Cordialement

 

[pascal82]

Re : Macro VBA

Bonjour hbenalia,
Ta réponse est parfaite.
Merci encore