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 :
Comment faire pour supprimer toutes les tabulation et n'en garder qu'une ??Colonne1 vbtab vbtab vbtab vbtab vbtab colonne2 --> 5 tab
Colonne1 vbtab colonne2 --> 1 tab
Colonne1 vbtab vbtab colonne2 --> 2 tab
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 :
ca m'affiche :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Replace(result, vbtab, "-")
J'ai bien essayé un truc comme ca mais ca ne fonctionne pas :Colonne1 - - - - - colonne2
Colonne1 - colonne2
Colonne1 - - colonne2
Avez vous une idée svp merci ??
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
Partager