Bonjour,
J'ai fait une macro afin de transférer les informations d'un fichier (fichier 1) dans un autre fichier (fichier 2)
Je souhaite que les informations du fichier 1 soit transférer dans le fichier 2 sur la ligne correspondant au numéro Ron qu'ils ont en commun.
C'est pourquoi j'utilise cette formule : ligne = Application.Match(n_ron, Range("Q:Q"))
Cependant lorsque je lance ma macro j'ai un blocage d'incompatibilité 13 au niveau de la ligne d'après (Ecrit en rouge ci dessous) Je ne comprends pas pourquoi car c'est sur un Msgbox ! J'ai essayé de le supprimer mais l'erreur d'incompatibilité 13 se poursuit sur les lignes d'après.
J'ai également changer le type de la variable ligne en la mettant en variant mais ça ne change rien, j'ai toujours mon incompatibilité de type 13.
Je ne comprends pas pourquoi, si quelqu'un pouvait m'aider?
Merci d'avance
Voici le code de ma macro
Sub Chimie()
Dim adress, ec_a, ec_b, ec_c, person As String
Dim score, n_a, n_b, n_c, ligne, n_ron, note As Integer
Dim date As Date
Sheets("Liste").Select
n_ron= Range("J2").Value
n_a = Range("U5").Value
n_b = Range("U4").Value
n_c = Range("U6").Value
date = Range("J5").Value
adress = Range("J3").Value
ec_a = Range("V4").Value
ec_b = Range("V5").Value
ec_c = Range("V6").Value
person = Range("J6").Value
Sheets("Introduction").Select
note = Range("F24").Value
Workbooks.Open Filename:= _
"
"
Sheets("Planning 2019").Select
ligne = Application.Match(n_ron, Range("Q:Q"))
MsgBox "ligne = " & ligne
Range("A" & ligne & "").Value = date
Range("J" & ligne & "").Value = adress
Range("C" & ligne & "").Value = ec_a
Range("D" & ligne & "").Value = ec_b
Range("W" & ligne & "").Value = ec_c
Range("Z" & ligne & "").Value = note
Range("T" & ligne & "").Value = n_a
Range("V" & ligne & "").Value = n_b
Range("H" & ligne & "").Value = n_c
Range("P" & ligne & "").Value = person
MsgBox "Transfert des informations terminé"
End Sub