Bonjour,
J'ai tourné ici et la sur les forums mais je ne vois pas comment m'y prendre afin d'utilisé le filtre élaboré pour qu'il respecte la casse.
Je souhaite extraire de l'onglet "Liste" toutes les références correspondantes qui se trouve dans l'onglet "Livraison" et coller le tout dans "Stock".
J'utilise un filtre élaboré, mes références sont du type : spX00f5eFAe
Le soucis c'est que la casse n'est pas respectée, et la référence : spX00f5eFAE qui existe aussi sort également.
J'ai vu que la fonction EXACT pouvait résoudre le problème mais je ne vois pas bien comment l’intégrer dans mon code.
Une autre solution serait de comparer la colonne A de l'onglet "Stock" avec celle de l'onglet livraison et supprimer les lignes qui ne correspondent pas exactement.
Je joins mon fichier.
Merci de votre aide
J'ai tourné ici et la sur les forums mais je ne vois pas comment m'y prendre afin d'utilisé le filtre élaboré pour qu'il respecte la casse.
Je souhaite extraire de l'onglet "Liste" toutes les références correspondantes qui se trouve dans l'onglet "Livraison" et coller le tout dans "Stock".
J'utilise un filtre élaboré, mes références sont du type : spX00f5eFAe
Le soucis c'est que la casse n'est pas respectée, et la référence : spX00f5eFAE qui existe aussi sort également.
J'ai vu que la fonction EXACT pouvait résoudre le problème mais je ne vois pas bien comment l’intégrer dans mon code.
Une autre solution serait de comparer la colonne A de l'onglet "Stock" avec celle de l'onglet livraison et supprimer les lignes qui ne correspondent pas exactement.
Code:
Sub Stock()
Dim DerLg As Integer
Dim DerL As Integer
Application.ScreenUpdating = False
DerLg = Sheets("Livraison").Range("A" & Rows.Count).End(xlUp).Row
DerL = Sheets("Liste").Range("E" & Rows.Count).End(xlUp).Row
Sheets("Stock").Cells.Clear
Sheets("Liste").Range("A1:E" & DerL).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Livraison").Range("A1:A" & DerLg), _
CopyToRange:=Sheets("Stock").Range("A1"), Unique:=False
Application.ScreenUpdating = True
End Sub
Je joins mon fichier.
Merci de votre aide