astuce pour simplifier un code vba

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion David59
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

David59

XLDnaute Junior
Bonjour le forum

J'ai créé un code vba qui sert a voir un temp de travail pour des personnes

Donc j'ai un tableau ou je rentre les heures et une listbox sur vba qui ne dit la différence de temps par rapport à un plan
Sans titre.jpg

pour simplifier la recherche de chaque personne dans la listbox je me suis arrangé pour que le nom de la personne ce mette en bleu
je me demande si il est possible de faire plus simple😕
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)


'''Lundi
        If Not Application.Intersect(Target, Range("a5:a58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66").Value
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("b5:b58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -1).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66").Value
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("c5:c58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -2).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("d5:d58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -3).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
'''Mardi
        ElseIf Not Application.Intersect(Target, Range("e5:e58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("f5:f58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -1).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("g5:g58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -2).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("h5:h58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -3).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
            
'''mercredi
        ElseIf Not Application.Intersect(Target, Range("i5:i58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("j5:j58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -1).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("k5:k58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -2).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("l5:l58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -3).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
            
'''jeudi
        ElseIf Not Application.Intersect(Target, Range("m5:m58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("n5:n58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -1).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("o5:o58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -2).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("p5:p58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -3).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
            
'''Vendredi
        ElseIf Not Application.Intersect(Target, Range("q5:q58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("r5:r58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -1).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("s5:s58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -2).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("t5:t58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -3).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
'*************************************************************week end*******************************************************************
'''Samedi
           
        ElseIf Not Application.Intersect(Target, Range("u5:u58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("v5:v58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -1).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("w5:w58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -2).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("x5:x58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -3).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
'''Dimanche
            
        ElseIf Not Application.Intersect(Target, Range("y5:y58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("z5:z58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -1).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("aa5:aa58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -2).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        ElseIf Not Application.Intersect(Target, Range("ab5:ab58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -3).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66")
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If
        End If

End Sub

ça fonction très bien mais très long car je doit le refaire sur 2 autres pages

Merci D'avance
David @+
 

Pièces jointes

  • Sans titre.jpg
    Sans titre.jpg
    48.6 KB · Affichages: 402
  • Sans titre.jpg
    Sans titre.jpg
    48.6 KB · Affichages: 413
Trier par date Trier par votes
Re : astuce pour simplifier un code vba

Bonjour David,

Le code étant toujours le même, le principal problème est le décalage de colonne de 0 à -3.

Tu peux facilement le faire en utilisant le modulo par rapport au n° de colonne en écrivant:

Code: 
-((ActiveCell.Column - 1) Mod 4)

ActiveCell.Column - 1 Mod 4 donnera 0, 1, 2 ou 3 selon la colonne et avec un "-" indiquera le décalage à effectuer.

Le code devient:

Code: 
If Not Application.Intersect(Target, Range("a5:ab58")) Is Nothing Then
            Range("a66").Value = ActiveCell.Offset(0, -((ActiveCell.Column - 1) Mod 4)).Value
            If Range("a66") <> "" Then
            UserForm1.ListBox3.Value = Sheets("planning_modifier").Range("a66").Value
            ElseIf Range("a66") = "" Then
             UserForm1.ListBox3.Value = Clean
            End If

et si tu mets bien "Intersect(Target, Range("a5:ab58")", c'est valable pour tous les jours de la semaine, sauf si j'ai mal compris le problème 🙄

@+

Gael
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
130
thunder23
thunder23
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
72
Francky79
F
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
274
CortoXls
C
lestoiles1
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
62
lestoiles1
lestoiles1
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
367
Oneida
Oneida
richardlion
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
427
job75
job75
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
226
telemarrk
T
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
569
Dranreb
Dranreb
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
363
Gestionnaire_rh
G
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
55
spike29
S
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
205
sebastien176
S
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
409
patricktoulon
patricktoulon
jeanmi
  • Résolu(e)
XL 2010 amélioration code
Réponses
3
Affichages
105
jeanmi
jeanmi
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
239
patricktoulon
patricktoulon
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
111
fanch55
fanch55
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
95
eric72
E
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
759
Carolinebd
C
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
239
jalaba
J
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
111
safranien
S
ralph45
  • Question Question
Microsoft 365 [VBA] Listes déroulantes à choix multiples sur N colonnes discontinues
Réponses
4
Affichages
607
ralph45
ralph45
Retour