erreur lors de l'entrer nom prénom dans la boîte de dialogue

[ldexplorer]

Bonjour à vous tous,

J'ai un feuille servant à comptabiliser la caisse d'usagers et les prestations reçues.

Lors de l'inscription d'un nouvel usager, je ne peux pas marquer aze rty (nom puis prénom) mais je suis obligé de marquer aze_rty.

Existe t'il une solution et laquelle?

Je joints le fichier pour que vous puissiez mieux comprendre.

Merci
Lionel

 

[PascalXLD]

Re : erreur lors de l'entrer nom prénom dans la boîte de dialogue

Bonjour

tu as le problème à quel moment ??

 

[ldexplorer]

Re : erreur lors de l'entrer nom prénom dans la boîte de dialogue

Je clique sur mon bouton. Il me demande le nom de l'usager. Je valide et à ce moment une fenêtre s'ouvre indiquant erreur 1004
a+
Lionel

 

[ldexplorer]

Re : erreur lors de l'entrer nom prénom dans la boîte de dialogue

Je rentre le nom de l'usager en cliquant sur le bouton.
Deux cas de figure apres validation :
-1- erreur 1004
-2- ou une fenetre me demandant d'enregistrer les nouvelles valeurs
a+
Lioenl

 

[PascalXLD]

Re : erreur lors de l'entrer nom prénom dans la boîte de dialogue

Re

bon faudrait se pencher plus sur le code mais pas le temps immédiatement

Je verrai ce soir si personne si colle d'ici là

 

[jp14]

Re : erreur lors de l'entrer nom prénom dans la boîte de dialogue

Bonsoir

Lorsque le nomme manuellement une feuille les carractères spéciaux (espace, !, ) sont pris en compte, la même oprération avec une macro entraine une erreur.

Une solution basique : transformer ces carractères en un carractère reconnu comme par exemple _

For i = 1 To Len(reponse1)
Select Case Mid(reponse1, i, 1)
Case " " ' espace interdit dans le nom
data2 = data2 & "_"
Case "'" ' apostrophe
data2 = data2 & "_"

Case Else
data2 = data2 & Mid(reponse1, i, 1)
End Select

JP

 

[porcinet82]

Re : erreur lors de l'entrer nom prénom dans la boîte de dialogue

Salut,

Allez Pascal, pour toute les fois ou tu m'as rendu service, je m'y suis collé et je pense avoir trouvé. Il te suffit de modifier le code qui se trouve a la fin de ton module1 de la manière suivante (j'ai juste rajouter les '):
With Sheets("BILANS")
.Rows("10:10").Insert Shift:=xlDown ' insertion d'une ligne 10
.Range("B10") = reponse1
.Range("F10").FormulaR1C1 = "='" & reponse1 & "'!R35C6"
.Range("G10").FormulaR1C1 = "='" & reponse1 & "'!R35C7"
.Range("H10").FormulaR1C1 = "='" & reponse1 & "'!R35C8"
.Range("I10").FormulaR1C1 = "='" & reponse1 & "'!R35C9"
.Range("j10").FormulaR1C1 = "='" & reponse1 & "'!R35C10"
End With

@+

 

[jp14]

Re : erreur lors de l'entrer nom prénom dans la boîte de dialogue

Bonsoir Porcinet, le fil

La solution proposée par Porcinet fonctionne correctement avec les espaces, mais si le nom (j'en ai trouvé sur l'annuaire ) comporte le carractère 27 (apostrophe) la macro génère l'erreur 1004.

JP

 

[ldexplorer]

Re : erreur lors de l'entrer nom prénom dans la boîte de dialogue

Merci à vous tous de votre participation. J'ai retenu la solution de Porcinet.
A bientôt,
Lionel