code a modifier pour plusieurs colonnes

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

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

---

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

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.

bonjour Kesimon63
merci pour tout:ccool:c'est parfait
cordialement

Pascal

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.

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 tout:ccool:les 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:ccool:
je vais esayer de pauffiner tout ce que j'ai appris aujourd'hui et je reviendrais plus tard

Pascal