Combinaison de cellules
Bonjour,
je vous sollicite par rapport au besoin ci dessous:
j'a un fichier excel avec une seule colonne(A) ,j'aimerai combiner chaque cellule avec l'ensemble des autres cellules de sorte à obtenir le résultat suivant
colonneA colonneB
claude claude-jean
jean claude-marie
marie jean-claude
marie-claude
marie-jean
Bonjour,
je ne comprends pas
Tu nous donnes le résultat mais on a pas ton point de départ.
Ré-explique ou envoie un fichier pour t'aider au mieux.
++
Oliv
bonjour,
une proposition sur base de ce que j'ai compris
Dim a(2), c
Sub aargh()
c = 0
dl = Cells(Rows.Count, 1).End(xlUp).Row
Columns(2).Clear
combine dl
End Sub
Sub combine(dl, Optional n = 1, Optional s = "")
For i = 1 To dl
a(n) = Cells(i, 1)
If n = 2 Then
If a(1) <> a(2) Then
c = c + 1
Cells(c, 2) = a(1) & "-" & a(2)
End If
Else
combine dl, n + 1, s
End If
Next i
End SubMerci h2so4..c'est parfait
comment puis l'intégrer dans ma feuille excel?
Oliv38 a écrit :Bonjour,
je ne comprends pas
Tu nous donnes le résultat mais on a pas ton point de départ.
Ré-explique ou envoie un fichier pour t'aider au mieux.
++
Oliv
mon point de départ c'est juste la colonne A
sur le forum
selectionner le code
le copier ctrl-c
dans excel
faire alt-F11
faire insérer-> module
coller le code ctrl-v
la macro est disponible dans le classeur
faire alt-F11 pour revenir à excel
eventuellement sauver le classeur avec les macros
la macro est disponible via ALT-F8
Merci pour votre assistance