Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Passage valeur via variable entre Userform

Passage valeur via variable entre Userform

2 réponses
Avatar
Michel
Bonjour a tout le monde,

J'ai un userform1 avec un bouton contenant :

Private Sub CommandButton_Date_Click()
VAR_FORCER = "PAS OK"
Unload CALENDRIER(VAR_FORCER)
Load CALENDRIER(VAR_FORCER)
CALENDRIER.Show (VAR_FORCER)
End Sub

J'ai un userform "calendrier" avec un bouton contenant :

Private Sub CommandButton_OK_Click(VAR_FORCER As Variant)
If VAR_FORCER = "PAS OK" Then
...
Else
...
End If
End Sub


J'ai beau mettre VAR_FORCER dans un module ou dans un userform public
VAR_FORCER as variant, n'empeche que VAR_FORCER=empty dans le userform
CALENDRIER.

Et si je mets entre paranthese (VAR_FORCER as Variant) plus rien ne marche

Cela doit etre tout bete...

Merci d'avance pour vos reponses,

@+

Michel.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Bob Phillips
En userform1

Public VAR_FORCER As String

Private Sub CommandButton_Date_Click()
VAR_FORCER = "PAS OK"
Unload CALENDRIER(VAR_FORCER)
Load CALENDRIER(VAR_FORCER)
CALENDRIER.Show (VAR_FORCER)
End Sub

etc.

En calendrier

Private Sub CommandButton_OK_Click(VAR_FORCER As Variant)
If userform1.VAR_FORCER = "PAS OK" Then


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Michel" wrote in message
news:
Bonjour a tout le monde,

J'ai un userform1 avec un bouton contenant :

Private Sub CommandButton_Date_Click()
VAR_FORCER = "PAS OK"
Unload CALENDRIER(VAR_FORCER)
Load CALENDRIER(VAR_FORCER)
CALENDRIER.Show (VAR_FORCER)
End Sub

J'ai un userform "calendrier" avec un bouton contenant :

Private Sub CommandButton_OK_Click(VAR_FORCER As Variant)
If VAR_FORCER = "PAS OK" Then
...
Else
...
End If
End Sub


J'ai beau mettre VAR_FORCER dans un module ou dans un userform public
VAR_FORCER as variant, n'empeche que VAR_FORCER=empty dans le userform
CALENDRIER.

Et si je mets entre paranthese (VAR_FORCER as Variant) plus rien ne marche

Cela doit etre tout bete...

Merci d'avance pour vos reponses,

@+

Michel.




Avatar
Michel
Salut,

Comme ecris j'ai essaye cela et ca ne marche pas...

@+

Michel.


"Bob Phillips" a écrit dans le message de news:

En userform1

Public VAR_FORCER As String

Private Sub CommandButton_Date_Click()
VAR_FORCER = "PAS OK"
Unload CALENDRIER(VAR_FORCER)
Load CALENDRIER(VAR_FORCER)
CALENDRIER.Show (VAR_FORCER)
End Sub

etc.

En calendrier

Private Sub CommandButton_OK_Click(VAR_FORCER As Variant)
If userform1.VAR_FORCER = "PAS OK" Then


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Michel" wrote in message
news:
Bonjour a tout le monde,

J'ai un userform1 avec un bouton contenant :

Private Sub CommandButton_Date_Click()
VAR_FORCER = "PAS OK"
Unload CALENDRIER(VAR_FORCER)
Load CALENDRIER(VAR_FORCER)
CALENDRIER.Show (VAR_FORCER)
End Sub

J'ai un userform "calendrier" avec un bouton contenant :

Private Sub CommandButton_OK_Click(VAR_FORCER As Variant)
If VAR_FORCER = "PAS OK" Then
...
Else
...
End If
End Sub


J'ai beau mettre VAR_FORCER dans un module ou dans un userform public
VAR_FORCER as variant, n'empeche que VAR_FORCER=empty dans le userform
CALENDRIER.

Et si je mets entre paranthese (VAR_FORCER as Variant) plus rien ne
marche

Cela doit etre tout bete...

Merci d'avance pour vos reponses,

@+

Michel.