VBA Excel extracting datas Fermé

Question

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.

JCB40 · Answer

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

via55 · Answer

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

cs_Le Pivert · Answer

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à

eriiic · Answer

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