astuce pour simplifier un code vba

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:confused:
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: 398
  • Sans titre.jpg
    Sans titre.jpg
    48.6 KB · Affichages: 412
Trier par date Trier par votes
Gael

Gael

XLDnaute Barbatruc
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 :rolleyes:

@+

Gael
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
320
pat66
P
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
106
sebastien176
S
L
  • Résolu(e)
XL 2019 lien hypertxte
Réponses
3
Affichages
330
litchoutsou
L
D
  • Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
334
dadu35
D
N
  • Question
Microsoft 365 Imbrication de deux formule Worksheet_BeforeDoubleClick
Réponses
1
Affichages
146
Nathan027
N
D
  • Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
215
fanch55
fanch55
M
  • Question
Microsoft 365 modifier un code
Réponses
1
Affichages
241
Dranreb
Dranreb
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
135
BenExcel
B
chaelie2015
  • Question
XL 2013 Réduire un code
Réponses
0
Affichages
221
chaelie2015
chaelie2015
N
  • Résolu(e)
Microsoft 365 Ajouter une condition dans une VBA
Réponses
2
Affichages
197
Nathan027
N

Membres actuellement en ligne

3 membres et 53 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 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16