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 !
J'ai un fichier assez imposant que je diffuse tous les mois.
Je souhaiterais avoir à l'ouverture une fenètre ( genre userform ? ) avec les 3 valeurs principales se trouvant dans ce fichier.
Par exemple les valeurs se trouvant en A6 , C6 et E6
Rien de bien spécial à ajouter, sauf une remarque à XanorK qui semble utiliser les Crochets [ ] un peu abusivement. En effet cette manière de faire référence à une cellule, signifie implicitement à VBA de déployer la Fonction Evaluate alors que dans ce cas là, il ne s'agit que de faire référence au contenu d'une cellule.
Par ailleurs dans la version 2, celle du UserForm, tu ne fais plus référence à la Feuille, et si par hazard le classeur est sauvé/fermé quand il est positionné sur une autre Feuille.... L'ouverture suivantes sera un peu "imprévue" 🙄
Je conseille donc de rédiger le code ainsi
Code:
Private Sub UserForm_Initialize()
With ThisWorkbook.Worksheets("Feuil1")
TextBox1.Value = .Range("A6").Value
TextBox2.Value = .Range("C6").Value
TextBox3.Value = .Range("E6").Value
End With
End Sub
Ce n'est pas grave, chacun a ses habitudes et même si elle ne sont pas académiques ça fonctionne grace à la souplesse de VBA, par contre parfois celà peut avoir des résultats surprenants dans des procédures plus compliquées...
une remarque à XanorK qui semble utiliser les Crochets [ ] un peu abusivement. En effet cette manière de faire référence à une cellule, signifie implicitement à VBA de déployer la Fonction Evaluate alors que dans ce cas là, il ne s'agit que de faire référence au contenu d'une cellule.
- 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