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

C

CHALET53

XLDnaute Barbatruc

• 12 Décembre 2016

• #2

bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 12 Décembre 2016

• #3

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

Code:

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

A+

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Décembre 2016

• #4

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

 

Pièces jointes

• USF qui renvoie un texte sans le numéro qui suit...V02.xlsm

  76.5 KB · Affichages: 37

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 12 Décembre 2016

• #5

Bonjour Christian,

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

Code:

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

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Décembre 2016

• #6

Re, le forum, David, Philippe,

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

Bien à vous, David et Philippe.

Christian

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Décembre 2016

• #7

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 12 Décembre 2016

• #8

phlaurent55 à dit:

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

Cliquez pour agrandir...

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

À+
Philippe

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Décembre 2016

• #9

Re, le forum, David, Philippe

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

Bien à toi,
Christian

 

Vote positif 0 Vote négatif