Microsoft 365 VBA si caractère à droite (Résolu)

[Kael_88]

Le forum,
aujourd'hui je me tourne vers vous, pour un problème de déplacement des lignes d'un tableau, d'un fichier A vers un fichier B, à la condition que la fin de la cellules de se dernier se terminent par "AV" dans la colonne A.
Contrainte :
- uniquement en code VBA.
- pas de fonction, merci.
cordialement

 

[job75]

Bonjour Kael_88,

Voyez le fichier joint et ce code :

Sub MAJ()
Application.ScreenUpdating = False
Rows("3:" & Rows.Count).Delete 'RAZ
With Sheets("fichier A").[A1].CurrentRegion
    .AutoFilter 1, "*AV"
    .Copy [A2]
    .AutoFilter
End With
End Sub

A+

 

[Kael_88]

Le forum,@job75 ,

Merci à vous @job75 , pour votre réactivité et votre réponse toujours aussi parfaite.

Cordialement

 

[JBARBE]

Bonjour à tous, job, Kael
Peut-être ceci mais la macro de job est plus rapide !
Bonne journée !

 

[Kael_88]

Le forum,@job75 , @JBARBE ,

merci à vous aussi pour votre proposition @JBARBE .

Cordialement