(RESOLU)Reduire le code

[chaelie2015]

BONSOIR FORUM
JE SOUHAITE SI C EST POSSIBLE DE SIMPLIFIER LE CODE CI DESSOUS

Application.EnableEvents = False
    If Range("B4") = "Approuvé Sans Réserves" Then
    Range("C4") = ""
    End If
     If Range("B5") = "Approuvé Sans Réserves" Then
    Range("C5") = ""
    End If
     If Range("B6") = "Approuvé Sans Réserves" Then
    Range("C6") = ""
    End If
     If Range("B7") = "Approuvé Sans Réserves" Then
    Range("C7") = ""
    End If
     If Range("B8") = "Approuvé Sans Réserves" Then
    Range("C8") = ""
    End If
     If Range("B9") = "Approuvé Sans Réserves" Then
    Range("C9") = ""
    End If
     If Range("B10") = "Approuvé Sans Réserves" Then
    Range("C10") = ""
    End If
     If Range("B11") = "Approuvé Sans Réserves" Then
    Range("C11") = ""
    End If
     If Range("B12") = "Approuvé Sans Réserves" Then
    Range("C12") = ""
    End If
   Application.EnableEvents = True
   
   Application.EnableEvents = False
    If Range("F4") = "Approuvé Sans Réserves" Then
    Range("G4") = ""
    End If
     If Range("F5") = "Approuvé Sans Réserves" Then
    Range("G5") = ""
    End If
     If Range("F6") = "Approuvé Sans Réserves" Then
    Range("G6") = ""
    End If
     If Range("F7") = "Approuvé Sans Réserves" Then
    Range("G7") = ""
    End If
     If Range("F8") = "Approuvé Sans Réserves" Then
    Range("G8") = ""
    End If
     If Range("F9") = "Approuvé Sans Réserves" Then
    Range("G9") = ""
    End If
     If Range("F10") = "Approuvé Sans Réserves" Then
    Range("G10") = ""
    End If
     If Range("F11") = "Approuvé Sans Réserves" Then
    Range("G11") = ""
    End If
     If Range("F12") = "Approuvé Sans Réserves" Then
    Range("G12") = ""
    End If
  Application.EnableEvents = True

  Application.EnableEvents = False
    If Range("J4") = "Approuvé Sans Réserves" Then
    Range("K4") = ""
    End If
     If Range("J5") = "Approuvé Sans Réserves" Then
    Range("K5") = ""
    End If
     If Range("J6") = "Approuvé Sans Réserves" Then
    Range("K6") = ""
    End If
     If Range("J7") = "Approuvé Sans Réserves" Then
    Range("K7") = ""
    End If
     If Range("J8") = "Approuvé Sans Réserves" Then
    Range("K8") = ""
    End If
     If Range("J9") = "Approuvé Sans Réserves" Then
    Range("K9") = ""
    End If
     If Range("J10") = "Approuvé Sans Réserves" Then
    Range("K10") = ""
    End If
     If Range("J11") = "Approuvé Sans Réserves" Then
    Range("K11") = ""
    End If
     If Range("J12") = "Approuvé Sans Réserves" Then
    Range("K12") = ""
    End If
  ' Application.EnableEvents = True

 Application.EnableEvents = False
    If Range("N4") = "Approuvé Sans Réserves" Then
    Range("O4") = ""
    End If
     If Range("N5") = "Approuvé Sans Réserves" Then
    Range("O5") = ""
    End If
     If Range("N6") = "Approuvé Sans Réserves" Then
    Range("O6") = ""
    End If
     If Range("N7") = "Approuvé Sans Réserves" Then
    Range("O7") = ""
    End If
     If Range("N8") = "Approuvé Sans Réserves" Then
    Range("O8") = ""
    End If
     If Range("N9") = "Approuvé Sans Réserves" Then
    Range("O9") = ""
    End If
     If Range("N10") = "Approuvé Sans Réserves" Then
    Range("O10") = ""
    End If
     If Range("N11") = "Approuvé Sans Réserves" Then
    Range("O11") = ""
    End If
     If Range("N12") = "Approuvé Sans Réserves" Then
    Range("O12") = ""
    End If
  Application.EnableEvents = True
   
   
   Application.EnableEvents = False
    If Range("R4") = "Approuvé Sans Réserves" Then
    Range("S4") = ""
    End If
     If Range("R5") = "Approuvé Sans Réserves" Then
    Range("S5") = ""
    End If
     If Range("R6") = "Approuvé Sans Réserves" Then
    Range("S6") = ""
    End If
     If Range("R7") = "Approuvé Sans Réserves" Then
    Range("S7") = ""
    End If
     If Range("R8") = "Approuvé Sans Réserves" Then
    Range("S8") = ""
    End If
     If Range("R9") = "Approuvé Sans Réserves" Then
    Range("S9") = ""
    End If
     If Range("R10") = "Approuvé Sans Réserves" Then
    Range("S10") = ""
    End If
     If Range("R11") = "Approuvé Sans Réserves" Then
    Range("S11") = ""
    End If
     If Range("R12") = "Approuvé Sans Réserves" Then
    Range("S12") = ""
    End If
  Application.EnableEvents = True



 Application.EnableEvents = False
    If Range("V4") = "Approuvé Sans Réserves" Then
    Range("W4") = ""
    End If
     If Range("V5") = "Approuvé Sans Réserves" Then
    Range("W5") = ""
    End If
     If Range("V6") = "Approuvé Sans Réserves" Then
    Range("W6") = ""
    End If
     If Range("V7") = "Approuvé Sans Réserves" Then
    Range("W7") = ""
    End If
     If Range("V8") = "Approuvé Sans Réserves" Then
    Range("W8") = ""
    End If
     If Range("V9") = "Approuvé Sans Réserves" Then
    Range("W9") = ""
    End If
     If Range("V10") = "Approuvé Sans Réserves" Then
    Range("W10") = ""
    End If
     If Range("V11") = "Approuvé Sans Réserves" Then
    Range("W11") = ""
    End If
     If Range("V12") = "Approuvé Sans Réserves" Then
    Range("W12") = ""
    End If
  Application.EnableEvents = True
   
  Application.EnableEvents = False
    If Range("Z4") = "Approuvé Sans Réserves" Then
    Range("AA4") = ""
    End If
     If Range("Z5") = "Approuvé Sans Réserves" Then
    Range("AA5") = ""
    End If
     If Range("Z6") = "Approuvé Sans Réserves" Then
    Range("AA6") = ""
    End If
     If Range("Z7") = "Approuvé Sans Réserves" Then
    Range("AA7") = ""
    End If
     If Range("Z8") = "Approuvé Sans Réserves" Then
    Range("AA8") = ""
    End If
     If Range("Z9") = "Approuvé Sans Réserves" Then
    Range("AA9") = ""
    End If
     If Range("Z10") = "Approuvé Sans Réserves" Then
    Range("AA10") = ""
    End If
     If Range("Z11") = "Approuvé Sans Réserves" Then
    Range("AA11") = ""
    End If
     If Range("Z12") = "Approuvé Sans Réserves" Then
    Range("AA12") = ""
    End If
 Application.EnableEvents = True
   
   
  Application.EnableEvents = False
    If Range("AD4") = "Approuvé Sans Réserves" Then
    Range("AE4") = ""
    End If
     If Range("AD5") = "Approuvé Sans Réserves" Then
    Range("AE5") = ""
    End If
     If Range("AD6") = "Approuvé Sans Réserves" Then
    Range("AE6") = ""
    End If
     If Range("AD7") = "Approuvé Sans Réserves" Then
    Range("AE7") = ""
    End If
     If Range("AD8") = "Approuvé Sans Réserves" Then
    Range("AE8") = ""
    End If
     If Range("AD9") = "Approuvé Sans Réserves" Then
    Range("AE9") = ""
    End If
     If Range("AD10") = "Approuvé Sans Réserves" Then
    Range("AE10") = ""
    End If
     If Range("AD11") = "Approuvé Sans Réserves" Then
    Range("AE11") = ""
    End If
     If Range("AD12") = "Approuvé Sans Réserves" Then
    Range("AE12") = ""
    End If
  Application.EnableEvents = True

