Discussion :

[Nessie37]

Bonjour,

J'ai été initiée dernièrement au vba et travaillais donc sur des formulaires.
Je voudrais travailler sur état et faire un code "If" mais il ne fonctionne pas.
Il s'agit d'une erreur de syntaxe je pense, alors je voulais savoir si le "Me" de "If Me. ...", est valable quand on est dans un état ?

(Pas sûre d'être claire là sur ce coup là...)

Bien à vous !

[Invité]

Bonjour

Oui le Me fonctionne dans un ETAT.

Il faudrait que tu nous expliques ce que tu veux faire dans ton Etat avec Codes, ce que cela donne, etc...

Et tout cela en respectant les règles du forum (Balises, etc..)

Starec

[Nessie37]

Ai-je écrit qqch qui n'aurait pas respecté les règles du forum ? Si c'est lecas, mille excuses !

En ce qui concerne mon code, en fait je crée un état basé sur un formulaire assez complet.
Il se trouve qu'à l'impression, certaines informations ne sont pas nécessaires (elles dépendent de cases cochées ou non dans le formulaire) et je voudrais donc qu'elles n'apparaissent pas tout simplement. Alors j'ai pensé passé par du "If" ....... visible = false.

Voilà.

Merci

[Invité]

Re

Tu n'as trancscrit aucune règle, c'était une prevention.

C'est tout à fait faisable, cependant il faut savoir ou placer le code, sur quel évènement de ton Etat.

C'est pour cela qu'un bout de code avec une explication nous aiderait à mieux comprendre.

Starec

[Nessie37]

Où le placer ? Eh bien dès l'aperçu donc j'ai présumé que c'était à l'ouverture de l'état (je le rappelle, je suis novice en VBA donc je m'excuse par avance si je n'emploie les bons termes techniques ou si je ne comprends les vôtres).

Moi j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Report_Open(Cancel As Integer)
If Offre__si_location_.Value = True Then
Me.Compromis.Visible = False
End If
 
End Sub

En gros, quand je clique dans mon formulaire sur le bouton impression, je souhaiterais (pour ce cas par exemple) que, si la case "offre si location" est cochée dans ce formulaire, l'état n'affiche que "Offre" et pas "compromis", avec toutes les informations qui correspondent à cette case cochée.

tu me suis ?

[Invité]

Re

Déjà il faut que ton code soit sur l'évènement Format de la zone détail (si compromis est dans détail)

De plus ton contrôle Offre__si_location_ étant dans un formulaire il faut faire appel à celui-ci;

Pour cela une peu de lecture de ce tuto de Loufab est indispensable.

Starec

Edit : Les régles c'est entre autre l'usage des balises codes

[Nessie37]

Bon bah il ne me reste plus qu'à essayer de comprendre ce qui est écrit dans le lien que vers lequel tu m'as renvoyée.

Merci.

[Nessie37]

Re moi

J'ai un peu de mal avec les explications du tuto.
Je sais, je sais, ce sont censés être des explications mais pour ceux qui connaissent déjà VBA. Moi, ... "appels valides", récupération de valeurs..."..
je ne comprends pas trop en fait.

Un petit coup de pouce ?

[Nessie37]

En revenant sur ce post avec mon année et demi de forum, je me suis aperçue que ce que tu me disais était très simple à comprendre !

Avec le recul, Je me demande comment j'ai pu poser cette question ! Mais bon, n'étant pas encore une pro, en voici une en rapport : comment faire pour mettre plusieurs codes du coup ? Car j'ai placé mon code comme Starec me l'avait montré plus, mais j'en ai d'autres du même genre à mettre...

[Invité]

Bonjour

Peux-tu détailler un peu plus.

Au fait Starec n'existe plus

Philippe

[Nessie37]

Au fait Starec n'existe plus

Philippe

<- Je sais, "Philippe" était trop long à écrire, d'autant que j'ai vraiment du mal avec l'orthographe...

Bref, oui comme je disais, j'ai mis dans le détail de mon état, un code sur l'événement au formatage. Ce code comme bien d'autre que je dois placer encore a pour but d'afficher ou non des zones de texte en fonction de valeur sélectionnées. Le truc, c'est que j'ai placé un code mais je n'arrive pas à placer les autres...

[Invité]

Re

Le truc, c'est que j'ai placé un code mais je n'arrive pas à placer les autres...

Je ne vois vraiment pas pourquoi tu ne peux pas placer tout ces codes sur le formatage

Peux-tu nous dire ce que tu veux faire de plus, et est-ce que tout est dans la zone détail ou dans d'autres zones, car chaque zone a son propre formatage.

Philippe

[Nessie37]

Tout se passe dans la zone DETAIL.
Regarde ce premier code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    'Désactive les zones de textes inutiles (utilise la Sub plus bas dans ce module)
desactivestatut
 
End Sub
 
Public Sub desactivestatut()
    'Désactive les zones de textes inutiles (utilise la Sub + bas)
txt11a14False
 
    If Me.Statut.Value = "En cours" Then
        txt11a14False
    ElseIf Me.Statut.Value = "Demande satisfaite" Then
        txt11a14True
    ElseIf Me.Statut.Value = "Recherche abandonnée" Then
        txt11a12False13a14True
 
End If
End Sub
 
Public Sub txt11a14False()
'Désactive les zones de textes inutiles
    Me.Modifiable162.Visible = False
    Me.Texte149.Visible = False
    Me.Texte151.Visible = False
 
End Sub
 
Public Sub txt11a14True()
'Désactive les zones de textes inutiles
    Me.Modifiable162.Visible = True
    Me.Texte149.Visible = True
    Me.Texte151.Visible = True
 
End Sub
 
Public Sub txt11a12False13a14True()
'Désactive les zones de textes inutiles
    Me.Modifiable162.Visible = False
    Me.Texte149.Visible = False
    Me.Texte151.Visible = True
 
End Sub

Il fonctionne à merveille. Mais je veux en ajouter d'autres comme par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Sub DesactiveZonesTexte()
    'Désactive les zones de textes inutiles (utilise la Sub + bas)
txt59a63False
 
    'En fonction de la valeur saisie, affiche ou non les zones de texte _
    utilise les sub txt59a63False, txt59True61a63False et txt59False61a63True _
    plus bas dans ce module
    If Me.codemed.Value = 9 Then
        txt59True61a63False
    ElseIf Me.codemed.Value = 10 Then
        txt59True61a63False
    ElseIf Me.codemed.Value = 12 Then
        txt59True61a63False
    ElseIf Me.codemed.Value = 13 Then
        txt59True61a63False
    ElseIf Me.codemed.Value = 14 Then
        txt61True59a63False
    ElseIf Me.codemed.Value = 16 Then
        txt59True61a63False
    ElseIf Me.codemed.Value = 2 Then
        txt59False61a63True
    ElseIf Me.codemed.Value = 3 Then
        txt59False61a63True
    ElseIf Me.codemed.Value = 6 Then
        txt59False61a63True
    ElseIf Me.codemed.Value = 7 Then
        txt59False61a63True
    ElseIf Me.codemed.Value = False Then
        txt59False61a63True
 
End If
End Sub

Une fois placé, bah rien ne se passe...

[Nessie37]

Hello, il m'est toujours impossible de rajouter des codes.
Ces codes sont dans forms et conditionnent sur update des zones de texte ou encore des Enabled.

Passé sous forme d'état, ces événements ne fonctionnent pas...J'ai pourtant mis dans le DETAIL de l'état sur formatage les sub que je souhaite, ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    'Désactive les zones de textes inutiles (utilise la Sub plus bas dans ce module)
desactivestatut
 
End Sub

Puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub desactivestatut()
    'Désactive les zones de textes inutiles (utilise la Sub + bas)
txt11a14False
 
    If Me.Statut.Value = "En cours" Then
        txt11a14False
    ElseIf Me.Statut.Value = "Demande satisfaite" Then
        txt11a14True
    ElseIf Me.Statut.Value = "Recherche abandonnée" Then
        txt11a12False13a14True
End If
End Sub

et enfin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub txt11a14False()
'Désactive les zones de textes inutiles
    Me.Liste155.Visible = False
    Me.Texte149.Visible = False
    Me.Texte151.Visible = False
 
End Sub

etc....

Celle-là fonctionne. mais quand je veux en mettre une autre du même genre ça ne marche pas. ça me dit :
L'expression Au Formatage entrée comme paramètre de la propriété de type événement est à l'origine d'ne erreur. Nom ambigu détecté : xxxxx
alors que ce xxxxx est un code du même genre que celui cité précédemment...