Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

(RESOLU)Reduire le code

chaelie2015

XLDnaute Accro
BONSOIR FORUM
JE SOUHAITE SI C EST POSSIBLE DE SIMPLIFIER LE CODE CI DESSOUS
Code:
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
 
Dernière édition:

Papou-net

XLDnaute Barbatruc
Re : Reduire le code

Bonsoir chaelie2015,

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

Je te propose donc d'essayer ce code:

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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…