XL 2010 Rechercher ou extraire, des numéros avec critères

[dhoundeton]

Bonjour
Besoin de votre assistance
J 'ai une base de données ,de plusieurs numéros de téléphone , je souhaite extrait sur une autre feuille nommée RESULTAT , des numéro de téléphone avec les critères:
1/ les numéros qui commencent par 01144 ; 01173 et 01176 .
2/ Date d activation
3/ Code Gestionnaire
4/ Nom utilisateur

​

model fichier ci joint

 

[sylvanu]

Bonjour dhoundeton,
Un essai en PJ avec :

Sub Worksheet_Activate()
    Dim Ligne%, L%, C%, DL%, tablo
    DL = Range("A65500").End(xlUp).Row
    Range("A2:D" & DL).ClearContents
    Application.ScreenUpdating = False
    DL = Sheets("Base").Range("A65500").End(xlUp).Row
    tablo = Sheets("Base").Range("A1:D" & DL)
    Ligne = 2
    ' les numéros qui commencent par 01144 ; 01173 et 01176 .
    For i = 2 To UBound(tablo)
        Numéro = Left(tablo(i, 1), 5)
        If Numéro = "01144" Or Numéro = "01173" Or Numéro = "01176" Then
            For C = 1 To 4
                Cells(Ligne, C) = tablo(i, C)
            Next C
            Ligne = Ligne + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

la mise à jour se fait automatiquement lorsqu'on sélectionne la feuille RESULAT.

 

[JHA]

Bonjour à tous,
Bonjour Sylvanu,

Une autre possibilité par formules matricielles.

Edit changement fichier, modification formule et un essai avec power query

JHA

 

[dhoundeton]

Bonjour à tous,
Bonjour Sylvanu,
Bjr JHA

Merci pour votre appui;

Je souhaite avoir plus données , c est a dire à ajouter plus de colonnes de données dans feuille BASE
Avoir plus d 'informations sur les numéros dans RESULAT

@ Sylavnu vous pouvez m'expliquer les étapes afin que je puisse modifier ( ajouter ou enlever) d'autres ou les types de des numéro 01144 …..etc

fichier joint

D avance merci

 

[sylvanu]

Bonjour Dhoundeton, JHA,
Une nouvelle version en PJ avec :
1- J'ai modifié la recherche des numéros en ajoutant un array. Pour rajouter un numéro il suffit de la rejouter à la fin de la liste :

'------------------------------------------------------------------------------------------------------
' Pour ajouter un numéro, il suffit de rajouter avant la ")" :    ,"xxxxx"   avec xxxxx le numéro désiré
Liste = Array("01144", "01173", "01176")
'------------------------------------------------------------------------------------------------------

2- J'ai rajouté les colonnes dans Résultat, on copie des colonnes A à N.
3- Pour modifier le nombre de colonnes copiées il faut changer :

tablo = Sheets("Base").Range("A2:N" & DL) ' Modifier le "N" pour réduire agrandir le tableau
For C = 1 To 14         ' 14 est la 14ème colonne, colonne N. peut être modifié si besoin.

 

[dhoundeton]

Bonjour Sylvanu,
Merci cela réponds à mon besoin . Mais j'aurai d'autres requêtes additionnelles à intégrer sur le tableau

 

[sylvanu]

Bonsoir,
Mais encore ? 😉

 

[dhoundeton]

Slt
Je reviens vers toi des que possible pour .
J'ai un autre sujet , que je viens de poster "

Importer et Combiner des infos des données fichier .TXT en model rapport sous fichier excel​

Merci