Discussion :

[kika18]

Bonjour,

Une question probablement tout bete mais je ne comprends pas pourquoi le code ci-dessous ne m'affiche rien en H6 a la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Formula= A(1).Value

ne marche pas non plus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim A() As String
If MyVar2 = 1 Then
  A(1) = "Chart 5"
Else
  A(1) = "Chart 4"
  A(2) = "Chart 5"
End If
 
Sheets("Sheet1").Select
Range("H6").Select
ActiveCell.Formula= A(1)

Merci.

Stéphane