Probleme sur un userform

  • Initiateur de la discussion Initiateur de la discussion jammy17
  • 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 !

jammy17

XLDnaute Occasionnel
bonjour le forum,

voila, j'ai un lineaire dans lequel je saisie avec un code couleur des abscence, des conges etc avec un code couleur.
je voufrais trouver une macro qui me permette dans une listbox d'afficher les noms des personnes presente et absente en fonction de la date inscrite dans une tetxbox qui prend pour date initiale le date du jour

je vous joint un petit fichier si quelqu'un a un eidée de la boucle a effectuer pour resoudre ce petit souci.

voila ma macro qui me semble completement imparfaite:
With Sheets("planning")
Set plage1 = Range("E1:IT1")

End With
For Each cel In plage1
For y = 4 To 254
If cel.Offset(0, y).Value = contr3.Value Then
x = cel.Offset(0, y)
End If
Next cel

'******************************************************************************************
For Each cel In plage

If cel.Offset(0, col1).Interior.ColorIndex <> xlNone Then
ListBox1.AddItem cel.Offset(0, 0).Value

ListBox2.AddItem cel.Row 'remplissage de la ListBox2
i = i + 1 'redéfinit la variable i
End If
Next cel
'===============================================================
Dim i As Integer 'déclare la variable i
ListBox1.Clear 'vide la ListBox1
ListBox2.Clear 'vide la ListBox2
With Sheets("planning")
ListBox1.ColumnCount = 2
'ENTREE DU NOUVEAU TABLEAU
ListBox1.ColumnWidths = "100pt;100pt"
ListBox1.Font.Size = 12
Dim col1 As Integer
col1 = recherchemot("e1:it1", contr3.Value, "planning", 3)
Set plage = .Range("B4:B" & .Range("B65536").End(xlUp).Row) 'définit la variable Plage

End With

'******************************************************************************************
For Each cel In plage

If cel.Offset(0, col1).Interior.ColorIndex <> xlNone Then
ListBox1.AddItem cel.Offset(0, 0).Value

ListBox2.AddItem cel.Row 'remplissage de la ListBox2
i = i + 1 'redéfinit la variable i
End If
Next cel
 

Pièces jointes

- 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

Réponses
10
Affichages
291
Réponses
4
Affichages
201
Réponses
5
Affichages
241
Réponses
3
Affichages
672
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
510
Retour