Rechercher et copier des valeurs de colonnes

[matsin]

Bonjour,

J'ai 2 colonnes, une colonne avec des nombres et l'autre avec des dates.

L'utilisateur doit rentrer 2 dates dans 2 textbox, représentant les bornes de recherche.
Avec un bouton Valider.

Et je souhaiterais que cela s'affiche dans 2 colonnes de la feuille 2 avec la date et son numéro qui correspond.

Pour info, la feuille 1 sera protégée contre toute modification, c'est pour cela que je souhaite que tout se fasse dans la feuille2

Je joint le fichier xls avec un exemple

merci d'avance bonne journée

 

[porcinet82]

Re : Rechercher et copier des valeurs de colonnes

Salut Matsin,

Voici un code qui fait ce que tu souhaites :

Sub test()
Dim i%, cel As Range, ad1 As String, ad2 As String
Application.ScreenUpdating = False
Application.Goto Sheets("feuil2").Range("G3")
With Sheets("Feuil1")
    For Each cel In .Range("C3:C" & .Range("C65536").End(xlUp).Row)
        If CDate(cel) = CDate(Feuil1.RECH_1) Then
            ad1 = cel.Row
        ElseIf CDate(cel) = CDate(Feuil1.RECH_2) Then
            ad2 = cel.Row
            Exit For
        End If
    Next cel
    .Select
    .Range(Cells(ad1, 2), Cells(ad2, 3)).Copy
End With
Sheets("feuil2").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub

@+

 

[Gorfael]

Re : Rechercher et copier des valeurs de colonnes

Bonjour,

J'ai 2 colonnes, une colonne avec des nombres et l'autre avec des dates.

L'utilisateur doit rentrer 2 dates dans 2 textbox, représentant les bornes de recherche.
Avec un bouton Valider.

Et je souhaiterais que cela s'affiche dans 2 colonnes de la feuille 2 avec la date et son numéro qui correspond.

Pour info, la feuille 1 sera protégée contre toute modification, c'est pour cela que je souhaite que tout se fasse dans la feuille2

Je joint le fichier xls avec un exemple

merci d'avance bonne journée

Salut
ton fichier modifié pour faire ce que tu veux (j'espère)
Si tu as des questions, n'hésite pas
A+

 

[Gorfael]

Re : Rechercher et copier des valeurs de colonnes

Re
Fais chier porcinet82, il a toujours des idées plus simples que les miennes.
Va falloir que j'arrête de couper les cheveux en 32
A+

 

[matsin]

Re : Rechercher et copier des valeurs de colonnes

Je vous remercie à tout les deux

Vous êtes des chefs

bonne journée

 

[Robert]

Re : Rechercher et copier des valeurs de colonnes

Bonjour Matsin, Romain, Gorfael, bonjour le forum,

Hop hop vachement en avance... Voici ma proposition. Quoi c'est trop tard ?!!! Mais p... j'étais devant Porcinet et Gorfael mais je me suis absenté pour pi... ! C'est pas possible ça... En plus j'ai fait un super UserForm... Si, si vous verrez...

 

[matsin]

Re : Rechercher et copier des valeurs de colonnes

Merci aux autres aussi

Mais la robert, tu m'as fait gagner beaucoup de temps

C'est vraiment génial ton truc

merci beaucoup

 

[porcinet82]

Re : Rechercher et copier des valeurs de colonnes

re, Salut Robert,

Tu me suis a la trace en ce moment ou quoi ???? Bon c'est vrai ta solution n'est pas mal non plus...

MDR Gorfael !!!! Mon code est certainement plus simple mais je ne gere pas toutes les erreurs comme le fais le tiens, donc voici une version 2 pour eviter de trop faire planter la macro :

Sub test_V2()
Dim i%, cel As Range, ad1 As Variant, ad2 As Variant
Application.ScreenUpdating = False
Application.Goto Sheets("feuil2").Range("G3")
Range("G3:H" & Range("G3").End(xlDown).Row).ClearContents
With Sheets("Feuil1")
    For Each cel In .Range("C3:C" & .Range("C65536").End(xlUp).Row)
        If CDate(cel) = CDate(Feuil1.RECH_1) Then
            ad1 = cel.Row
        ElseIf CDate(cel) = CDate(Feuil1.RECH_2) Then
            ad2 = cel.Row
            Exit For
        End If
    Next cel
    If ad1 = "" Then MsgBox "Date de débur incorrecte": Exit Sub
    If ad2 = "" Then MsgBox "Date de fin incorrecte": Exit Sub
    .Select
    .Range("B" & ad1 & ":C" & ad2).Copy
End With
Sheets("feuil2").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub

@+

PS : Robert, arrete la Duvel si tu ne la supporte plus 😉