changer le titre et bug avec l'aperçu

Lone-wolf · 3 Avril 2010

Bonjour a tous.

J'ai juste ces deux problèmes à résoudre.
Vous voudriez bien regarder ce qui cloche?

Dans la feuille attestation j'aimerais avoir le titre complet et non l'abbreviation.
Monsieur-Madame-Mademoiselle au lieu de M. Mme Mlle.

En arrivant dans l'apercus, tout ce bloque.

Merci de votre aide

JNP · 3 Avril 2010

Re : changer le titre et bug avec l'aperçu

Salut Loup solitaire 🙂,
Pour les civilités

For Each C In Controle.Controls
If TypeName(C) = "OptionButton" Then
If C.Value = -1 Then
Titre = C.Caption
Select Case Titre
Case "M."
Titre = "Monsieur"
Case "Mme"
Titre = "Madame"
Case "Mlle"
Titre = "Mademoiselle"
Case Else
Titre = "Hermaphrodite" ' 😛
End Select
Exit For
End If
End If
Next

pour l'aperçu, pas de soucis chez moi, l'impression se déroule normalement.
Bonne Pâque 😎

Staple1600 · 3 Avril 2010

Re : changer le titre et bug avec l'aperçu

Bonjour à tous

Une autre approche (avec Switch)

Code:

Private Sub Visualise_Click()
    For Each C In Controle.Controls
        If TypeName(C) = "OptionButton" Then
            If C.Value = -1 Then
                Titre = Switch(C.Caption = "M.", "Monsieur", C.Caption = "Mme", "Madame", C.Caption = "Mlle", "Mademoiselle")
                MsgBox Titre [COLOR=Green]'ici pour test donc à supprimer ensuite[/COLOR]
                Exit For
            End If
        End If
    Next
    Set C = Nothing
End Sub

Lone-wolf · 3 Avril 2010

Re : changer le titre et bug avec l'aperçu

Bounjour à vous! 😉

@JNP = MDR.Value

Quoi que... je vais monter une tente 😉 au Bois de Boulogne 😀
Merci dans tous les cas.

@Staple = MAPTS.Text / traduction: Merci Aussi Pour Ta Solution.

C'est même mieux maintenant, j'ai enlevé quelques boutons et ajouter un menu personnalisé.

Bonnes Fêtes de Pâques à TOUS!

changer le titre et bug avec l'aperçu

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

JNP

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

changer le titre et bug avec l'aperçu

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

JNP

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Privacy & Transparency

Privacy & Transparency