Discussion :

[ALEX80800]

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

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Si
i est inférieur ou égal à 1
ou j inférieur ou égal à 2,
erreur

[ALEX80800]

Désolé je n'ai compris la réponse

[EngueEngue]

Ton erreur vient du fait que:

Soit i vaut 1 soit j vaut 1

Soit tes noms de classeurs ou de feuilles sont mal écrits

Workbooks("Production 1 .xls").Sheets("Production 1 ")

Tu es sûr pour l'espace après le 1 de production ?

[ALEX80800]

Oui je suis sûr car le code a fonctionné avant je veuille mettre la formule de calcule

Dans la fenêtre "Variables locales"
i = 1499
et j 1498
ou inversement

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("K" & j).formula = "=IFERROR(IF(rstnum(I & i),I & i,VALUE(REPLACE(I & i,SEARCH("""","""",I & i,1),1,"""".""""))),0)"