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

dhoundeton

XLDnaute Nouveau
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
 

Pièces jointes

  • MES NUMEROS.XLS
    104.5 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour dhoundeton,
Un essai en PJ avec :
VB:
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.
 

Pièces jointes

  • MES NUMEROS.XLS
    124.5 KB · Affichages: 4

JHA

XLDnaute Barbatruc
Bonjour à tous,
Bonjour Sylvanu,

Une autre possibilité par formules matricielles.

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

JHA
 

Pièces jointes

  • MES NUMEROS.xlsx
    44 KB · Affichages: 2
Dernière édition:

dhoundeton

XLDnaute Nouveau
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
 

Pièces jointes

  • MES NUMEROS 02.XLS
    877 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
'------------------------------------------------------------------------------------------------------
' 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 :
Code:
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.
 

Pièces jointes

  • MES NUMEROS 02 V2.XLS
    910.5 KB · Affichages: 1

Discussions similaires