Bonjour Banzai64, le Forum,
Merci beaucoup !
J'ai essayé de faire un calcul à partir des cellules des colonnes "C" et "D", résultat en "E". Voici mon code, ajouté en feuille 1 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range
Dim DerLigAv As Long, DerLigAp
Dim J As Long
DerLigAv = Range("A" & Rows.Count).End(xlUp).Row
Set Cel = [LstModele].Find(what:=Range("C5"), LookIn:=xlValues, lookat:=xlWhole)
If Cel Is Nothing Then Exit Sub
DerLigAp = 11 + Cel.Offset(0, 1)
For J = 12 To DerLigAp
Range("E" & J).Value = Range("D" & J).Value) / (Range("C" & J).Value * 1000
Next J
End Sub
J'obtiens une erreur "dépassement de capacité 'erreur 6' ", j'ai essayé d'appliquer le conseil de l'aide (ajout de CLngà), sans succès...
Une idée ?
Bonne journée,
Amicalement