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

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
Identifiez-vous ou inscrivez-vous pour participer.

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
  • Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
422
Dranreb
  • Résolu(e)
XL 2013 (RESOLU) Code afficher/Masquer problème
Réponses
10
Affichages
510
chaelie2015
K
  • Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
266
Gégé-45550
  • Résolu(e)
XL 2013 (RESOLU) Efface automatiquement le contenu d'une cellule en fonction d'une autre cellule
Réponses
9
Affichages
566
chaelie2015
  • 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
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
  • Résolu(e)
XL 2013 (RESOLU) Réinitialiser le fichier initial
Réponses
10
Affichages
687
chaelie2015
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…