IL S AGIT DE 8 TABLEAUX CHAQUE TABLEAU EST CONSTITUE DE 4 COLONNES
SALUTATIONS

 

[Papou-net]

Re : Reduire le code

Bonsoir chaelie2015,

Houlà, effectivement il est temps de simplifier tout çà.

Je te propose donc d'essayer ce code:

Sub CodeRaccourci()
Dim Cel As Range

Application.EnableEvents = False
For Each Cel In Range("B4:B12,F4:F12,J4:J12,N4:N12,R4:R12,V4:V12,Z4:Z12,AD4:AD12")
  If Cel = "Approuvé Sans Réserves" Then Cel.Offset(0, 1) = ""
Next
Application.EnableEvents = True
End Sub

Ne connaissant pas la structure de ton fichier, ni la méthode d'appel à cette macro, j'ai conservé les deux lignes "Application.EnableEvents". Habituellement, elles ne sont indispensables que si la procédure est située dans l'événement Change d'une feuille de calcul. Sinon, elles peuvent être supprimées.

Cordialement.

 

[chaelie2015]

Re : Reduire le code

Bonsoir PAPOU-NET
MERCI , POUR LA RÉPONSE RAPIDE.
J'AI METS CE CODE DANS UNE FEUILLE DE CALCUL AVEC Private Sub Worksheet_Change(ByVal Target As Range)
SALUTATIONS