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.
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).
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
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
Partager