XL 2016 Trouver une donnée ou texte et retranscrire en mot dans autre cellule

ratsavong · 29 Juillet 2022

Bonjour à tous,

J'ai besoin de vos compétences pour travailler le fichier ci joint: j'ai besoin en fonction des noms des fichiers de répartir les données dans les onglets
==>Onglet RELEVE Si je trouve RDC ou RELEVE de la feuille 1 colonne A ou D
==> Onglet WEB Si je trouve AFP ou 0000 colonne D ou RELEVE colonne A
==>Onglet MAILING Si je trouve Mailing

Merci pour votre aide,
virginie

Hasco · 29 Juillet 2022

Bonjour,

Une proposition par power query après avoir transformé votre tableau en tableau structuré nommé "T_Datas"

Comme on ne sait pas trop ce que vous entendez par "Si je trouve" est-ce que ça veut dire que la colonne doit être égale à ou contenir ou autre chose encore, j'ai fait comme je sentais,.

A vous par conséquent d'affiner les critères requêtes "RELEVE", "WEB", "MAILING" ou nous préciser les choses.

Cordialement

job75 · 30 Juillet 2022

Bonjour ratsavong, Hasco,

Voyez le fichier .xlsm joint et cette macro dans ThisWorkbook qui utilise le filtre avancé :

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim F As Worksheet, liste, i As Variant, critere As Range
Set F = Sheets("Feuil1")
liste = Array("RELEVE", "WEB", "MAILING") 'liste des noms des feuilles
i = Application.Match(Sh.Name, liste, 0)
If IsError(i) Then Exit Sub
Set critere = F.[F1:F2]
Application.ScreenUpdating = False
Sh.UsedRange.Delete xlUp 'RAZ
Select Case i
    Case 1: critere(2) = "=OR(ISNUMBER(SEARCH(""RDC"",A2)),ISNUMBER(SEARCH(""RELEVE"",A2)),ISNUMBER(SEARCH(""RDC"",D2)),ISNUMBER(SEARCH(""RELEVE"",D2)))"
    Case 2: critere(2) = "=OR(ISNUMBER(SEARCH(""RELEVE"",A2)),ISNUMBER(SEARCH(""AFP"",D2)),ISNUMBER(SEARCH(""0000"",D2)))"
    Case 3: critere(2) = "=OR(ISNUMBER(SEARCH(""Mailing"",A2)),ISNUMBER(SEARCH(""Mailing"",D2)))"
End Select
F.UsedRange.Resize(, 4).AdvancedFilter xlFilterCopy, critere, Sh.[A1] 'copie le filtre avancé
critere.ClearContents
End Sub

Elle se déclenche automatiquement quand on active une feuille.

A+

ratsavong · 8 Août 2022

merci à tous les deux, je regarde de près aujourd'hui.
Désolée pour ma réponse tardive...quelques jours de repos.

je reviens vers vous

XL 2016 Trouver une donnée ou texte et retranscrire en mot dans autre cellule

ratsavong

XLDnaute Nouveau

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

ratsavong

XLDnaute Nouveau

Discussions similaires