boucle loop et variables

Version imprimable

14/02/2018, 13h33
Lyricslife

boucle loop et variables
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:

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:

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 !
14/02/2018, 13h46
a_diard

Bonjour

je pense que :

Code:

Sheet3.Cells(y, 3).Value = "var" & z
14/02/2018, 13h52
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/

Bonjour,

il faut effectivement utiliser un array de stockage

Code:

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

14/02/2018, 14h17
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.

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

Code:

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

14/02/2018, 14h29
Lyricslife

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

Merci beaucoup pour votre aide !
14/02/2018, 14h34
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