Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Probleme Rechercher avec copie et offset en VBA

zartent

XLDnaute Nouveau
Bonjour,

Je cherche à copier le contenue d'une plage de valeurs d'une feuille "Feuil1" vers le tableau d'une autre feuille "Repair 2022" en utilisant la fonction recherche et en décalant la copie de 2 colonnes


Sub Test()

Dim SrcRng As Range
Dim myRange As Range
Dim cor As Variant
Dim SUIVI As Workbook


Sheets("Feuil1").Select
Set SrcRng = ActiveSheet.Range("D15").CurrentRegion

With SrcRng
Debug.Print .Address, .SpecialCells(xlCellTypeVisible).Address
.AutoFilter Field:=2, Criteria1:="<>"


Sheets("Repair 2022").Select
'.SpecialCells(xlCellTypeVisible).copy Destination:=Worksheets("Repair 2022").Range("A:S").Find(Worksheets("Feuil1").Range("B11").Offset(2, 0))


End With

End Sub

Pourriez vous m'aider à trouver un solution ?

cordialement
 

Discussions similaires

Réponses
2
Affichages
348
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…