ok merci de l'info
Dim lig, k
lig = Application.Match(Val(Num_demande), Feuil2.[A1:A65000], 0)
Feuil2.Cells(lig, 10) = Me.DTPicker1 = Now 'valeur en numeric et non en text
Selection.NumberFormat = "m/d/yyyy"
Feuil2.Cells(lig, 11) = Val(Km) 'valeur en numeric et non en text
Feuil2.Cells(lig, 13) = freq
Feuil2.Cells(lig, 14) = presta
Feuil2.Cells(lig, 15) = Ent_1
Feuil2.Cells(lig, 16) = Val(tpe1)
Feuil2.Cells(lig, 17) = Ent_2
Feuil2.Cells(lig, 18) = Val(tpe2)
Feuil2.Cells(lig, 19) = Ent_3
Feuil2.Cells(lig, 20) = Val(tpe3)
Feuil2.Cells(lig, 21) = Ent_4
Feuil2.Cells(lig, 22) = Val(tpe4)
Feuil2.Cells(lig, 23) = Ent_5
Feuil2.Cells(lig, 24) = Val(tpe5)
Feuil2.Cells(lig, 25) = Ent_6
Feuil2.Cells(lig, 26) = Val(tpe6)
Feuil2.Cells(lig, 27) = Ent_7
Feuil2.Cells(lig, 28) = Val(tpe7)
Feuil2.Cells(lig, 29) = Rep_1
Feuil2.Cells(lig, 30) = Val(tpr1)
Feuil2.Cells(lig, 31) = Rep_2
Feuil2.Cells(lig, 32) = Val(tpr2)
Feuil2.Cells(lig, 33) = Rep_3
Feuil2.Cells(lig, 34) = Val(tpr3)
Feuil2.Cells(lig, 35) = Rep_4
Feuil2.Cells(lig, 36) = Val(tpr4)
Feuil2.Cells(lig, 37) = Rep_5
Feuil2.Cells(lig, 38) = Val(tpr5)
Feuil2.Cells(lig, 39) = Rep_6
Feuil2.Cells(lig, 40) = Val(tpr6)
Feuil2.Cells(lig, 41) = Rep_7
Feuil2.Cells(lig, 42) = Val(tpr7)
Feuil2.Cells(lig, 43) = Sum(tpe1 + tpe2 + tpe3 + tpe4 + tpe5 + tpe6 + tpe7 + tpr1 + tpr2 + tpr3 + tpr4 + tpr5 + tpr6 + tpr7)
Feuil2.Cells(lig, 44) = Val(Montant_rep)
NumberFormat = "#,##0.00 $"
Feuil2.Cells(lig, 45) = Commentaire
Feuil2.Cells(lig, 46) = if(freq=""Annuelle"",freq+365,if(freq=""Mensuelle"",freq+30,if(freq=""+ 100 000km"",km+100000,""""))))
j'ai sur un 3ème onglet des cellules qui portent les noms présents dans la formule comme REP_1 Ent_7 et je veux les recopier sur la ligne correspondant au numéro de demande (inscrit en colonne A sur la feuil2 et correspondant à lig) . . ma case freq est une liste déroulante en fonction de laquelle je souhaiterais avoir sur la feuil2 le calcul qui se fait. sauf que vba me met erreur d'expression