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 :

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 :

Colonne1 vbtab colonne2 --> 1 tab
Colonne1 vbtab colonne2 --> 1 tab
Colonne1 vbtab colonne2 --> 1 tab


Pour tester, si je fais un :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Replace(result, vbtab, "-")
ca m'affiche :

Colonne1 - - - - - colonne2
Colonne1 - colonne2
Colonne1 - - colonne2
J'ai bien essayé un truc comme ca mais ca ne fonctionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ??