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

 

[Dranreb]

Bonsoir
Êtes vous sur que what:=ActiveSheet.Cells(i, 1) contient quelquefois quelque chose ?

 

[Christian_koffi]

Ah je vois, ce n'est pas what:=ActiveSheet.Cells(i, 1) qui contient quelque chose mais plutôt Worksheets("vue").Cells(i, 1) qui contient quelque chose. Merci Je n'ai pas été vigilant. Merci.
Mais lorsque j'exécute la macro les formules qui sont dans mes cellules disparaissent et je n'ai que des valeurs. Pourquoi?

 

[Dranreb]

Je ne vois aucune formule dans votre classeur dès son ouverture.
S'il y en avait un moment donné dans les cellules auxquelles vous assignez des valeurs, c'est normal qu'elles aient disparu.

 

[Christian_koffi]

Bonjour,
Merci Tout est rentré en ordre. En fait il y a plusieurs feuilles dans mon fichier excel et elles sont toutes liés par des formules. J'ai juste pris des éléments. Mais je réglé le problème avec votre solution proposée. Merci encore.