Concaténation automatique de plusieurs cellules

Modeste

XLDnaute Barbatruc

• 18 Mars 2009

• #2

Re : Concaténation automatique de plusieurs cellules

Bonjour ghaisse,

Si tu acceptes de sortir d'Excel provisoirement, voici une solution:
- copier ta colonne A
- ouvrir Word --> Edition --> Collage spécial --> Texte sans mise en forme
- Edition --> Remplacer (Ctrl+H)
- dans la zone rechercher: ^p
- dans la zone remplacer: rien du tout, puisque tu as déjà les ';' après chaque adresse
- Remplacer tout

D'autres propositions suivront sans doute ... ou précéderont

Modeste

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 18 Mars 2009

• #3

Re : Concaténation automatique de plusieurs cellules

Bonjour ghaisse , modeste,

une solution par macro en fichier joint

 

Pièces jointes

• a1.xls

  25.5 KB · Affichages: 295
• a1.xls

  25.5 KB · Affichages: 242
• a1.xls

  25.5 KB · Affichages: 240

Dernière édition: 18 Mars 2009

Vote positif 0 Vote négatif

G

ghaisse

Guest

• 18 Mars 2009

• #4

Re : Concaténation automatique de plusieurs cellules

Les 2 solutions me conviennent.
J'ai quand même une préférence pour le VBA qui évite beaucoup de manipulations, et qui est plus fiable.
Merci beaucoup pour votre aide.

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 18 Mars 2009

• #5

Re : Concaténation automatique de plusieurs cellules

Bonjour

On peut aussi faire une fonction. Il reste plus qu'a l'utiliser comme une fonction native d'excel...

Code:

Function concatenation(liste, separateur)
Dim res As String
Dim i As Long, nb As Long
  nb = UBound(liste.Value)
  For i = 1 To nb
    If liste(i, 1).Value <> "" Then
      If res <> "" Then res = res + separateur
      res = res + liste(i, 1).Value
    End If
  Next i
  concatenation = res
End Function

 

Vote positif 0 Vote négatif

G

GCFRG

XLDnaute Occasionnel

• 18 Mars 2009

• #6

Re : Concaténation automatique de plusieurs cellules

Salut, tu peux faire çà aussi.
Sub essai()
Dim Tmp As String, Temp As String, i As Integer
With Sheets("Feuil1")
For i = 1 To .Range("a" & .Rows.Count).End(xlUp).Row
If .Range("a" & i).Value = vbNullString Then GoTo suite
Tmp = .Range("a" & i).Value
Temp = Temp & ";" + Tmp
suite:
Next i
.Range("C1").Value = Temp
End With
End Sub

Gilbert

 

Vote positif 0 Vote négatif