Bonjour,
j'ai un code qui actuellement est comme ça mais il beug et me met incompatibilité de type.
est ce que qqn peut m'aider s'il vous plait?
Sub enregistrement_2_periode()
Dim Ligne As Long
Ligne = Application.Match(Range("nom"), Sheets("Recap Cp").Range("a3: A45 "), 0) + 2
With Sheets("Recap CP")
.Cells(Ligne, "C") = Sheets("Demande CP").[e21]
.Cells(Ligne, "D") = Sheets("Demande CP").[g21]
.Cells(Ligne, "E") = Sheets("Demande CP").[e22]
.Cells(Ligne, "F") = Sheets("Demande CP").[g22]
.Cells(Ligne, "G") = Sheets("Demande CP").[e23]
.Cells(Ligne, "H") = Sheets("Demande CP").[g23]
End With
Dim Ligne1 As Long
Ligne1 = Application.Match(Range("nom_val"), Sheets("Recap Cp").Range("o3: o45 "), 0) + 2
With Sheets("Recap CP")
.Cells(Ligne, "i") = Sheets("Demande CP").[e41]
.Cells(Ligne, "j") = Sheets("Demande CP").[g41]
.Cells(Ligne, "k") = Sheets("Demande CP").[e42]
.Cells(Ligne, "l") = Sheets("Demande CP").[g42]
.Cells(Ligne, "m") = Sheets("Demande CP").[e43]
.Cells(Ligne, "n") = Sheets("Demande CP").[g43]
End With
End Sub
ça beug sur la ligne en rouge.
par avance merci