Bonjour,

Mon code ci dessous m'informe d'une incompatibilité de type et je me pose la question si un next est possible dans un with

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ajout()
Dim i As String
Dim j As String
Dim k As String
 
i = Workbooks("Production 1 .xls").Sheets("Production 1 ").Cells(65535, 1).End(xlUp)(1).Row
j = Workbooks("TESTCALCULRCV.xlsm").Sheets("MPH").Cells(65535, 1).End(xlUp)(2).Row
 
With Workbooks("TESTCALCULRCV.xlsm").Sheets("MPH")
 
    .Range("A" & j & ":J" & (i * 2) - 1).Value = Workbooks("Production 1 .xls").Sheets("Production 1 ").Range("A2:J" & j - 1).Value
    For k = 1 To i
    .Range("K" & j) = "=IFERROR(IF(rstnum(I & i),I & i,VALUE(REPLACE(I & i,SEARCH("","",I & i,1),1,"".""))),0)"
    Next k
End With
 
End Sub
Merci de votre aide