(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
499
un internaute
U
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
523
Corentin26270
C
yojema
  • Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
422
Dranreb
Dranreb
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Code afficher/Masquer problème
Réponses
10
Affichages
510
chaelie2015
chaelie2015
K
  • Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
266
Gégé-45550
Gégé-45550
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Efface automatiquement le contenu d'une cellule en fonction d'une autre cellule
Réponses
9
Affichages
564
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
572
Usine à gaz
Usine à gaz
U
  • Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
502
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
639
un internaute
U
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Réinitialiser le fichier initial
Réponses
10
Affichages
687
chaelie2015
chaelie2015

Membres actuellement en ligne

10 membres et 81 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
315 096
Messages
2 116 184
Membres
112 678
dernier inscrit
arno12345678