Discussion :

[snorky94]

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 ??

[Aniki]

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

ca marche pas ?

hum...
A oui effectivement...
Au lieu de diminuer les vbTab à 1, je t'en rajoutais un le tout dans une boucle infini...
Ca m'apprendra à pas tester avant de proposer une solution.

Là ca devrait aller mieux (ça a même été testé !!)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i, ligne()
 
redim ligne(2)
ligne(0) = "Colonne1" & vbtab & vbtab & vbtab & vbtab & vbtab & "colonne2" '5 tab
ligne(1) = "Colonne1" & vbtab & "colonne2" '1 tab
ligne(2) = "Colonne1" & vbtab & vbtab & "colonne2" '2 tab
 
For i= LBound(ligne) to UBound(ligne)
	Do While (Instr(1, ligne(i), vbTab & vbTab) > 0)
		ligne(i) = Replace(ligne(i), vbTab & vbTab, vbTab, 1)
	Loop
	MsgBox "Ligne " & i & " = " & ligne(i)
next

Là c'est du tout confort.
Tu n'as plus qu'à remplir le tableau ligne() comme tu le souhaites et il t'arrange tout comme il faut.

[snorky94]

C'est parfait avec ca merci !!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i= LBound(ligne) to UBound(ligne)
	Do While (Instr(1, ligne(i), vbTab & vbTab) > 0)
		ligne(i) = Replace(ligne(i), vbTab & vbTab, vbTab, 1)
	Loop
	MsgBox "Ligne " & i & " = " & ligne(i)
next