[XL-2007] code a modifier pour plusieurs colonnes [Résolu]

[grisan29]

bonjour a vous
ce code

Code :

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 :

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 :

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

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

Pascal

[kesimon63]

Code :

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 :

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.

[grisan29]

bonsoir zebredeloup et les autres
tu peut te permettre, car je sais que les select ne font pas bon ménage avec le reste du code, mais étant débutant dans ce type de code je ne savais pas comment m'y prendre
merci pour toutles 2 solutions fonctionnent
pour te rassurer dans le code complet du post en haut tout, j'avais supprimer des lignes qui ne changeait rien au code car elle font prendre des valeurs aux caption des labels du type

Code :

UserForm1.Label1.Caption = "Quantité Données Bibliothèque :   " & Nb

ou l'on retrouve Nb a cette ligne
nb est la quantité d'article qui est inscrit en M2 de la feuille "base" et justement comme il y a plusieures familles d'articles(8) il y a autant de valeurs a chercher et tous dans une seule celullea chaque fois
cordialement
je vais esayer de pauffiner tout ce que j'ai appris aujourd'hui et je reviendrais plus tard

Pascal