Extraire des données selon un critère

Bonjour,
Je viens vous demander votre aide car je rencontre un problème sur un fichier excel et je ne sais pas comment le resoudre.

C'est un fichier de comptabilité dans lequel la banque est saisie (c'est à dire les lignes du comptes sont copiée collées tous les mois) sur la première feuille intitulée "CE"

devant ces lignes on y met des numeros de 1 à 31

je souhaiterai ensuite que toutes les lignes debutant par 11 soient "exportées" dans le tableau situé en feuille 2 intitulé "licence 11".

de cette façon à terme nous auront une exportation automatique des différents "postes" de notre comptabilité.

J'ai tenté une rechercheV mais bien évidement elle ne se rend pas compte qu'elle me copie les memes lignes plusieurs fois.

Avez vous une solution pour moi svp?

Bonjour à tous,

Et il faut conserver toutes les exportations successives, dans le la feuille "licence 11" pour avoir une archive sur toute l'année ?

Ou bien les lignes du compte copiées/ collées tous les mois sur la première feuille intitulée "CE" le sont les unes a la suite des autres dans cette feuille et servent d'archives annuelles ?

Crdlmt

Merci de ta réponse rapide :)

Oui on garde le fichier annuellement.

Dans la feuille CE on y colle bout a bout les operation chaque mois et je souhaiterais qu'il y ait également toute l'année dans le tableau "licence 11".

J'espère que j'ai répondu à ta question ^^

Bonjour,

Sub EXPORTLICENCES()
Dim DERLIGNE As Long
'TEST DU NOMBRE TOTAL DE LIGNE DE LA FEUILLE CE
DERLIGNE = Range("A65536").End(xlUp).Row
insertligne = 4

'BOUCLE INTERROGATION SI CELLULE COLONNE A=11
For i = 4 To DERLIGNE
If Range("A" & i).Value = 11 Then
Worksheets("LICENCE 11").Range("A" & insertligne & ":E" & insertligne).Value = Worksheets("CE").Range("B" & i & ":F" & i).Value
insertligne = insertligne + 1
End If
Next i

End Sub

Bonjour,

Autre méthode

Sub Export_Licence11()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim DerLig_F1 As Long, NbLig As Long
    Dim Crit As String

    Application.ScreenUpdating = False
    Set f1 = Sheets("CE")
    Set f2 = Sheets("LICENCE 11")
    f2.Range("A4:E10000").ClearContents
    Crit = 11
    f1.Select
    DerLig = f1.Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A3:F" & DerLig).AutoFilter Field:=1, Criteria1:=Crit
    NbLig = Range("_FilterDataBase").Resize(, 1).SpecialCells(xlCellTypeVisible).Count - 1
    ActiveSheet.Range(Cells(4, "B"), Cells(DerLig, "F")).SpecialCells(xlCellTypeVisible).Copy f2.Range("A4")
    f1.ShowAllData
    f2.Select

    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Cdlt

Xmenpl merci bcp pour le renvoi du fichier.

Si je comprends bien tu as insérer une macro.

Je comprend à peu près le code et je pense pouvoir le modifier pour faire la meme chose pour les autres tableaux, seul problème je ne sais pas comment créer au autre bouton que tu as fait ^^

Pour ma participation, j'ai oublié de coller le fichier, le voici

Cdlt

Pièce jointe supprimée le 09/06/2025

Orely0802 a écrit :

Xmenpl merci bcp pour le renvoi du fichier.

Si je comprends bien tu as insérer une macro.

Je comprend à peu près le code et je pense pouvoir le modifier pour faire la meme chose pour les autres tableaux, seul problème je ne sais pas comment créer au autre bouton que tu as fait ^^

Re, Vous n'êtes pas obligé d'utiliser le même type de bouton : au choix

- Onglet développeur : insérer "Bouton" control active X et dans le code du bouton on indique le nom de la macro.

ou - Onglet développeur : insérer un bouton control formulaire et puis clic droit sur le bouton "Affecter une macro".