Macro d'un userform avec renvoie des informations

Y compris Power BI, Power Query et toute autre question en lien avec Excel
b
bibo007
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 4 octobre 2019
Version d'Excel : 2016

Message par bibo007 » 18 février 2020, 17:14

Bonjour,

J'ai besoin de votre aide, sur le fichier il y'a plusieurs feuilles qui représentent des machines et un bilan à la fin.

Objectifs :
1- cela fonctionne sur la feuille "M1" et pas sur les autres feuilles.
Quand je sélectionne une seule cellule dans la colonne A puis je clique sur "ADD", un UserForm (déjà existant: voir essaie sur la feuille M1) on retrouve toutes les informations de la ligne sélectionné.

2- Je clique sur "Confirmer et ajouter" => la feuille "BILAN" sera active + ajout des informations choisit précédemment s’ajoutèrent à la ligne 4, (de tel sorte le dernier produit ajouté sera toujours en première ligne)
Bibo-test.xlsm
(113.98 Kio) Téléchargé 8 fois
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 3'838
Appréciations reçues : 174
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 18 février 2020, 17:24

Bonjour Bibo, bonjour le forum,

Quel intérêt de te proposer des solutions puisque tu ne les utilises pas...
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
g
gullaud
Membre fidèle
Membre fidèle
Messages : 330
Appréciations reçues : 12
Inscrit le : 13 décembre 2016
Version d'Excel : 2013

Message par gullaud » 18 février 2020, 18:07

au lieu de With Sheets("M1") dans le code la userform
mettre With ActiveSheet
b
bibo007
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 4 octobre 2019
Version d'Excel : 2016

Message par bibo007 » 19 février 2020, 08:57

@ Thauthéme Merci de bien lire le sujet. ( votre solution est déja prise en compte dans le fichier, si vous lisiez bien il y'a d'autres choses à ajouter dans le fichier ) comme l'objectifs 2 ;)

@Gullaud merci bcp, des idées pour résoudre le deuxième objectifs ?
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 3'838
Appréciations reçues : 174
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 19 février 2020, 09:58

Re,
bibo007 a écrit :
19 février 2020, 08:57
@ Thauthéme Merci de bien lire le sujet. ( votre solution est déjà prise en compte dans le fichier, si vous lisiez bien il y'a d'autres choses à ajouter dans le fichier ) comme l'objectifs 2 ;)
@Bibo Merci de bien regarder ma solution qui utilisait le double-clic avec une macro événementielle et la disparition du bouton Add. Tu as modifié le code pour lancer l'UserForm Conf2 et ton UserForm se nomme UF2... ::(
Je regarde ce que je peux faire...

[Édition]
Dans le tableau dans l'onglet Bilan, à quoi servent Number et Item ?!...
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
b
bibo007
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 4 octobre 2019
Version d'Excel : 2016

Message par bibo007 » 20 février 2020, 08:42

Rebonjour @ thauthéme,

Number c'est le code de réference client ( chaque client posséde son propre code d'un produit)
Item : c'est la catégorie de machine ( Machine 1, 2,3,4 ... )

En cliquant sur le bouton confirmer et ajouter ==> ajout d'une nouvelle ligne sur la feuille bilan du produit ajouté avec toutes les informations sur l'userform.

J'ai trouvé un code mais il marche pas

If TextBox6.Value = "" Or TextBox7.Value = "" Then
MsgBox "Please fill in the field number and Quantity' "
End If

Application.ScreenUpdating = False
Sheets("Bilan").Activate
Range("A4").Select
Selection.End(x1Down).Select ( ca bloque ici)

ActiveCell = TextBox6
ActiveCell.Offset(0, 1) = Txtitem
ActiveCell.Offset(0, 2) = txttf
ActiveCell.Offset(0, 3) = TextBox7
ActiveCell.Offset(0, 4) = txtprice

Me.Hide

merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message