Macro copie coller vers un autre onglet

Bonjour le forium ,

j'ai une macro qui copie d'un onglet a un autre qui fonctionne très bien, le seul problème est que si la valeur existe deja il ne la copie pas je comprend pas pourquoi

ci joint la macro

Sub Ellipse3_Clic()
ActiveWindow.SelectedSheets.PrintOut copies:=2, collate:=True, _
ignoreprintareas:=False
End Sub
Sub recap()
Sheets("etat des courriers").Select
With Sheets("BORDEREAU D’ENVOI")
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 - 14
Cells(num, "C") = .Cells(i, "C")
Cells(num, "J") = .Cells(8, "I")
Cells(num, "k") = .Cells(4, "e")
End If
End If
Next
End With
End Sub

Bonjour, avec le fichier se serait plus simple :)

Bonjour,

Tu serais bien aimable d'utiliser les balises de code " </> " ...

Le code ne la copie > car il cherche cette valeur > et ne la copie que si elle n'existe pas ...

Sub recap()
   Sheets("etat des courriers").Select
   With Sheets("BORDEREAU D’ENVOI")
      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")) ' < cherche la valeur

            If cel Is Nothing Then       ' si elle n'existe pas, l'on copie les données
               num = Cells(Rows.Count, "A").End(xlUp).Row + 1  ' dernière ligne
               Cells(num, "A") = num - 14             ' copie en A
               Cells(num, "C") = .Cells(i, "C")       ' copie en C
               Cells(num, "J") = .Cells(8, "I")
               Cells(num, "k") = .Cells(4, "e")
            End If
         End If
      Next i
   End With
End Sub

ric

bonjour,

Merci beaucoup d'avoir détaillé

If cel Is Nothing Then ' si elle n'existe pas, l'on copie les données dans cette partie du code je souhaiterai que même si elle existe je la copie

Merci pour aide

Bonjour,

Dans ce cas > l'on met 3 lignes en commentaire ...

Un essai ...

Sub recap()
   Sheets("etat des courriers").Select
   With Sheets("BORDEREAU D’ENVOI")
      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")) ' < cherche la valeur

'''            If cel Is Nothing Then       ' si elle n'existe pas, l'on copie les données
               num = Cells(Rows.Count, "A").End(xlUp).Row + 1  ' dernière ligne
               Cells(num, "A") = num - 14             ' copie en A
               Cells(num, "C") = .Cells(i, "C")       ' copie en C
               Cells(num, "J") = .Cells(8, "I")
               Cells(num, "k") = .Cells(4, "e")
'''            End If
         End If
      Next i
   End With
End Sub

ric