Copier des lignes dans une autre feuille Excel

Fermé

ArnaudNR - Modifié par ArnaudNR le 30/07/2016 à 14:19
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 3 août 2016 à 22:24

Bonjour,

Je tourne un peu en rond avec un petit problème.
J'ai un fichier excel dans lequel j'ai une feuille (FactureIN) avec toutes les factures d'achat de ma société. Différents achats doivent être refacturés.

Je souhaite pouvoir "isoler" dans une autre feuille ces factures qui nécessitent d'être refacturées. Dans la feuille "FacturesIN, j'ai une colonne avec chaque type de dépense (Loyer, Adwords, imprimés, ...)

Je souhaite par exemple, retrouver dans une feuille "Adwords" toutes les lignes qui ont le libellé "Adwords" dans la colonne 'Imputation" et ce de manière automatique.

Une piste ?
Merci d'avance pour votre aide.
(Je suis sur Mac avec excel 2011)

A voir également:

Copier des lignes dans une autre feuille Excel
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Copier une vidéo youtube - Guide
Feuille de pointage excel - Télécharger - Tableur
Formule excel - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
3 août 2016 à 22:24

Bonjour,

dans une feuille "Adwords" tu mets cette petite macro et dès que tu choisiras cette feuille elle sera mise à jour.

Option Explicit
Private Sub Worksheet_Activate()
Dim sel As Variant, cel As Range, lig As Long
Application.ScreenUpdating = False
With Sheets("FactureIN")
    Rows(2).Resize(UsedRange.Rows.Count).Delete
    Set sel = .Cells.Find("Imputation")
        If Not sel Is Nothing Then
            lig = 2
            For Each cel In .UsedRange.Columns(sel.Column).Cells
                If cel.Value = "Adwords" Then
                    .Rows(cel.Row).Copy Destination:=Rows(lig)
                    lig = lig + 1
                End If
            Next cel
        End If
End With
Application.ScreenUpdating = True
End Sub

Discussions similaires

Dessiner avec son clavier et avec des lettres

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters