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 !