Discussion :

[Mathsdeb]

Bonsoir,

Est ce que quelqu'un peut me dire comment je peux faire (soit avec une macro ou avec une formule de calcul) l'action suivante :



Pour obtenir le résultat ci-dessous en une seule cellule :



Merci par avance pour votre aide

[joe.levrai]

Bonjour,

utilise la fonction CONCATENER(), en insérant entre chaque référence de cellule ton séparateur

Code :

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

=CONCATENER(D19 & ";" & D20)

renvoie toto;toto si D19 et D20 contiennent toto


EDIT : pas besoin de la formule en fait, on concatène directement (je suis fatigué on dirait )

Code :

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

=D19 & ":" & D20

[excfl]

Bonjour le forum,

Si les données à concaténer sont nombreuses :

Dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Function juxt(Plage As Range, Optional Separateur As String = ";")
Dim Mondico As Object
Dim Cel As Range
 
  Application.Volatile
  Set Mondico = CreateObject("Scripting.dictionary")
  For Each Cel In Plage
    If Cel <> "" Then
      Mondico(Cel.Value) = ""
    End If
  Next Cel
  If Mondico.Count > 0 Then
    juxt = Join(Mondico.keys, Separateur)
  End If
End Function

Code :

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

=juxt(A1:A100)

[Mathsdeb]

Bonsoir,

Merci à tous les deux !!!!

Excellent!

Merci beaucoup pour ce super forum qui m'a permis d'avancer et de m'améliorer dans le domaine d'Excel.