Discussion :

[Lyricslife]

Salut a tous,

J'ai un petit souci depuis ce matin, sur lequel je bloque. Je sais que c'est tout bete mais je ne trouve pas de solution pour le moment...

Voila j'aimerai simplifier ce code :

Code :

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

1
2
3
4
5
6
Sheet3.Cells(6, 3).Value = var1
Sheet3.Cells(7, 3).Value = var2
Sheet3.Cells(8, 3).Value = var3
Sheet3.Cells(9, 3).Value = var4
Sheet3.Cells(11, 3).Value = var5
Sheet3.Cells(12, 3).Value = var6

par celui-ci :

Code :

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

1
2
3
4
5
6
7
For y = 6 To 12
    For z = 1 To 6
        If y <> 10 Then
            Sheet3.Cells(y, 3).Value = var & z
       End If
    Next z
Next y

Mais ca ne fonctionne pas et je ne comprends pas pourquoi... Je pense que l'erreur vient de var & z.
Quelqu'un pour me donner un coup de main ?

Merci beaucoup !

[a_diard]

Bonjour

je pense que :

Code :

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

Sheet3.Cells(y, 3).Value = "var" & z

[halaster08]

@a_diard je ne pense pas que ça va marcher si tu met var entre " il va considéré que c'est du texte et non une variable.

@Lyricslife
Plutôt que six variable varX tu devrais utiliser un tableau:http://silkyroad.developpez.com/vba/tableaux/

[joe.levrai]

Bonjour,

il faut effectivement utiliser un array de stockage

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim MesVar()
    MesVar = Array(Var1, Var2, Var3, Var4, Var5, Var6)
 
For y = 6 To 12
    For Z = 0 To 5   ' car BASE 0
        If y <> 10 Then
            Sheet3.Cells(y, 3).Value = MesVar(Z)
       End If
    Next Z
Next y

[Lyricslife]

Merci pour vos reponses.

@a_diard en effet, en ajoutant " " Excel comprend que c'est du texte et m'inscrit donc "var6" dans chaque cases.

@joe.levrai je n'avais pas pense a utiliser Array! Cela dit maintenant il m'inscrit la meme valeur dans chaque cases, la valeur de var6 uniquement.

[joe.levrai]

Oui, ça m'apprendra à reprendre ton squelette pour illustrer l'exemple... sans adapter

Code :

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

1
2
3
4
5
6
7
8
9
Dim MesVar(), i As Long
    MesVar = Array(Var1, Var2, Var3, Var4, Var5, Var6)
 
For y = 6 To 12
        If y <> 10 Then
            Sheet3.Cells(y, 3).Value = MesVar(i)
            i = i + 1
       End If
Next y

[Lyricslife]

Parfait ca fonctionne correctement ! Maintenant je vais juste essayer de comprendre pourquoi !

Merci beaucoup pour votre aide !

[joe.levrai]

La difficulté réside dans le fait que tu as 6 variables que tu dois placer dans 6 cellules discontinues, via une boucle qui parcours 7 cellules.

De ce fait, plutôt qu'une boucle tarabiscotée pour sauter la cellule 10 (ou en passant par une union de Cellules lourde à écrire), j'utilise une variable numérique qui commence à 0 (premier élément du Array) et que j'incrémente après chaque utilisation de variable