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