Copier sous conditions

Bonjour le forum

Voilà j'ai un petit soucis, j'aimerai ( et je vais essayer de bien vous faire comprendre )

Copier toutes les cellules de la colonne B et colonne C de ma feuille 1 sur ma feuille 2

si et Seulement si les celulle de la collone A feuille 1 et egale a ma celule B2 feuille 2

Un exemple est toujours le bien venu.

Bonsoir,

Quel est le but de la manœuvre?

Lister, alors un filtre suivant le matricule peut suffire (manuel ou VBA le cas échéant dans une autre feuille).

Si tu as des calculs à faire, un TCD peut-être utile.

Peux-tu être plus précis?

Cdlt

Bonjour,

sans macro mais un peu dans ce genre là je suppose mais tout les uns derrières les autres

Bonjour,

Merci de vos reponses.

Ton tcd est très pratique Jean-Eric, il me servira pour une autre application, mais la réponse que je voulais est celle de pettoman.

Mais quand il copie les lignes du même matricule, il la copie exactement a la meme ligne sur l'autre feuil, ce qui me créer des blanc. N'y a t'il pas un moyen des les mettres tous à la suite?

Merci à vous deux

Cdlt

Rémy

Bonjour,

Ci-joint fichier avec tes recommandations (Filtre élaboré sur une autre feuille)

Il suffisait d'être un peu plus précis.

Cdlt

Option Explicit
Public Sub FiltreAuto()
'Jean-Eric
Dim sH_1 As Worksheet
Dim sH_2 As Worksheet
Dim derligne As Integer
Dim Filtre As Range
Dim Plage As Range

    Application.ScreenUpdating = False

    Set sH_1 = Worksheets(1)
    Set sH_2 = Worksheets(2)
'------------------------------------------------------------------
    sH_2.Activate
        derligne = Range("A" & Rows.Count).End(xlUp).Row
        If derligne > 1 Then
            Set Filtre = Range(Cells(2, 1), Cells(derligne, 3))
            Filtre.Select
            Selection.Delete Shift:=xlUp
        End If
'------------------------------------------------------------------
    With sH_1
        Set Plage = .Range("A4").CurrentRegion
        derligne = .Range("A" & Rows.Count).End(xlUp).Row
        Plage.AdvancedFilter Action:= _
                xlFilterCopy, CriteriaRange:=sH_1.Range("A1:A2"), _
                CopyToRange:=sH_2.Range(Cells(1, 1), Cells(derligne, 3)), Unique:=False
        Plage.AutoFilter
    End With
'------------------------------------------------------------------
    Application.ScreenUpdating = True

End Sub

Merci beaucoup Jean-Eric.

Ca va me faire gain de temps extraordinaire.

Il ne me reste plus qu'a decoder ton code =).

Merci encore

Cdlt Rémy