Copier une ligne entière SI

Bonjour à vous,

j'ai besoin de vous car j'aimerais afficher une ligne entière d'une feuil à une autre si deux cellules sont identiques sinon ne pas afficher.

J'aimerais également faire la même chose mais avec une condition. Donc afficher une ligne entière d'une feuil à une autre si la cellule est égale à "texte" alors copier la ligne sinon rien.

Merci la commu

bonjour

ajoute une colonne "de pointage" contenant le test

et ensuite un simple TCD avec filtrage sur le pointage = 1

note : tu constates que les TCD servent à d'autres choses que faire des sommes ou des moyennes

amtitiés

Merci TDC ça veut dire ?

Salut Jeremytao25,

Salut jmd,

un double-clic en première ligne de 'BDD' affiche en 'Extract' chaque ligne de 'BDD' (n° de ligne en [A]) présentant un doublon avec la valeur de la colonne cliquée dans la même ligne.

Je n'ai pas capté à propos du critère "Texte"...

Le code n'est pas du tout, du tout, du tout optimisé pour une grosse BDD...

@jmd : tout arrive : je me suis penché (pas encore passionné, hein! ) sur tes TCD. Dans le cas précis de la demande initiale (doublon de date sur la même ligne), comankonfé ? Pas trouvé!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim iRow%, iCol%, iTCol%
'
Cancel = True
iRow = 2
'
If Not Intersect(Target, Rows(1)) Is Nothing And Target <> "" Then
    iTCol = Target.Column
    iCol = Cells(1, Columns.Count).End(xlToLeft).Column
    With Worksheets("Extract")
        .Cells.ClearContents
        .[A1].Font.Bold = True
        .[A1] = Target & " identiques"
        .Range("B2:F2").Value = Range("A1:E1").Value
        For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
            For y = 1 To iCol
                If y <> iTCol And Cells(x, y) = Cells(x, iTCol) Then
                    iRow = iRow + 1
                    .Range("A" & iRow).Value = x
                    .Range("B" & iRow & ":F" & iRow).Value = Range("A" & x & ":E" & x).Value
                End If
            Next
        Next
        .Activate
    End With
End If
'
End Sub

A+

Bonjour Jeremy, le forum,

tu a écrit :

Merci TDC ça veut dire ?

c'est TCD, pas TDC ; et TCD = Tableau Croisé Dynamique

à tout hasard : BDD = Base De Données

dhany

Jeremytao25 a écrit :

Merci TDC ça veut dire ?

bonjour à toi et bonjour à tous

tu n'as pas joint de fichier exemple, ni dit si le TCD proposé te convient

amitiés