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
99

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG