XL 2016 Recherche V avec Mise en Forme

bibbip35

XLDnaute Occasionnel
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
 

Pièces jointes

  • Classeur Recherche V.xlsx
    11.3 KB · Affichages: 31

bibbip35

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata