Discussion :

[sash6]

Bonjour,

Voici mon souci: les tableaux qie je reçois ne sont pas toujours bien remplis. Par exemple: au lieu de marquer "ABS", on marque "ABS " (avec un espace). Du coup lorsque je fais des regroupements, j'ai deux catégories "ABS" alors qu'en fait il y en a qu'une seule. Du coup il faut que je "nettoie" mes tableaux. J'ai essayé de faire quelque chose du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub boucle_nettoyage_pole()
Dim c, col As Range
Dim cString, strABS As String
 
ActiveSheet.[B16].Select
'Set col = [B16].CurrentRegion.End(xlDown).Activate
 
If (ActiveCell.Offset(1, 0)) > "" Then
    For Each c In Columns("B:B")
        If Left(cString, 3) = "ABS" Then c.Value = strABS
    Next
End If
End Sub

Mais ça ne marche poas Quelqu'un a une idée?

[wilfried_42]

bonjour sash6

pour moi la boucle est ok, c'est l'interieur qui n'est pas bon

If Left(cString, 3) = "ABS" Then c.Value = strABS

si c'est pour enlever les espaces :

c = ltrim(rtrim(c))

doit suffire

la ligne avec un if

if left(c,3)="ABS" then c = "ABS"

cordialement

[tonton fred]

Bonjour,
Regarde a "Trim" dans l'aide VBA

[sash6]

D'accord, je vois le truc. Sauf que c est défini en tant que range, du coup je ne peux l'utiliser dans:

If Left(c, 3) = "ABS" Then c = "ABS"

c'est du string qu'il faut...

cordialement

[tonton fred]

Code :

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

1
2
3
4
5
For Each c In Range("B:B") 'chez moi columns avec un type range plante...
        If Not IsEmpty(c) Then 'facultatif mais accelere le code
        c.Value = Trim(c.Value)
        end if
Next c

Ca enlevera tous les espaces en debut et fin de chaine

[sash6]

Merci tonton Fred ça marche nickel na zdrove (c'est comme ça non en polonais?)

[tonton fred]

Presque, c'est na zdrowie

[wilfried_42]

re:

D'accord, je vois le truc. Sauf que c est défini en tant que range, du coup je ne peux l'utiliser dans:

c'est du string qu'il faut...

cordialement

une petite precision sash6 quand tu mets entre " --> C'est du string

c.value = 10 c'est du numerique
c.value = "ABS" c'est du string

cordialement