Recherche plus affichage infos

[Aladin]

Bonjour
Je reviens vers vers vous car je seche, sur une feuil,
_Colonne C (les dates sous format 3 juin 2008)
_Colonne D (Un flag pours les taches)
_Colonne E (les heures)
Colonne F (Les Taches).
Comment lui dire par macro de me rechercher à partir de la date du jour, les 6 jours suivants et de m' afficher les infos dans une Msgbox qui sera de la forme
Date du jour + infos colonne F
Date1 + Si pas Infos mettre pas de tache ce jour
Date 2
Date 3 jusqu' a date 6
Merci d' avance pour toute réponse
Aladin

 

[Aladin]

Re : Recherche plus affichage infos

Bonjour jmps et le forum
Merci d' voir réponde, ma question est simple
Recherche des 6 jours a partir de la date du jour dans le planning taches
et affichge des infos de ces 6 jours dans une msgbox
Aladin

 

[Aladin]

Re : Recherche plus affichage infos

Bonsoir le forum
Je reprend le même poste car j' ai déja comménce une approche du sujet par un userform sur une recherche entre deux dates. J' ai commencé un test d' Userform ainsi que le code trouvé sur le forum et que je veux adapter pour mon userform
La recherche devra se faire sur la colonne C et on doit retrouver dans dans une list box le résultat colonne C, D et E ou soit ces 3 colonne soient affiches dans des listBox séparé.
Merci d' avance pour vos réponses
Aladin

 

[Aladin]

Re : Recherche plus affichage infos

Rebonsoir le forum
Mes excuses, ci joint le fichier de test
Aladin

 

[Aladin]

Re : Recherche plus affichage infos

Bonsoir le forum
j' ai trouvé la solution à mon pb mais je bloque sur columnwidght. Comment peut t- on définir la largeur des colonnes de la listBox de 4 colonnes en initialisant l' UserForm
Merci d' avance
Aladin

 

[Compte Supprimé 979]

Re : Recherche plus affichage infos

Salut Aladin,

Tu peux faire

Private Sub UserForm_Initialize()
' Initialisation de la ListeBox
Me.ListBox1.ColumnCount = 4
Me.ListBox1.ColumnWidths = "1cm;1cm;1cm;1cm"

Essaye ça 😉

A+

 

[Aladin]

Re : Recherche plus affichage infos

Bonjour BrunoM45 et le forum
J' ai adapaté tes lignes de codes et mon userform fonctionne tres bien. Je te remercie
Bonne continuation à tous
Aladin

 

[Aladin]

Re : Recherche plus affichage infos

bonsoir le forum
Je reviens solliciter votre aide. Ma question est la suivante
Est il possible d' ajouter deux autres Listbox à mon userform
pour les colonnes H,I, j, l, M,N et de les faire s' afficher que s' il y a des données ? Puet etre que le code mérite d' etre optimisé aussi ,

Voici le code

Private Sub CommandButton1_Click()
Dim c As Range
Dim var_somme As Double
Sheets("Calendrier").Select
Label1 = ""
ListBox1.Clear
If Not IsDate(TextBox1) Or Not IsDate(TextBox2) Then _
MsgBox "au moins une date invalide": Exit Sub
For Each c In Range("C2:C" & Range("C65536").End(xlUp).Row)
If c.Value >= CDate(TextBox1) And c.Value <= CDate(TextBox2) Then
With UserForm2.ListBox1
.AddItem c.Offset(0, -2).Value
List(.ListCount - 1, 2) = c.Offset(0, -1).Value
.List(.ListCount - 1, 3) = c.Offset(0, 1).Value
.List(.ListCount - 1, 4) = c.Offset(0, 2).Value
.List(.ListCount - 1, 5) = c.Offset(0, 3).Value
.List(.ListCount - 1, 1) = c.Value

End With
End If
Next c
Nombredeligne = UserForm2.ListBox1.ListCount
UserForm2.Label1 = "Pour La Période recherché:" & " " & Nombredeligne & " Lignes Trouvées"
End Sub

Merci d' avance pour toute réponse
Aladin

 

[Aladin]

Re : Recherche plus affichage infos

Bonjour le forum
Je suis toujours à la recherche de la solution finale, je suis bloque sur ce morceau de code
Comment dire si céllule vide ne rien afficher, pas d' affichage de la listbox.
With UserForm2.ListBox1
.AddItem c.Offset(0, -2).Value
List(.ListCount - 1, 2) = c.Offset(0, -1).Value
.List(.ListCount - 1, 3) = c.Offset(0, 1).Value
.List(.ListCount - 1, 4) = c.Offset(0, 2).Value
.List(.ListCount - 1, 5) = c.Offset(0, 3).Value
.List(.ListCount - 1, 1) = c.Value

End With
Merci d' avance pour toute aide
Aladin

 

[Compte Supprimé 979]

Re : Recherche plus affichage infos

Salut Aladin,

Comment dire si céllule vide ne rien afficher, pas d' affichage de la listbox

C'est si difficile que ça de trouver le bon code 😕

Des fois je me demande si nous ne sommes pas des extraterrestres nous les XLDnautes Accro 😉

Voilà :

If c.Value >= CDate(TextBox1) And c.Value <= CDate(TextBox2) [B][COLOR=blue]And c.Value <> ""[/COLOR][/B] Then
...

A+

 

[Aladin]

Re : Recherche plus affichage infos

Bonsoir BrunoM45 et le forum
Merci pour ta réponse mais j' ai éssayé le code mais il ne me donne pas la solution car je voudrais appuyer la valeur nul non pas sur le controle date mais sur les infos qu' ils remonte
c' est à dire colonne D, E, F si valeur nulle pas d' affichage
Listbox. les dates sont fixes
Aladin