VBA Excel extracting datas

elhassbaoui.com Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -  
elhassbaoui.com Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour mes chers/cheres,

j'ai un tableau Exemple en dessous:

A B C D
1
2
3
4
A1=Mat. Employé.
B1=Nom. Employé.
C1=Prénom Employé.
D1=Situation.
Situation=Départ/Encours

Objectif:quand on clic un bouton de commande, on reçoit toutes lignes contenant par exemple "Départ"

Merci d'avance.
A voir également:

4 réponses

Réponse 1 / 4
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonsoir

Pourquoi une macro alors que des formules suffisent ?
https://mon-partage.fr/f/VZJNk6QP/

Cdlmnt
Via
1
elhassbaoui.com Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
oui mon cher je sais que les formules sont suffisants mais ce que je voulais exactement c d'inserer soit une liste de choix contenant les mots a rechercher donc lors ce qu'on choisi un mot de la liste nous recevons toutes les lignes appartiennes a cette recherche sin non un code pour que si on clic sur un bouton une autre feuille s'ouvre avec les lignes appartienne au critére.
merci en tout cas pour ton aide.
0
Réponse 2 / 4
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   463
 
Bonjour,
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier,
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Cordialement



0
elhassbaoui.com Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
https://www.cjoint.com/c/IJxqC6sxia7
0
Réponse 3 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

en vba a mettre dans un module: 

Option Explicit
Sub Bouton1_Clic()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim FL2 As Worksheet
Dim i As Integer, DernLigne As Long
    Set FL1 = Worksheets("Feuil1")
    Set FL2 = Worksheets("Feuil2")
    'dernière ligne colonne A
DernLigne = FL2.Range("A" & Rows.Count).End(xlUp).Row  + 1
    NoCol = 4 'lecture de la colonne D
    For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = "Départ" Then
       FL2.Range("A" & DernLigne + i & ":D" & DernLigne + i).Value = FL1.Range("A" & NoLig & ":D" & NoLig).Value
      i = i + 1
        End If
    Next
    Set FL1 = Nothing
End Sub



Voilà


0
elhassbaoui.com Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
merci
0
Réponse 4 / 4
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

un simple filtre auto mis sur la ligne de titre fera 10 fois plus que n'importe quelle macro.
Au prix de 3 clics au lieu d'un certes...
eric
0
elhassbaoui.com Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
merci eriiic
0