Dans un cas "For i = 1 To" ça marche ... Mais pas avec For Each

Bonjour pijaku

Les variables sont remplies, j'ai commencé par coder en "for each", comme cela ne fonctionnait pas je l'ai remplacé par "for to".

IT , Items et tE sont en variant, i en single.

ITems est issu d'un set (Range)
ITems = ITems.Value

cordialement

Bon.
De toutes façons, For Each est beaucoup plus lente que For To et à n'utiliser que sur des collections.
Si ITems avait été déclarée comme Collection

Dim ITems As New Collection

, tu aurais pu utiliser une boucle For Each et modifier les valeurs comme ceci :

ITems.Remove i 'ou i est la clé
ITems.Add Item:=SansVide(tE), key:=i

Mais bon, au vu de la complexité du bazar + la lenteur occasionnée par For Each + les valeurs que tu prends en compte dans ta boucle (String je suppose), le type de boucle à utiliser est For ... To... Next

Par contre, pour le coup, il faudrait revoir si tes valeurs sont des string, les déclarations :

Dim ITems() As String
Dim i As Long
For i = 1 To UBound(ITems, 2)
    ITems(1, i) = SansVide(ITems(1, i))
Next i

Function SansVide(Truc As String) As String

Tu passes par une variable de type Range => très "lourde" et inutile.

Tu peux extrêmement rapidement remplir une variable tableau avec le contenu d'une plage de cellules. La boucle, dans ce cas est très rapide.

Essaye ceci :

Dim Items() As String, i As Long, LigTi As Long, Col As Integer

For Col = 1 To Cells(LigTi, 1).End(xlToRight).Column
    ReDim Preserve Items(Col)
    Items(Col) = Cells(LigTi, Col).Value
Next Col
'Suppression des vides
For i = 1 To UBound(Items)
  Items(1) = SansVide(Items(1))
Next i

'------------------------------

Private Function SansVide(chaiNe As String) As String

pijaku

Un grand merci pour tes conseils et tes explications

Alain

De rien.
N'hésite pas.
A+

Franck

Encore une dernière pijaku

Serais-plus rapide de mettre,

Items(Col) = SansVide((Cells(LigTi, Col).Value)

Bien qu'un peu mois lisible?

Cordialement

Quel est le code de ta fonction SansVide?