Supprimer les tabulations multiples
Bonjour,
Problème simple :
Entre 2 colonnes je vais, avoir des tabulations mais qui ne sont jamais le meme nombre.
Par exemple je vais avoir :
Citation:
Colonne1 vbtab vbtab vbtab vbtab vbtab colonne2 --> 5 tab
Colonne1 vbtab colonne2 --> 1 tab
Colonne1 vbtab vbtab colonne2 --> 2 tab
Comment faire pour supprimer toutes les tabulation et n'en garder qu'une ??
pour que ca donne ca :
Citation:
Colonne1 vbtab colonne2 --> 1 tab
Colonne1 vbtab colonne2 --> 1 tab
Colonne1 vbtab colonne2 --> 1 tab
Pour tester, si je fais un :
Code:
1 2
|
Replace(result, vbtab, "-") |
ca m'affiche :
Citation:
Colonne1 - - - - - colonne2
Colonne1 - colonne2
Colonne1 - - colonne2
J'ai bien essayé un truc comme ca mais ca ne fonctionne pas :
Code:
1 2 3 4 5 6
|
Dim colonne
Do While (Instr(1, colonne, vbTab & vbTab) > 0)
colonne = Replace(colonne, vbTab, vbTab & vbTab, 1)
Wend |
Avez vous une idée svp merci ??