effacer un string

Version imprimable

effacer un string

Bonjour,
je cherche a effacer un string ou plutot a le reinitiliser à vide.
ma variable : Montab

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub toto()
Dim Montab  As String
 
Do While ActiveCell.Offset(0, -2) <> ""
' ActiveCell.FormulaR1C1 = "=RC[-1]"
'Montab = " "
 
 
   Tableau = Split(ActiveCell.Offset(0, 0), " ")
   a = UBound(Tableau)
   b = a - 2
   For i = 0 To b
             Montab = Montab & Tableau(i)
   Next
 
 
    Do While ActiveCell.Offset(0, -1) <> ""
    ActiveCell(1, 2).FormulaR1C1 = Montab
 
 ActiveCell.Offset(1, 0).Range("a1").Select
    Loop
    ActiveCell.Offset(2, 0).Range("a1").Select
    Loop

j'ai essayé Erase ...Mais ca ne fonctionne pas ...
une idée ?
Merci
ImagingAll

27/05/2008, 18h09
fring

on parle de String, j'accoure :mouarf:

Bonjour,

Simplement

Code:

Montab = ""

(sans espace entre les guillemets)

Merci,
j'avais essayé

Code:

Montab = " "

et ca ne fonctionnait pas.

Code:

1
2
3
4
5
6
7
8
9
 
Do While ActiveCell.Offset(0, -2) <> ""
Montab = ""
   Tableau = Split(ActiveCell.Offset(0, 0), " ")
   a = UBound(Tableau)
   b = a - 2
   For i = 0 To b
             Montab = Montab & Tableau(i)
   Next

Merci beaucoup
ImagingAll