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

[Qwazerty]

SAlut
Tu declare un tableau ouvert A(), avant de mettre des données a l'interieur ne faudrait il pas le dimensionner ?

Code :

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

Redim A(x)

Ou enventuellement si A contient deja des données que tu veux concerver

Code :

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

Redim Preserve A(x)

x etant le nombre de chaine contenu dans ton tableau
Dans ton cas

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim A() As String
[...]
If MyVar2 = 1 Then
  Redim A(1)
  A(0) = "Chart 5" 'Attention le tableau commence ca numerotation a 0
Else
  Redim A(2)
  A(0) = "Chart 4"
  A(1) = "Chart 5"
End If

[ouskel'n'or]

'Attention le tableau commence sa numerotation a 0

Exact ! Donc on peut mettre :

Code :

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

1
2
3
4
5
6
     Redim A(0)
     A(0) = "Chart 5" 'Attention le tableau commence sa numerotation a 0
  Else
     Redim A(1)
     A(0) = "Chart 4"
     A(1) = "Chart 5"

Juste pour embêter mon prochain

[kika18]

Merci, ca marche. Autre question: j'essaie de copier certaines valeurs d'un tableau dans un second tableau. Les deux tableaux sont de types String. Pourquoi le code ci-dessous ne marche-t-il pas? Je veux copier Fulldesc dans Final.

Code :

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

Final(i) = Fulldesc(j)

Merci d'avance.

Stéphane

[Qwazerty]

SAlut!
@ouskel'n'or: Merci pour la correction ... c'est ce de melanger les differents language

[Edit]
@Stéphane: (desolé j'edit mon message et j'ai pas ton pseudo en tete mais ton nom oui vu que c'est le mem que le mien )
As tu dimensionné ton 2eme tableau ? (Dim , redim...)
I et J font ils bien appellent a des "cases" existantes dans tontableau ?
[/Edit]

a++
Qwaz

[kika18]

Merci Qwazerty.

A force de modifer mon code, le second tableau se trouvait dimensionne apres...

kika18