Extraction données d'une feuille Excel

Bonjour à toute et à tous,

J'ai un grand besoin de votre aide sur une extraction de données à partir d'une feuille d'un classeur excel. Il y aura certainement besoin d'une macro et c'est là que se situe mon problème car je n'y connais absolument rien.

Pour expliquer brièvement ma situation, j'ai une première feuille sur laquelle je note l'identifiant d'une personne, ensuite en faisant une recherche, un tableau apparaît plus bas avec tout ce qui correspond à l'individu et les compétences qu'il a maîtrisé.

J'ai joint un fichier excel pour que vous puissiez avoir une meilleure vision de ce que je souhaiterais.

Je vous remercie par avance.

Bonne journée

Sub toto()
    Dim identif As String
    Dim i As Long, k As Long
    identif = Sheets("Feuil1").Range("B1")
    k = 4
    Sheets("Feuil1").Range("A4:ZZ50000").ClearContents
    With Sheets("Ex report")
        For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
            If identif = .Range("A" & i) Then
                .Range("A" & i).EntireRow.Copy Destination:=Sheets("Feuil1").Range("A" & k)
                k = k + 1
            End If
        Next i
    End With
End Sub

Merci beaucoup EngueEngue, ça marche parfaitement c'est génial.

J'ai essayé de comprendre ta macro en vain, je voulais voir où je pouvais faire une modification si je voulais par exemple faire la recherche par nom, prénom au lieu de l'identifiant. Tu penses pouvoir m'aider?

En tout cas merci encore c'est super.

supposons que ton Nom est en B1 et ton prenom en C1 de la Feuil1

Sub toto()
    Dim identif As String
    Dim i As Long, k As Long
    identif = Sheets("Feuil1").Range("B1")& " " & Sheets("Feuil1").Range("C1")
    k = 4
    Sheets("Feuil1").Range("A4:ZZ50000").ClearContents
    With Sheets("Ex report")
        For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
            If identif = .Range("B1")& " " & .Range("C1") Then
                .Range("A" & i).EntireRow.Copy Destination:=Sheets("Feuil1").Range("A" & k)
                k = k + 1
            End If
        Next i
    End With
End Sub

En suivant tes hypothèses et ce que j'ai sur le tableau je n'arrive pas à faire de recherche par nom et par prénom. Cela me met une erreur 400, voici ce que j'ai fait, j'ai juste mis B et C pour prendre la colonne en entier, mais je ne sais pas si cela fonctionne comme ça :

Sub toto()
    Dim identif As String
    Dim i As Long, k As Long
    identif = Sheets("Feuil1").Range("B")& " " & Sheets("Feuil1").Range("C")
    k = 4
    Sheets("Feuil1").Range("A4:ZZ50000").ClearContents
    With Sheets("Ex report")
        For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
            If identif = .Range("B")& " " & .Range("C") Then
                .Range("A" & i).EntireRow.Copy Destination:=Sheets("Feuil1").Range("A" & k)
                k = k + 1
            End If
        Next i
    End With
End Sub

Il marche chez moi.

Ah bon, et bien je ne vois pas ce qui cloche dans ce que j'ai fait, je vais réessayer, c'est quand même bizarre.

Merci quand même de ton aide, je ne sais pas comment j'aurai fait sinon

If identif = .Range("B"& i)& " " & .Range("C"& i) Then

Excuse

Ca fonctionne, génial.

Un très grand merci à toi, pour le temps que tu m'a consacré.

Bonne journée,