l'USF doit valider le texte sans le numéro qui suit...

[Christian0258]

Bonjour à tout le forum,

Je souhaite, à nouveau, votre aide pour cet aménagement de code...
voir fichier joint avec toutes les explications.

Merci pour le temps que vous voudrez bien vouloir m'accorder.

Bien amicalement,
Christian

 

[CHALET53]

bonjour,

Peut-être en modifiant cette procédure comme suit :

Private Sub GrBoutons_Click()
  Selection.Interior.Color = GrBoutons.BackColor
  Selection.Font.Color = GrBoutons.ForeColor
  A = GrBoutons.Caption
  For i = 1 To Len(A)
  If Asc(Mid(A, i, 1)) > 47 And Asc(Mid(A, i, 1)) < 58 Then GoTo suite
  If Asc(Mid(A, i, 1)) = 32 Then GoTo suite
  d = d & Mid(A, i, 1)
suite:
  Next i
  Selection.Value = d 'GrBoutons.Caption
  ActiveCell.Offset(0, 1).Select
End Sub

 

[david84]

Bonjour,
sous réserve d'avoir bien compris ta demande :

Selection.Value = Split(GrBoutons.Caption, " ")(0)

A+

 

[Christian0258]

Re, le forum, CHALET53

Merci, CHALET53, pour le boulot.

Ca fonctionne, sauf que je n'ai pas mentionné que les CA et RTT peuvent être avec une virgule expl CA 24,5...
donc ça me laisse la virgule après la CA,

Comment résoudre ce problème ?
Bien à toi et encore merci pour ton aide.

Christian

 

[phlaurent55]

Bonjour Christian,

remplace le code par celui-ci (module de classe)

Private Sub GrBoutons_Click()
  Selection.Interior.Color = GrBoutons.BackColor
  Selection.Font.Color = GrBoutons.ForeColor
  If IsNumeric(Application.Search(" ", GrBoutons.Caption, 1)) Then
    Selection.Value = Left(GrBoutons.Caption, Application.Search(" ", GrBoutons.Caption, 1))
     Else
     Selection.Value = GrBoutons.Caption
  End If
  ActiveCell.Offset(0, 1).Select
End Sub

à+
Philippe

Edit: Bonjour David

 

[Christian0258]

Re, le forum, David, Philippe,

Merci, à vous deux, ça fonctionne parfaitement y compris lorsque je valide les horaires...

Bien à vous, David et Philippe.

Christian

 

[Christian0258]

Re, le forum, David Philippe,

Après essais, je me rend compte que qu'il y a un espace après le code épuré de son N°

Peut-on remédier à cela ???

Merci pour votre aide,
Christian

 

[phlaurent55]

Selection.Value = Left(GrBoutons.Caption, Application.Search(" ", GrBoutons.Caption, 1)-1)

Désolé pour la mise en page, je suis sur mon Smartphone

À+
Philippe

 

[Christian0258]

Re, le forum, David, Philippe

Merci, infiniment Philippe pour ton aide.
C'est impec.

Bien à toi,
Christian