Macro copie coller sur un autre onglet

Bonjour, moi je veux copier la valeur en jaune de feuil2 qui sont précédés du mot sinistre sur feuil 1 et la date en jaune qui sur le feuil 2 sur feuil1 comme j'ai fait sur l'exemple

Bonjour abdernino

Il n'y a pas de jaune dans ton fichier !

Steelson a écrit :

Bonjour abdernino

Il n'y a pas de jaune dans ton fichier !

Bonjour ,

ci joint le nouveau fichier

Moi je veux copier la refrence en jaune qui est précédé du mots siniste feuil2 sur feuil1 comme joint dans mon exmple et idem pour la date qui est en jaune

Sub recap()
Sheets(1).Select
num = 1
With Sheets(2)
    For i = 1 To .Cells(Rows.Count, "B").End(xlUp).Row
        If .Cells(i, "B") = "Sinistre" Then
            Cells(num + 13, "A") = num
            Cells(num + 13, "C") = .Cells(i, "C")
            Cells(num + 13, "N") = .Cells(7, "I")
            num = num + 1
        End If
    Next
End With
End Sub

Bonjour;

Merci beaucoup mais je voudrais à chaque fois rajouter vers le bas dans et ne pas écraser les données existantes.

ok, ce n'était pas dit !

Sub recap()
Sheets(1).Select
With Sheets(2)
    For i = 1 To .Cells(Rows.Count, "B").End(xlUp).Row
        If .Cells(i, "B") = "Sinistre" Then
            num = Cells(Rows.Count, "A").End(xlUp).Row + 1
            Cells(num, "A") = num - 13
            Cells(num, "C") = .Cells(i, "C")
            Cells(num, "N") = .Cells(7, "I")
        End If
    Next
End With
End Sub

Bonjour, un grand merci a toi et ce que c'est possible de rajouter un petit contrôle a cette macro si une référence existe déjà un message d'avertissement apparaît

dans la mesure du possible

Sub recap()
Sheets(1).Select
With Sheets(2)
    For i = 1 To .Cells(Rows.Count, "B").End(xlUp).Row
        If .Cells(i, "B") = "Sinistre" Then
            Set cel = Columns("C").Find(.Cells(i, "C"))
            If cel Is Nothing Then
                num = Cells(Rows.Count, "A").End(xlUp).Row + 1
                Cells(num, "A") = num - 13
                Cells(num, "C") = .Cells(i, "C")
                Cells(num, "N") = .Cells(7, "I")
            Else
                MsgBox "Référence """ & .Cells(i, "C") & """ non copiée, celle-ci existe déjà !"
            End If
        End If
    Next
End With
End Sub

Bonjour ,

Un grand merci a toi

j'ai renommer les deux onglet

sheet 1 etat_transmis_a_la_dg

sheet 2 BORD_DEPART_DG j'ai essayer de renomer direct dans la macro mais ca marche pas

Et ta macro, elle est où ? Et l'erreur elle est où ?

Sheets("etat_transmis_a_la_dg").Select
With Sheets("BORD_DEPART_DG")

sous réserve qu'il n'y ait pas d'espace au début ou à la fin du nom de l'onglet !

Bonjour ,

Un grand merci a toi