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
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