Detection de chaine de caracteres

bqtr

XLDnaute Accro

• 10 Mai 2007

• #2

Re : Detection de chaine de caracteres

Re,

Essaye comme ca :

Code:

Sub SupCaract()
Dim cell As Range
Dim t
For Each cell In Range("C1:C" & Range("C65536").End(xlUp).Row)
   t = Split(cell, "-")
   cell = t(0)
   cell = Trim(cell)
Next
End Sub

Dans l'exemple, le séparateur doit toujours être le tiret "-"

 

Dernière édition: 10 Mai 2007

Vote positif 0 Vote négatif

R

romainchu78

XLDnaute Occasionnel

• 10 Mai 2007

• #3

Re : Detection de chaine de caracteres

jai un message derreur sur "cell = t(0)"

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 10 Mai 2007

• #4

Re : Detection de chaine de caracteres

Sur les 5 exemples que tu as mis, chez moi pas d'erreur.
La fonction split découpe le chaine suivant un séparateur, ici le tiret.
Le premier groupe a pour index 0, le deuxième 1, le troisième 2 .../...
Donc ici tu cherches à garder le premier groupe, donc t(0).

cell = Trim(cell) sert à enlever les espaces superflus au cas ou il y en aurait.

As tu un exemple des données réelles à tester ?

 

Dernière édition: 10 Mai 2007

Vote positif 0 Vote négatif

R

romainchu78

XLDnaute Occasionnel

• 10 Mai 2007

• #5

Re : Detection de chaine de caracteres

en fait ca marche. il fallait juste remplir les cellules vide avant.

t un chef merci

 

Vote positif 0 Vote négatif