ajouter un code vba

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
l
lili1990
Membre habitué
Membre habitué
Messages : 61
Inscrit le : 7 mai 2017
Version d'Excel : excel 2010

Message par lili1990 » 16 février 2019, 00:51

Salut tout le monde

je veux lorsque je clique sur le bouton sortie de la colonne E (feuille magasin) et je fais sortir par exemple AXC00003 et je clique sur sortie.
les cellules de colonne I (feuille magasin) doit afficher aussi dans les cellules S 11. S12.S13.....S47 (feuille Bon de sortie).

merci infiniment

cordialement
EXCEL1990.xlsm
(604.39 Kio) Téléchargé 17 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 16 février 2019, 03:03

Bonjour,

Les cellules S11:Sx de l'onglet "Bon de sortie" sont fusionnées par 2,
si j'ai bien compris, il faut transférer les valeurs de TextBox2 à TextBox16 (voir image) sur les cellules S11 puis S13....etc... ?
lili1990-UserForm.png
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
l
lili1990
Membre habitué
Membre habitué
Messages : 61
Inscrit le : 7 mai 2017
Version d'Excel : excel 2010

Message par lili1990 » 16 février 2019, 08:54

salut

oui tout a fait je veux transférer (label3) dans la photo ci joint dans les cellules la feuille S11.......

merci beaucoup
l
lili1990
Membre habitué
Membre habitué
Messages : 61
Inscrit le : 7 mai 2017
Version d'Excel : excel 2010

Message par lili1990 » 16 février 2019, 08:55

salut

oui tout a fait je veux transférer (label3) dans la photo ci joint dans les cellules la feuille S11.......

merci beaucoup
Capture.PNG
Capture.PNG (8.81 Kio) Vu 88 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 17 février 2019, 02:22

re,

à tester,
Private Sub CommandButton7_Click()
'bouton test
Dim lig As Long, i As Long
lig = 11
For i = 2 To 16
Sheets("BON DE SORTIE").Cells(lig, "S") = Me.Controls("TextBox" & i).Value
lig = lig + 2
Next
End Sub
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
l
lili1990
Membre habitué
Membre habitué
Messages : 61
Inscrit le : 7 mai 2017
Version d'Excel : excel 2010

Message par lili1990 » 17 février 2019, 07:35

SALUT

Je l'ai ajouté selon la photo ci-joint. il fonctionne pas

salutations
Capture 2.PNG
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 17 février 2019, 13:47

re,
les données de TextBox2 à TextBox16 sont bien transférées sur les cellules S11 à Sx
lili1990-EXCEL1990.xlsm
(602.56 Kio) Téléchargé 3 fois
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message