Mettre des majuscules a chaques début de mots (Suite)

[G'Claire]

Salut le forum

Bon a priori, j'ai trouver d'ou venait l'erreur, dans mon code.

<http://www.excel-downloads.com/html/French/forum/messages/1_35557_35557.htm>


Private Sub CommandButton5_Click() 'MODE MAJ VALIDATION MAJ
Dim Msg As String
ListBox1.Value = ""
If TextBox1 = "" Then
MsgBox "Votre Contact n'a pas de nom ? ", _
vbCritical, "Nouveau Validation Error"
Exit Sub
End If
If TextBox2 = "" And TextBox3 = "" Then
MsgBox "Votre Contact doit au minimu avoir un Email ou un Téléphone", _
vbCritical, "Nouveau Validation Error"
Exit Sub
End If
With Sheets("Tool_prof")
Dim Nom As String
Nom = USFAnnuaireprof.TextBox1
Nom = UCase(Left(Nom, InStr(Nom, " "))) & WorksheetFunction.Proper(Right(Nom, Len(Nom) - InStr(Nom, " ")))

.Range("B" & L2).Value = Nom '<--- ERREUR ICI? Remplacer par NomLBindex


.Range("C" & NomLBindex).Value = TextBox2.Value
.Range("D" & NomLBindex).Value = TextBox3.Value
End With
MsgBox TextBox1 & " à bien été mis à jour " _
& vbCrLf & vbCrLf & vbTab & "Nom = " & vbTab & TextBox1 _
& vbCrLf & vbCrLf & vbTab & "Mail = " & vbTab & TextBox2 _
& vbCrLf & vbCrLf & vbTab & "Tel = " & vbTab & TextBox3, _
vbInformation, "Mode Mise à Jour Accomplie"

Msg = MsgBox("Voulez-vous continuer pour d'autres Mise à Jours ?", _
vbYesNo, "Nouveau Continuer ?")
If Msg = vbYes Then
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox6.Visible = True
Else
Unload Me
USFAnnuaireprof.Show
End If

End Sub

Il fallait remplacer L2 par NomLBindex, une erreur de copier - coller

Bon cela fonctionne pour cela, par contre j'ai toujours cette erreur 402, quand je fais une mise a jour ou une nouvelle entrée.


Erreur d'execution '402'
Vous devez d'abord fermer ou masquer la feuille modale de premier plan.

Et dans ce code cela surligne

USF_Menu.Hide

Voici le code de Thierry pour avoir un retour au menu dans toutes les feuilles:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "Tool_Menu" Then
Tool_Menu = False
With USF_Menu
.StartUpPosition = 3
.Show 0
End With
Else
USF_Menu.Hide
End If
End Sub


Qu'es-ce que cela signifie t-il?

Merci pour votre aide, G'Claire

 

[G'Claire]

Bonjour a tous

Alain,

Bon avec un peu de bol peu être, mais j'ai trouvé.

Au moment de la fermeture dans mon code pour "Exit", je demandais :

Unload me
Feuil6.Activate

Alors que cette feuille étée déja activée, pour la fonction que j'utilisé avant de sortir.


Merci, G'Claire

 

[G'Claire]

Re a toutes les Exeliennes et Exeliens

J'ai une question sur le code de Thierry

Ma question, es-ce qu'il est possible d'avoir plutôt le prénom en premier et le nom en deuxième en gardant la même apparence (Prénom et NOM) car systématiquement j'ai le nom en premier et en majuscule

Merci, G'Claire

 

[G'Claire]

Le forum

C'est bon cela fonctionne , il fallait rédiger le code comme suit :

Dim Nom As String
Nom = USF_AjoutTitre.TextBox1
Nom = WorksheetFunction.Proper(Left(Nom, InStr(Nom, " "))) & UCase ( Right(Nom, Len(Nom) - InStr(Nom, " ")))

au lieu de


Dim Nom As String
Nom = USF_Annuairedanseurs.TextBox1
Nom = UCase(Left(Nom, InStr(Nom, " "))) &
WorksheetFunction.Proper(Right(Nom, Len(Nom) - InStr(Nom, " ")))

Merci, G'Claire

 

[Alain]

Bonjour G'Claire,


Eh bien tu vois qu'en cherchant un peu, on y arrive !!

Et c'est très formateur.


Bon courage !


@+

 

[G'Claire]

Le forum

Alain

je sais bien mais c'est une application que j'ai commencé avec l'aide de @Thierry, Mytha, Celeda, Monique et d'autres et que je devait finir pour mercredi.

Et c'est presque la fin des petits détails et je n'ai plus le temps de me former.

Merci de votre aide je suis plus a la fin qu'au début, G'Claire