|
|
|
|
Posté par
Steve, le mercredi 23 mai 2007 à 19:17:36Configuration: Windows Vista Internet Explorer 7.0
Bonjour,
Pour envoyer une variable dans d'autres modules, il existe en gros 2 façons : - comme c'est sous Excel, venir copier la valeur de la variable dans une cellule du classeur, - définir la varible comme Public à tout le projet : A l'extérieur de tout Sub, il suffit d'écrire... Public valcom as Single Il existe aussi les passages de paramètres, mais c'est plus restrictif... Pour fermer un formulaire, c'est juste... Unloab NomFormulaire J'espère avoir un peu aidé ! |
Merci beaucoup, je teste ça dans la journée et vous redonne très vite des nouvelles. |
Ca y est je teste,
je vous montre une partie du code : 'Utilisations touches clavier
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vkey As Long) As Integer
Public valcom As Single 'je l'ai mise ici pour testet c'est bien ça ?
Sub OLE_Demo()
'déclarations
'(1 To 99) numero de test
Dim objServerResult As Object
Dim vntResult(1 To 99) As Variant
Dim vntMin(1 To 99) As Variant
Dim vntMax(1 To 99) As Variant
Dim vntMnem(1 To 99) As Variant
Dim vntTestPass(1 To 99) As Variant
Dim vntAllPAss As Variant
Dim vntPol(1 To 99) As Variant
Dim vntNumberOfTests As Variant
Dim vntUnit(1 To 99) As Variant
UserForm2.Show
Do
Loop Until (valcom = 1)
'ce n'est pas ce que je veux faire mais c'est un test simple qui me permet de savoir si ça fonctionne
Cells(4, 1) = UserForm2.ComboBox1.Value
pour ce qui est du userform, pour tester je vais faire très simple aussi, juste le clique sur un bouton par exemple : Private Sub CommandButton1_Click() valcom = 1 End Sub une declaration nécessaire ici je pense non ? comme ça ? Public valcom As Single Private Sub CommandButton1_Click() valcom = 1 End Sub bon et bien voilà, ça ne fonctionne pas vraiment, ça va surement vous sembler logique mais désolé je n'ai jamais programmé de cette façon. MERCI
|
| 14/05 13h04 | VBA : Trouver Hdc d'une feuille Excell et Userform | Bureautique |
| 13/04 12h54 | VBA et les collections d'objets. | Excel |
| 16/05 09h19 | VBA: Se servir du compagnon pour communiquer avec l'utilisateur. | Bureautique |
| 25/11 22h46 | Mise à jour d'une procèdure ou d'une fonction en VBA | Excel |
| 10/04 09h20 | VBA Un timer une seconde tout simple | Excel |
| 11/04 16h03 | Fonction excel dans VBA + variable | 3 |
| 08/03 13h16 | (VBA EXCEL)Userform Veuillez patientez | 4 |
| 17/12 15h25 | [VBA]Taille UserForm sous Excel | 8 |
| 18/07 16h23 | [VBA EXCEL] userform=véritable casse-tête | 4 |
![]() | Toutes les extensions (petits modules complémentaires) de Firefox - Au lieu d'énumérer toutes les extensions (petits modules complémentaires) de Fire fox , allez dans le menu outils de... | Catégorie: Extensions Firefox Licence: Freeware/gratuit |
![]() | Patch français pour Ad-aware - Inclus les modules pour Ad-Aware (pour toutes versions antérieures à Ad-Aware 2007) pour les langues suivantes : Catalan,... | Catégorie: Anti-Spyware Licence: Freeware/gratuit |
![]() | WAMP Server - WAMP5 (WAMP signifiant Windows Apache Mysql PHP) est une plateforme de développement Web sous Windows. Il vous permet de... | Catégorie: Serveurs Licence: Freeware/gratuit |
![]() | ModPlug Player - MODPlug est un lecteur permettant de lire des fichiers MOD, c'est-à-dire des pistes de séquenceurs (trackers), mélant des... | Catégorie: Lecteurs audio Licence: Freeware/gratuit |
![]() | Nokia Modul LD-3W | Catégorie: GPS | 79.45 € Amazon.fr |
![]() | IBM SFP Transceiver Module | Catégorie: Carte Réseau | 479.60 € Compufirst |
![]() | IBM Transceiver module / | Catégorie: Carte Réseau | 224.85 € Compufirst |
![]() | IBM Transceiver modul / | Catégorie: Carte Réseau | 1,086.90 € MicroChoix |