XL 2013 Ma macro n'affiche pas le résultat voulu.

[Christian_koffi]

Bonjour,
J'ai écris une macro qui a pour but de rechercher les dates d'une colonnes (A33:A48) dans une plage (ligne: BU31:EJ31) et avec des conditions afficher des valeurs. J'ai deux feuilles: "TDB" et "Vue"
La macro se trouve derrière un bouton case d'option (Case d'option 7) de la feuille "TDB" et le resultat que je voudrais afficher se trouve dans la feuille "Vue".
Il semble que mon code soit correcte mais aucun résultat ne s'affiche comme si il ne trouve rien.
Je ne comprend pas pourquoi, Veuillez vérifier, Voici le code et ci-joint le fichier:

Sub macro1()
Dim i, j As Integer
Dim kase As Range
Dim plag As Range
Dim v As Variant

With ActiveSheet.Shapes("Case d'option 7").OLEFormat.Object

Set plag = Worksheets("vue").Range("A1:EJ48")
v = plag

For i = 31 To 48

Set kase = Worksheets("vue").Range("BU31:EJ31").Find(what:=Cells(i, 1), LookIn:=xlValues, lookat:=xlWhole)
If kase Is Nothing Then
v(i, 72) = ""
Else
If v(i, 70) = "" And v(i, 2) <> "" Then
Cells(i, kase.Column) = v(i, 2) * v(i, 4)
End If

If v(i, 70) <> "" And v(i, 2) > 0 Then
Cells(i, kase.Column) = v(i, 2) * Cells(i, 4) - Cells(i, kase.Column - 1)
End If

End If
Next i

plag = v
ThisWorkbook.Worksheets("vue").Calculate

End With
End Sub

 

[CISCO]

Bonsoir

Est-ce que tu n'aurais pas oublié de mettre le fichier en pièce jointe ?

@plus

 

[Christian_koffi]

Effectivement j'ai oublié mais le problème a été résolu. Merci.