XL 2016 Find pour les dates (VBA)

pierrejean

XLDnaute Barbatruc

• 22 Juillet 2019

• #2

Bonjour ZAJNI

A tester

 

Pièces jointes

• test - Copie.xlsm

  18.7 KB · Affichages: 17

Vote positif 0 Vote négatif

Z

ZAJNI

XLDnaute Nouveau

• 22 Juillet 2019

• #3

Bonjour Pierrejean,
Je te remercie, ça marche.
Je veux l'utiliser autre part, est ce que je peux savoir ce que vous avez rajouter ?
Le code est resté le même.

Merci beaucoup

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Juillet 2019

• #4

Re

Pour le find j'ai ajouté lookin:=xlvalues
Pour la sélection j'ai remplacé cellule par foundCell

 

Vote positif 0 Vote négatif

Z

ZAJNI

XLDnaute Nouveau

• 22 Juillet 2019

• #5

Excuse moi de te déranger,
cela ne marche plus quand je modifie la taille des cellules, chose que je trouve bizarre.

Voici le fichier ci-joint avec les tailles modifiées.

Merci

 

Pièces jointes

• test - Copie.xlsm

  18.5 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juillet 2019

• #6

Bonjour ZAJNI, Pierre,

Voyez le fichier joint et le code de l'UserForm :

VB:

Private Sub ComboBox_de_Change()
Dim Li%, liste
ComboBox_à.Clear 'RAZ
Li = ComboBox_de.ListIndex
With [A3].CurrentRegion.Rows(1)
    If Li = -1 Or Li = .Columns.Count - 1 Then Exit Sub
    liste = .Cells(Li + 2).Resize(, .Columns.Count - Li - 1).Value
    If IsArray(liste) Then
        ComboBox_à.List = Application.Transpose(liste)
    Else
        ComboBox_à.AddItem liste
    End If
End With
ComboBox_à.SetFocus
Application.OnTime 1, "Deroule" 'déroulement différé
End Sub

Private Sub UserForm_Initialize()
Dim liste
liste = [A3].CurrentRegion.Rows(1).Value
If IsArray(liste) Then ComboBox_de.List = Application.Transpose(liste) Else ComboBox_de.AddItem liste
End Sub

Le code dans Module1 :

VB:

Sub USF()
Choix_période.Show
End Sub

Sub Deroule()
Choix_période.ComboBox_à.DropDown
End Sub

A+

 

Pièces jointes

• test(1).xlsm

  28.5 KB · Affichages: 4

Dernière édition: 22 Juillet 2019

Vote positif 0 Vote négatif

Z

ZAJNI

XLDnaute Nouveau

• 22 Juillet 2019

• #7

Bonjour job75,

Je reviens vers toi car ta solution marche super bien, mais dès que je rajoute des colonnes à gauche ou lignes en haut tout est cassé, même si je modifie le [A3] dans le code.
Voici le fichier :

merci beaucoup pour l'aide

 

Pièces jointes

• test(1).xlsm

  97.7 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juillet 2019

• #8

Fichier (2), tout va bien en nommant "Date1" la 1ère cellule des dates et en utilisant :

VB:

Range([Date1], Cells([Date1].Row, Columns.Count).End(xlToLeft))

 

Pièces jointes

• test(2).xlsm

  26.8 KB · Affichages: 4

Vote positif 0 Vote négatif

Z

ZAJNI

XLDnaute Nouveau

• 23 Juillet 2019

• #9

Merci beaucoup pour ton aide ça marche super bien.

J'ai juste une question, puisque sur mon code j'utiliserai quand même la fonction find pour récupérer la colonne dans laquelle se trouve les dates récupérées des combobox. pourquoi la fonction find ne marche pas ?

VB:

Date_début = CDate(ComboBox_de)
date_fin = CDate(ComboBox_à)
Sheets("Feuil1").Activate
Set DebCell = ThisWorkbook.Worksheets("Feuil1").Rows("3").Find(What:=Date_début, LookIn:=xlFormulas, lookat:=xlWhole)
Set finCell = ThisWorkbook.Worksheets("Feuil1").Rows("3").Find(What:=date_fin, LookIn:=xlFormulas, lookat:=xlWhole)

Merci beaucoup

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Juillet 2019

• #10

ZAJNI à dit:

pourquoi la fonction find ne marche pas ?

Cliquez pour agrandir...

Parce que c'est comme ça, il faut éviter cette fonction qui est très lente et capricieuse.

 

Vote positif 0 Vote négatif

Z

ZAJNI

XLDnaute Nouveau

• 23 Juillet 2019

• #11

Qu'est ce que vous me conseillez pour récupérer la colonne ou se trouve la date de début ou de fin ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Juillet 2019

• #12

La fonction Application.Match est très classique pour les recherches, innombrables exemples sur ce forum.

 

Vote positif 0 Vote négatif

Z

ZAJNI

XLDnaute Nouveau

• 23 Juillet 2019

• #13

Super merci beaucoup

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 23 Juillet 2019

• #14

Bonjour,

Dans le fichier joint, la plage de dates est référencée dans une variable privée du userform.
La cellule de la date retenue correspond à plgDates.cells(1,Combobox_de.Listindex +1)
En se rappelant que les indexes de combobox commencent à 0 (zéro).

La combobox_à est mise à jour sur choix de la combobox_de.


Bonne fin d'après-midi

 

Pièces jointes

• ZAJNI.xlsm

  18.9 KB · Affichages: 6

Vote positif 0 Vote négatif

Z

ZAJNI

XLDnaute Nouveau

• 23 Juillet 2019

• #15

Merci à vous ! C'est super

 

Vote positif 0 Vote négatif