Discussion :

[kratos60]

Bonjour a tous

Je me permet de poster sur le forum pour avoir votre avis sur la chose suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim tabques(5) As String
Dim tabrep(5) As String
Dim i As Integer
 
 
tabques(1) = Range("Essai!E1")
tabques(2) = Range("Essai!F1")
tabques(3) = Range("Essai!G1")
tabques(4) = Range("Essai!H1")
tabques(5) = Range("Essai!I1")

Dans ce bout de code j'ai declaré un tableau et je voudrais, par le biais d'un For i = 1 to 5, n'avoir plus qu'une ligne au lieu de 5, ça donnerait ça:

Code :

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

1
2
3
4
5
6
7
Dim tabques(5) As String
Dim tabrep(5) As String
Dim i As Integer
 
For i = 1 to 5
tabques(i) = Range("Essai!E1")
next i

Mais voila, je ne sais pas comment faire pour changer de ligne dans "Range"

J'espere avoir ete clair et je vous remercie d'avance pour vos reponses.

[kratos60]

Bon j'ai résolu la moitié de mon problème
Quand c'est sur la première ligne du tableur excel on peut faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim tabques(5) As String
Dim tabrep(5) As String
Dim i As Integer
 
'Utilisation d'un pour(for) pour eviter les lignes d'avoir trop de lignes de codes
Sheets("Essai").Select
For i = 1 To 5
tabques(i) = Cells(i + 4)'ici le 4 signifie que je veux commencer à la lettre E
Next i

Seulement pour apres, je veux commencer a la ligne 11 or je ne sais pas comment faire.

Si quelqu'un voit comment faire je suispreneur

[kratos60]

Bon j'ai resolu mon problème ^^

Alors le code qu'il faut mettre c'est :

Code :

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

1
2
3
4
5
6
7
 
Dim nom_tableau as type_du_tableau
Dim compteur as integer
 
For compteur = 1 to nombre_maximum_desiré
nom_tableau(compteur) = Cells(Numero_ligne, Numero_colone)
Next i

Voila, j'espere que cela servira pour certains