1 2 3 4 5 6 7 8 9 10
| Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
Sheets("transfert").Range("G2:AK2").Copy
Valeur_Cherchee = ActiveSheet.Range("R4").Value
Sheets("transfert").Range("G2:AK2").Copy
Application.Workbooks.Open Filename:="S:\Réclamations\ENR 05 Registre Réclamation_AC_AP 2015.xlsm", Password:="F700", WriteResPassword:="F700"
Set PlageDeRecherche = Sheets("Registre réclamations").Columns(12)
Set Trouve = PlageDeRecherche.Cells.Find(What:=Valeur_Cherchee)
ActiveCell.Select
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False |
Partager