XL 2016 Recherche V avec Mise en Forme

[bibbip35]

Bonjour à tous

Je cherche a réaliser une macro. afin de copier la cellule selon la valeur d'une autre cellule
Pour faire simple , je cherche a faire via une Macro. une recherche V qui copierai la cellule trouvé
dans une autre feuille

Nb/ Dans l'exemple , en PJ je cherche a copier de l'onglet "fichier de base" vers onglet "Recherche V" tous en conservant
la mise en Forme et si il ne trouve pas je souhaite faire apparaître pas de Datas

Merci à tous pour votre aide

Bibbip35

 

[BOISGONTIER]

Bonjour,

http://boisgontierjacques.free.fr/pages_site/recherchev.htm#MiseForme

Boisgontier

 

[bibbip35]

Bonjour Boisgontier

J'ai essayé de reprendre votre code mais sans succès … Pouvez-vous m'aider ?

Sub Ajout_Composants_Manquants_PDP()
Dim DernLigne As Long
DernLigne = Sheets("Synth?se_Simul_Appro_par_OF").Range("A" & Rows.Count).End(xlUp).Row

Dim DernLigne1 As Long
DernLigne1 = Sheets("Plan de Charge").Range("S" & Rows.Count).End(xlUp).Row


Application.ScreenUpdating = False
For Each c In Sheets("Plan de Charge").Range("$S$5:$S$" & DernLigne1)
p = Application.Match(c, Application.Index(Sheets("Synth?se_Simul_Appro_par_OF").Range("$A$2:$B$" & DernLigne), , 1), 0)
If Not IsError(p) Then
Sheets("Synth?se_Simul_Appro_par_OF").Range("$A$2:$B$" & DernLigne).Cells(p, 2).Copy Target.Offset(, 82)
End If
Next c
Application.ScreenUpdating = True

'Sheets("Plan de Charge").Range("Tableau_Lancer_la_requ?te_?_partir_de_excalibur[NUMERO_OFDA]").Select
End Sub

Merci d'avnce