Discussion :

[grisan29]

bonjour a vous
ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub UserForm_Activate()
Dim Nb%, Nbdon%
Dim F1$, F2$
Dim Devise$
Dim Société%
F1 = "Feuil1"
F2 = "base"
    With UserForm1
        .StartUpPosition = 1
        .Height = 405.5
        .Width = 773.75
    End With
Call Box1
 
Worksheets("base").Activate
Nb = Worksheets("base").Range("M2").Value
Sheets("Feuil1").Select
Nbdon = Worksheets("Feuil1").Range("B7").Value
End Sub

prends ses infos dans la cellule d'une feuille
moi je voudrais qu'elle le prennent toutes les 13 colonnes c'est a dire que nb est représenté 8 fois tous les 13 colonnes dans la même feuille
la feuil1 c'est bien mais pas pour la feuille base
si cela assez explicit

merci par avance

Pascal

Pascal

[kesimon63]

Code :

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

1
2
3
4
5
6
7
 
For i=1 to 8
 
Nb = Worksheets("base").Range("M2").Value
Range("M2").offset(0,i*13)
 
Next

[grisan29]

merci Kesimon63
cela approche du résultat mais ca bug a

Code :

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

Range("M2").offset(0,i*13)

en me disant qu'il y a une erreur de synthaxe

Pascal

[kesimon63]

Code :

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

1
2
3
4
5
6
7
8
9
 
Range("M2").select
 
For i = 1 To 8
 
Nb = Worksheets("base").Selection.Value
Range("M2").Offset(0, i * 13).Select
 
Next

Autant pour moi, petit oubli.
Voilà ça devrait rouler.

[grisan29]

bonjour Kesimon63
merci pour toutc'est parfait
cordialement

Pascal

[ZebreLoup]

Si je peux me permettre, on évite en générale de faire des Select dans le code :

Code :

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

1
2
3
For i = 1 To 8
  Nb = Worksheets("base").Range("M2").Offset(0, (i - 1) * 13).Value
Next

Et sinon, je suppose que tu rajoutes quelque chose à faire avecNb, parce que là, on change sa valeur sans l'utiliser. Mais si tu dis que le code précédent marchait, c'est que tu as déjà du adapter.