Fusionner des cellules sous excel

Question

Bonjour, 

J'ai écrit une macro pour pouvoir créer une liste d'emails à partir d'un fichier excel. J'ai les noms dans les cellules de la colonne A et je voudrais juste les fusionner dans uen seule et même case et séparer les noms par ";"! 

Sub listeemail()
 Dim celluleselec As String
 Dim resultat As String
 
celluleselec = Range("A1")
  For i = 1 To 10
  
   celluleselec = celluleselec.Offset(1, 0) 
   resultat = resultat & ";" & celluleselec

  
 Next
 MsgBox resultat
End Sub
     
Je pense que la dim de celluleselec pour l'offset mais je ne trouve pas la bonne commande pour seectionner que le texte. 
Est ce que quelqu'un pourrait m'aider, please?? 

merci d'avance, 


Configuration: Windows XP / Internet Explorer 6.0

pijaku · Answer

Bonjour,
essayez ceci :
Sub listeemail() 
Dim celluleselec As String 
Dim resultat As String 
resultat = Cells(1, 1).Value
For i = 2 To 10 
celluleselec = cells(i, 1).Value 
resultat = resultat & ";" & celluleselec 
Next i
MsgBox resultat 
End Sub

Fusionner des cellules sous excel

1 réponse

Discussions similaires

Newsletters