Problême avec code VBA

[banban64]

Bonjour à vous tous!

J'ai un userform avec entre autre un TextBox nommé "Nom" :

en ce moment j'utilise ce code :

If Len(nom) = 0 Then
        nom.SetFocus
        MsgBox "Nom vide", vbOKOnly + vbInformation
        Exit Sub
    End If

Qui veut dire que si je ne marque rien dans ma boite de dialogue "nom", une fenêtre apparait et me marque "nom vide".

Ce que j'aimerais c'est que lorsque je ne marque rien dans ma boite de dialogue "nom", et bien que la cellule dans mon tableur m'affiche "INCONNU".

Mais je ne sais pas le faire....

 

[Staple1600]

Re : Problême avec code VBA

Bonjour




Essayes peut-etre

If IsEmpty(nom) Then
Range("A1")="INCONNU"
End If

 

[banban64]

Re : Problême avec code VBA

Merci Staple, j'ai essayé mais cela ne fonctionne pas, le débogueur de VBA m'indique une erreur.

Je mets mon fichier ici, peut être que se sera plus simple pour voir mon problême :

Regarde la pièce jointe TransfertFDB2008-OK.zip

 

[Pierrot93]

Re : Problême avec code VBA

Bonjour Banban, Jean-Marie

pas ouvert ton fichier mais si ton textbox est nommé "Nom", modifies comme suit :

If Len([COLOR="Red"][B]M[/B][/COLOR]om) = 0 Then

bonne journée
@+

 

[pierrejean]

Re : Problême avec code VBA

bonjour a tous

Une solution simple a tester:

If Len(nom) = 0 Then
        nom.SetFocus
        MsgBox "Nom vide", vbOKOnly + vbInformation
        nom = "INCONNU"
        Exit Sub
    End If

Si cela ne te convient pas n'hesite pas a revenir

 

[banban64]

Re : Problême avec code VBA

Merci à tous de m'aider!!

Pierrot93, si je mets un "M" à la place du "N", je suis obligé de le faire à toutes mes variables qui s'apellent "Nom"?

Merci PierreJean pour ton code, alors quand je ne mets pas de nom, il m'affiche le message "Nom vide", il remplit la TextBox avec le mot "INCONNU" mais je ne peux pas valider mon Userform, à chaque fois j'ai le message "nom vide" qui apparait et qui m'empèche de valider.

 

[Staple1600]

Re : Problême avec code VBA

Re


message édité:

Après test de l'userform

Pas glop la syntaxe que je proposé il y a 5 minutes.

 

[banban64]

Re : Problême avec code VBA

Je suis désolé Staple, mais j'ai encore un beug, le débogueur me souligne en jaune:

Private Sub cmdValider_Click()

Le truc c'est que je ne veux plus du tout de fenêtre de message qui s'ouvre si je ne remplis pas la textbox nom et la textbox prénom.

Je cherche simplement à ce qu'au moment ou je valide mon formulaire, si les cases nom et prénom sont vides, de remplacer ce vide par "inconnu".

Je ne sais pas si je suis assez clair...

 

[pierrejean]

Re : Problême avec code VBA

Re

J'ai testé et il tout a fait possible de valider avec INCONNU pour le nom (on peut faire la même chose pour le prenom)

 

[Pierrot93]

Re : Problême avec code VBA

Re, bonjour PierreJean

aarf, désolé Banban, je voulais dire N au lieu de M...

@+

 

[banban64]

Re : Problême avec code VBA

Merci PierreJean, c'est vrai, cela fonctionne très bien!

Merci à vous tous de votre gentillesse!

Alors maintenant que je suis lancé, je vais vous demander encore un petit truc

J'ai un userform avec une variable appellée "Destination" ou je peux choisir plusieurs choix, voila le code :

    With cboDestination 
        .Clear 
        .AddItem "PMA" 
        .AddItem "Urgences Adultes CH" 
        .AddItem "Urgences Pédiatrie CH" 
        .AddItem "Clinique St Etienne" 
        .AddItem "Clinique Paulmy" 
        .AddItem "Clinique Lafourcade" 
        .AddItem "Polyclinique Aguilera" 
    End With"

J'aimerais que lorsque je choisis :
"Urgences Adultes CH"
"Urgences Pédiatrie CH"
"Clinique St Etienne"
"Clinique Paulmy"
"Clinique Lafourcade"
"Polyclinique Aguilera"

Que se soit écrit en gras et en rouge.

Mais pour "PMA", je le laisse tel quel.

 

[pierrejean]

Re : Problême avec code VBA

Re

En supposant que tu veuilles que ce soit ecrit sur la feuille
Dans la Combobox, je ne sais pas faire (et evidement je ne sais pas si c'est possible )

 

[Lii]

Re : Problême avec code VBA

Bonjour,

A tester :

Private Sub cboDestination_Change()
  cboDestination.ForeColor = IIf(cboDestination = "PMA", 0, &HFF)
  cboDestination.Font.Bold = IIf(cboDestination = "PMA", False, True)
End Sub

doit changer le format dans le cadre.

 

[banban64]

Re : Problême avec code VBA

Merci beaucoup PierreJean, tout fonctionne à merveille!

Merci aussi Lii, je vais essayer ton code!