bonjour a vous
ce codeprends ses infos dans la cellule d'une feuille
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
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
Partager