Microsoft 365 Affichage usform

  • Initiateur de la discussion Initiateur de la discussion Darkv59
  • 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 !

Darkv59

XLDnaute Nouveau
Bonjour à toutes & a tous
je suis novice en vba et je cherche à afficher deux usform cote a cote avec les infos de ma feuille (Boissons)
le soucis et que dans le 2ieme usform je n'arriva pas a enlever les label et textbox sans avoir un message d'erreur
je vous joint un fichier
d'avance merci
 

Pièces jointes

Bonjour Darkv
Pas bien compris votre demande.
Si dans USFInv2 vous supprimez labels et textbox et que vous supprimez le code VBA correspondant, cela semble marcher. Voir PJ.
D'autre part vos deux longues macros peuvent se simplifier avec :
VB:
Private Sub UserForm_Initialize()
USFInv.TextBox1.Value = Date
For i = 4 To 19
    USFInv.Controls("TextBox" & i).Text = Sheets("Boissons").Cells(i - 2, "C")
    USFInv.Controls("Label" & i).Caption = Sheets("Boissons").Cells(i - 2, "B")
Next i
End Sub
... si j'ai bien compris. 🙂
 

Pièces jointes

bonsoir et merci de vous avoir penché sur mon post et effectivement je me suis mal exprimé , dans mon 1er inventaire j'ai les softs et dans mon deuxième les alcools plus fort , avec mon code actuel j'affiche bien les softs mais ensuite pour le 2ieme je souhaite afficher les autre boissons qui commence a partir de textbox et label 21.
je vais regarder ce que vous m'avez envoyé et je reviendrai vers vous mais avant dodo

bonne soirée
 
Bonjour Darkv,
La mise en exergue en vert est fait pour aider le futur lecteur et le diriger automatiquement vers la solution, donc cella ne peut être votre post.
Supprimez ce vert pour éviter toute ambiguïté. 🙂
 
- 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
4
Affichages
430
Réponses
3
Affichages
85
Réponses
6
Affichages
88
  • Question Question
Microsoft 365 Power Query
Réponses
8
Affichages
134
Retour