salut
sous excel 95
je souhaiterai utiliser des boites de dialogues pour pouvoir renvoyer des
informations sur une feuille excel
exemple:
ma boite de dialogue s'ouvre et demande de rentrer l'année, on tape 2003
(tjrs dans la boite de dialogue),
et l'information est revoyé dans une cellule de la feuil1.
comment puis je le réaliser.
merci
Un exemple de boite de dial XL5/95 avec tous les "trucs"... Ici : http://disciplus.simplex.free.fr/classeursxl/av-boitedialxl5.zip
AV
AV
S'il s'agit simplement d'accomplir ce que tu décris, une InputBox doit suffire : * Clic droit sur un onglet de feuille => Insérer => Module => Ok => copie/collage du code suivant : Sub zz_Boite_Saisie() Sheets("Feuil1").[A1] = InputBox("Millésime complet !", "Entrez une année", Year(Date)) End Sub * Retour sur une feuille de calcul => tu dessines un bouton et tu lui affectes la macro
Pour une boite de dial, le truc (simple) pas à pas :
* Ouverture XL95 et classeur vierge (ou ton classeur existant) * Clic droit sur un onglet de feuille => Insérer => Boite de dialogue => Ok * Une feuille nouvelle appelée "Dialog1" apparaît avec une boite de dial dessinée (dimensionnable) comportant 2 boutons (OK - Annuler) et portant le titre (que tu peux changer manuellement) oh combien poétique, de "Boite de dialogue" * La barre d'outils "Dialogue" est affichée => Sélection de l'outil "Zone de Modification" puis tu dessines/positionnes la zone sur ta boite * Clic droit sur la boite => Ordre de tabulation => tu fais "monter" "Modification x" en 1° * Clic droit sur un onglet de feuille => Insérer => Module => Ok => copie/collage du code suivant Sub zz_Zone_Modif_XL5() With DialogSheets("Dialog1") 'Initialise boite .EditBoxes(1).Text = "" 'affichage boite .Show 'Récupération valeur saisie et ==> Feuil1.A1 Sheets("Feuil1").Range("A1") = .EditBoxes(1).Text End With End Sub * Retour sur une feuille de calcul => tu dessines un bouton et tu lui affectes la macro
PS: Il est supposé que tu travailles avec XL anglais ! Si tu es en version française...fais signe.. Pour aller plus en avant, voir le lien précédemment proposé
PS bis : S'il s'agit simplement d'une zone de saisie à remplir par l'tilisateur, une InputBox suffirait largement AV
S'il s'agit simplement d'accomplir ce que tu décris, une InputBox doit suffire :
* Clic droit sur un onglet de feuille => Insérer => Module => Ok =>
copie/collage du code suivant :
Sub zz_Boite_Saisie()
Sheets("Feuil1").[A1] = InputBox("Millésime complet !", "Entrez une année",
Year(Date))
End Sub
* Retour sur une feuille de calcul => tu dessines un bouton et tu lui affectes
la macro
Pour une boite de dial, le truc (simple) pas à pas :
* Ouverture XL95 et classeur vierge (ou ton classeur existant)
* Clic droit sur un onglet de feuille => Insérer => Boite de dialogue => Ok
* Une feuille nouvelle appelée "Dialog1" apparaît avec une boite de dial
dessinée (dimensionnable) comportant 2 boutons (OK - Annuler) et portant le
titre (que tu peux changer manuellement) oh combien poétique, de "Boite de
dialogue"
* La barre d'outils "Dialogue" est affichée => Sélection de l'outil "Zone de
Modification" puis tu dessines/positionnes la zone sur ta boite
* Clic droit sur la boite => Ordre de tabulation => tu fais "monter"
"Modification x" en 1°
* Clic droit sur un onglet de feuille => Insérer => Module => Ok =>
copie/collage du code suivant
Sub zz_Zone_Modif_XL5()
With DialogSheets("Dialog1")
'Initialise boite
.EditBoxes(1).Text = ""
'affichage boite
.Show
'Récupération valeur saisie et ==> Feuil1.A1
Sheets("Feuil1").Range("A1") = .EditBoxes(1).Text
End With
End Sub
* Retour sur une feuille de calcul => tu dessines un bouton et tu lui affectes
la macro
PS: Il est supposé que tu travailles avec XL anglais ! Si tu es en version
française...fais signe..
Pour aller plus en avant, voir le lien précédemment proposé
PS bis : S'il s'agit simplement d'une zone de saisie à remplir par l'tilisateur,
une InputBox suffirait largement
AV
S'il s'agit simplement d'accomplir ce que tu décris, une InputBox doit suffire : * Clic droit sur un onglet de feuille => Insérer => Module => Ok => copie/collage du code suivant : Sub zz_Boite_Saisie() Sheets("Feuil1").[A1] = InputBox("Millésime complet !", "Entrez une année", Year(Date)) End Sub * Retour sur une feuille de calcul => tu dessines un bouton et tu lui affectes la macro
Pour une boite de dial, le truc (simple) pas à pas :
* Ouverture XL95 et classeur vierge (ou ton classeur existant) * Clic droit sur un onglet de feuille => Insérer => Boite de dialogue => Ok * Une feuille nouvelle appelée "Dialog1" apparaît avec une boite de dial dessinée (dimensionnable) comportant 2 boutons (OK - Annuler) et portant le titre (que tu peux changer manuellement) oh combien poétique, de "Boite de dialogue" * La barre d'outils "Dialogue" est affichée => Sélection de l'outil "Zone de Modification" puis tu dessines/positionnes la zone sur ta boite * Clic droit sur la boite => Ordre de tabulation => tu fais "monter" "Modification x" en 1° * Clic droit sur un onglet de feuille => Insérer => Module => Ok => copie/collage du code suivant Sub zz_Zone_Modif_XL5() With DialogSheets("Dialog1") 'Initialise boite .EditBoxes(1).Text = "" 'affichage boite .Show 'Récupération valeur saisie et ==> Feuil1.A1 Sheets("Feuil1").Range("A1") = .EditBoxes(1).Text End With End Sub * Retour sur une feuille de calcul => tu dessines un bouton et tu lui affectes la macro
PS: Il est supposé que tu travailles avec XL anglais ! Si tu es en version française...fais signe.. Pour aller plus en avant, voir le lien précédemment proposé
PS bis : S'il s'agit simplement d'une zone de saisie à remplir par l'tilisateur, une InputBox suffirait largement AV
AV
Ave Patrick,
Salut David, si tu veux je peux t'envoyer dans ta bal un exemple simple de ce que tu veux, c'est à dire un userform, avec envoie ...
Les userforms n'existent pas sous xl95 (apparition avec xl97)
AV
Ave Patrick,
Salut David, si tu veux je peux t'envoyer dans ta bal un exemple simple de
ce que tu veux, c'est à dire un userform, avec envoie ...
Les userforms n'existent pas sous xl95 (apparition avec xl97)
Non non très sincèrement, c'est nous qui te remercions, j'ai transférer pas mal de tes "compo" à des camarades, eux aussi sont sous le coup de l'émotion, la méthode evaluate, les mefc et maintenant la boite. Ca fait peur ! Enfin je reprends Roger Gicquel, la France a peur, c'est énorme! Patrick.
"AV" a écrit dans le message de news:
Oups, en tout cas impressionant ton exemple.
Ben merci..;-) AV
Non non très sincèrement, c'est nous qui te remercions, j'ai transférer pas
mal de tes "compo" à des camarades, eux aussi sont sous le coup de
l'émotion, la méthode evaluate, les mefc et maintenant la boite.
Ca fait peur ! Enfin je reprends Roger Gicquel, la France a peur, c'est
énorme!
Patrick.
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
eF6Nt3aXDHA.536@TK2MSFTNGP10.phx.gbl...
Non non très sincèrement, c'est nous qui te remercions, j'ai transférer pas mal de tes "compo" à des camarades, eux aussi sont sous le coup de l'émotion, la méthode evaluate, les mefc et maintenant la boite. Ca fait peur ! Enfin je reprends Roger Gicquel, la France a peur, c'est énorme! Patrick.
