Champs de saisie qu permet d'isoler une ligne

Bonjour !!

J'ai vraiment besoin de votre aide

Je voudrais qua partir d'un champs de saisi je saisie "C4" et la macro me sélectionne toute la ligne contenant "c4" et la met dans une feuille a part du même fichier Excel

Merci a tous

en pièce jointe une capture de mon fichier Excel pour un aperçu et mon fichier

capture1
5elyo-travail2.xlsx (15.81 Ko)

Hello,

En fichier joint, un fichier avec un bouton pour résoudre (je crois) ton problème.

Excelement,

Adrien

[EDIT : Pour utiliser le bouton, clique sur une cellule de ton tableau (feuille 1), puis sur le bouton, la ligne de la cellule sélectionné sera automatiquement envoyé comme dernière ligne du tableau de la feuille 2.]

4solution.xlsm (29.60 Ko)

Bonjour Adrien,

merci pour ton aide !!

cependant le but est d'automatiser la tache donc je ne peux pas utiliser des filtre

merci tout de meme

Cordialement

Elio

Bonjour à tous

Un essai, si j'ai bien compris.

Si on saisit en H1 (cellule jaune) une valeur du champ de la colonne H, les lignes contenant cette valeur sont copiées et collées sur la Feuil3.

Cela te convient-il ?

Bye !

Bonjour Gmb

Merciii beaucoup pour ton aide , j'ai réussi a ouvrir ta pièce jointe mais je n'ai pas accès au code pourrai tu me l'envoyer stpp

Bonjour

elyora a écrit :

mais je n'ai pas accès au code

Il te suffit de taper simultanément sur les touches Alt et F11.

OK ?

Bye !

Excuse moi de te déranger encore

J'ai accès au code mais il ne s'exécute pas

Peut être manque t-il un élément ?

Option Explicit

Dim tablo, tablor()
Dim i&, j&, k&

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$H$1" Then
        tablo = Range("A2:M" & Range("H" & Rows.Count).End(xlUp).Row)
        k = 1
        For i = 1 To UBound(tablo, 1)
            If UCase(tablo(i, 8)) = UCase(Target) Then
                ReDim Preserve tablor(1 To UBound(tablo, 2), 1 To k + 1)
                For j = 1 To UBound(tablo, 2)
                    tablor(j, k) = tablo(i, j)
                Next j
                k = k + 1
            End If
        Next i
    End If
    Sheets("Feuil3").Cells.ClearContents
    On Error GoTo fin
    Sheets("Feuil3").Range("A2").Resize(UBound(tablor, 2), UBound(tablo, 2)) = Application.Transpose(tablor)
    Sheets("Feuil3").Activate
fin:
End Sub
elyora a écrit :

J'ai accès au code mais il ne s'exécute pas

Pour ça, il te faut activer les macros.

Bye !

elles sont activé !

Alors, désolé mais je ne vois pas comment t'aider.

Bye !

bonjour

bouge pas GMB hop.... et voila

a noter que les 2 colonnes doivent imperativement etre de la mme année pour etre prises en compte

formule matricielle

4elyora.xlsx (55.65 Ko)

cordialement

pourquoi ne pas extraire de la feuille1

Rechercher des sujets similaires à "champs saisie permet isoler ligne"