Discussion :

[TonyRc]

Bonjour,

Je fais face a un petit probleme d'erreur "Type Mismatch 13".

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
18
19
'Ref_drawing
Cells(Nb_lines + 1, 11).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],MK_Panels!C5:C12,7,0)"
 
'''Control Ref Drawing if "N/A" then go msgbox and end sub.
 
    If Cells(Nb_lines + 1, 11).Value <> CVErr(xlErrNA) Then
 
 
MsgBox ("RPC Panels type does not exist, check position and color")
    Rows(Nb_lines + 1).Select
    Selection.Delete
    Exit Sub
    End If
 
Range("K:K").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

[Daniel.C]

Bonjour,

Elle est sur quelle ligne, l'erreur ?

[Gestionnaire_rh]

Bonjour,

je pense qu'il faut étendre la plage de la formule recherchev:

Code :

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

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],MK_Panels!C5:I12,7,0)"

[Daniel.C]

Bonjour,

@Gestionnaire_rh :

eh non ! on est en coordonnées RC, donc ça correspond aux colonnes E:L.