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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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