Microsoft 365 aide Userform

  • Initiateur de la discussion Initiateur de la discussion ERN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ERN

XLDnaute Junior
Bonjour à tous,

N’étant pas un pro d’Excel, je récupère a droite a gauche des bouts de code pour me faire un outils de recherche et de modification dans une base de données.

Là, je bloque sur un userform qui ne m'affiche pas toute mes colonnes et je galère pour trouver ce que je dois changer.
Je vous joins le fichier en question ainsi qu'une capture avec le problème de colonnes manquantes.

D'autre part, dans mon userform, j'aimerais ajouter deux cases, une qui me permets de sélectionner un coefficient en style menu déroulant (voir onglet IndBT) et une autre case qui va ajuster mon prix unitaire au coefficient selectionné.

Auriez-vous des idées à me partager ?

Merci d'avance.
 

Pièces jointes

Bonjour fanch55,

Merci pour ce retour. J'ai bien modifié la lettre de ma colonne mais j'obtiens une erreur (voir capture jointe).
J'imagine que c'est lié aux histoires de textbox mais je ne vois pas ce que je dois faire.
 

Pièces jointes

  • Capture blocage.JPG
    Capture blocage.JPG
    19.8 KB · Affichages: 10
dans le code Initialize, vous voulez remplir les textbox du bas ( à ce que je comprend )
Vous avez rajouté 5 colonnes à votre listbox, mais le nombre de textboxs existants n'est plus en concordance
VB:
  '-- entêtes TextBox
  For i = 1 To Ncol
    Set Lab = Me.Controls.Add("Forms.Label.1")
    Lab.Caption = f.Cells(2, i)
    Lab.Top = Me("textbox" & i + 1).Top - 17
    Lab.Left = Me("textbox" & i + 1).Left
    x = x + f.Columns(i).Width * 0.5
  Next
1618935680615.png
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
674
Retour