(RESOLU)Reduire le code

chaelie2015

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:
Trier par date Trier par votes
Papou-net

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.
 
Vote positif 0 Vote négatif

Discussions similaires

U
  • Question
Autres [RESOLU] Déclaration de variable
Réponses
5
Affichages
209
un internaute
U
yojema
  • Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
165
Dranreb
Dranreb
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Code afficher/Masquer problème
Réponses
10
Affichages
232
chaelie2015
chaelie2015
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Efface automatiquement le contenu d'une cellule en fonction d'une autre cellule
Réponses
9
Affichages
293
chaelie2015
chaelie2015
Usine à gaz
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
314
Usine à gaz
Usine à gaz
U
  • Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
387
un internaute
U
U
  • Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
416
un internaute
U
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Réinitialiser le fichier initial
Réponses
10
Affichages
485
chaelie2015
chaelie2015
PatFr38
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
757
PatFr38
PatFr38
chinel
  • Question
XL 2019 soucis avec un code VBA pour les doublons
2
Réponses
20
Affichages
771
chinel
chinel

Membres actuellement en ligne

5 membres et 52 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 247
Messages
2 086 591
Membres
103 248
dernier inscrit
Happycat