Bonjour à tous,
Avec ce code, je cherche et coupe les valeurs de la ligne dont la cellule de la colonne A de la feuil2 contient l'information sélectionnée dans la ListBox1. Je retourne ensuite dans la feuil1 puis je colle ces informations dans les cellules de la ligne 1.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Recherche_Ligne()
Application.ScreenUpdating = False
Sheets("Feuil2").Select
    Dim Nom_ok As Range
    Set Nom_ok = Columns("A").Find(RetourADQS.ListBox1)
    If Not Nom_ok Is Nothing Then
Nom_ok.EntireRow.Cut
    Else
End If
Sheets("Feuil1").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub
J'aimerais pouvoir sélectionner la ligne de la feuil2 au lieu de la couper puis incrémenter les cellules de la ligne 1 de la feuil1 de manière à ce que les infos de la cellule A1 de la feuil2 se reportent dans la cellule A1 de la feuil1, les infos de la cellule B1 de la feuil2 se reportent dans la cellule B1 de la feuil1, les infos de la cellule C1 de la feuil2 se reportent dans la cellule C1 de la feuil1 et que les infos de la cellule D1 de la feuil2 se reportent dans la cellule D1 de la feuil1. ( je n'ai des informations que dans ces 4 cellules).

En clair, j'aimerais éviter de passer par copier la ligne sélectionnée pour la recoller sur la ligne 1 de la feuil1.

Quelqu'un pourrait-il me donner un coup de main svp?
Merci par avance
Laurent