Travailler sur une chaine de caracteres

Question

Hello tlm, 

J'ai un chtit problème, j'expose une partie du code :
For i = 1 To MaCombo.Ubound
            
  If MaCombo(i).Text = "Texte" Then
      maphrase = maphrase & i & ", "
                    
      'XX Met en mémoire la combo défaillante
      incorrect = incorrect + 1
  End If
                
Next i
            
If incorrect > 1 Then
    MsgBox maphrase, vbCritical + vbOKOnly, "Erreur de sélection !"
    Exit Sub
ElseIf incorrect = 1 Then
   ....
End if

Mon problème réside dans 'maphrase'. En effet je voudrai terminer 'maphrase' par un point. Dans ce cas-ci, elle se terminera toujours par une virgule. Comment je peux aller chercher la derniere virgule et la remplacer par un point, etant donné que 'maphrase" est de taille variable ? Devrai-je utiliser un tableau pour isoler les index des combos ? Bref je sais pas...

MrDogbert · Answer

right (maphrase,1) =  "."

 MrDogbert

cs_DARKSIDIOUS · Answer

Non, il te suffit d'utiliser la méthode left :

maphrase = left(maphrase, 1) & "."

DARK SIDIOUS

cs_rene38 · Answer

Bonsoir.
ça ne marche pas : Right est une fonction, pas une instruction.

Plusieurs solutions :
maphrase =  Left(maphrase, Len(maphrase) - 1) & "."
ou bien 
Mid(maphrase, Len(maphrase), 1) = "."

MrDogbert · Answer

MrDogbert

MrDogbert · Answer

Oui c'est vrai, autant pour moi...
et pardon pour le message vide juste avant, mauvaise manipulation...
Décidement...que des connerires aujourd hui...

cs_philoup · Answer

tu fait ton for avec macombo.ubound -1
et tu traite apres ton next la derniere combo en lui concaténant un point.

cs_philoup · Answer

sinon tu fais:

For i = 1 To MaCombo.Ubound
> 
> If MaCombo(i).Text = "Texte" Then
> maphrase = maphrase & i 
   if i <> macombo.ubound then
   maphrase = maphrase & ","
   else 'on en est au dernier
   maphrase = maphrase & "."
   end if
> 
> 'XX Met en mémoire la combo défaillante
> incorrect = incorrect + 1
> End If
> 
> Next i

cs_philoup · Answer

maphrase2= Replace(maphrase, ",", ".")
qui met dans "maphrase2" maphrase terminée par un point à la place d'une virgule
maphrase= maphrase2
qui met "maphrase2" dans "maphrase"

Travailler sur une chaine de caracteres

8 réponses

Discussions similaires