Discussion :

[yoyo3d]

Bonjour à tous,
Je bosse sur xl 2000.
Un petit problème de concaténation: j'ai pris l'habitude de concaténer diréctement plusieurs cellules d'une même ligne avec la fonction "concaténer", mais aujourd'hui, je dois automatiser cette action pour d'autres utilisateurs qui ne connaissent pas xl.

J'arrive à le faire directement sur ma feuille,

Code :

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

=SI(ESTVIDE(A5);"";CONCATENER(E5& " ";F5 & " ";G5))

Mais impossible de le coder en VBA

J'ai donc un tableau qui commence à la ligne 4 (ligne des entête de colonnes), les valeurs à tester commencent à la ligne 5.
Colonne A : le nom de la commune
Colonne B : c'est ici que je souhaite avoir le résultat de la concaténation
Colonne C / D / E respectivement : Numéro de rue / Type de rue / Nom de rue

Je précise que le nombre de lignes est variable pour chaque tableau, c'est pour ça que je fais le test "SI".

Je pensais faire quelque chose du genre:
"Do loop while"

Me positionner en cellule A5, concaténer en B5 les cellules C5 / D5 / E5
Passer à la ligne suivante cellule A6,
tester si elle est vide :
Si "non": concaténer C6 / D6 / E6 en B6
Si "oui": fin de la boucle.
Ainsi de suite jusqu'à ce que le résultat du test "si" indique une cellule vide en colonne A.

J'espère avoir bien expliqué mon cas…

Merci

P.S:
Je viens de voir sur le Post du dessus (http://www.developpez.net/forums/d91...-excel/tester- )ce bout de code.

Code :

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

if Isempty(Range("A1").Offset(i))

Qui peut me dire à quoi correspond Offset(i)…

[Gorfael]

Salut yoyo3d et le forum
Une proposition

Code :

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

1
2
3
4
5
6
7
8
Sub TEST()
Dim Cel As Range
For Each Cel In Range([A5], Cells(Rows.Count, "A").End(xlUp))
    If Cel <> "" Then Cel.Offset(0, 1) = IIf(Cel.Offset(0, 2) <> "", Cel.Offset(0, 2) & " ", "") & _
                                         IIf(Cel.Offset(0, 3) <> "", Cel.Offset(0, 3) & " ", "") & _
                                         IIf(Cel.Offset(0, 4) <> "", Cel.Offset(0, 4), "")
Next Cel
End Sub

pour chaque cellule de A5 à dernière non vide de A
Si la cellule n'est pas vide, concaténer les cellules située à 2, 3 et 4 colonnes (en les séparant par un espace) dans la cellule située à une colonne.
Je l'ai pas testée, car ça me semble assez facile.
A+

[yoyo3d]

ok merci pour la réponse, je test et je te dit si ça a marché...

bon....ça marche, c'est exactement ce que je souhaitais faire avec un "do loop until ou while, mais je n'ais pas réussi....

merci
merci
merci....

[re]

Bonjour
Comme ce post date un peu, j'ouvre une nouvelle discussion sur l'utilisation de la dernière macro
@+