Microsoft 365 copier des cellules qui ont même identifiant à partir d'une autre page

SAAD doli

XLDnaute Nouveau
slt , j'espère que vous allez bien
je suis dans la page "vierge"
je veux faire la copie des colonnes 5 de chaque ligne dont l'id existe dans la page "Semaine_N" pour les coller dans page active "vierge"
Set rg = .[E2].Resize(NbLgn)
rg.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-4],'FS_semaine N'!R2C1:R" & LFin & "C15,5,FALSE),""NEW / à éclaircir"")"
rg.Value = rg.Value
1-chercher les ids qui existent dans les deux pages et copier la cellule 5 de la page "Semaine_N" et puis coller dans la cellule de la page "vierge"
2-pour les nouveaux ids dans vierge on remplie cette cellule par "NEW / à éclaircir"

ce code ne marche pas , je sais pas pourquoi(remplit toutes les cases avec "NEW / à éclaircir" ) , pouvez vous me proposer une autre méthode ?
 

SAAD doli

XLDnaute Nouveau
Bonjour à tous,

Pourquoi ne pas utiliser un filtre avancé?
Peux-tu mettre un exemple de quelques lignes sur un fichier.

JHA
Dim id As String
Dim i, k As Integer
For i = 1 To NbLgn
id = Sh_V.Cells(i, 1)
For k = 1 To LFin
If id = Sh_SN1.Cells(k, 1) Then
With Sh_V
.Cells(i, 5) = Sh_SN1.Cells(k, 5)
End With
End If
Next
Next

ce code fait les manipulations que je veux faire mais il est très lent , comment parcourir des colonnes sans utiliser des boucles imbriquées
 

Discussions similaires

Réponses
11
Affichages
560

Statistiques des forums

Discussions
313 297
Messages
2 096 927
Membres
106 789
dernier inscrit
FrancoisVLD