Vba ou excel

lepeuple Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
lepeuple Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai une cellule (A1) qui contient plusieurs informations ("Abricot", "Fraise", "Cerises", "pastèque") et j'aimerai transférer cette seule ligne en plusieurs colonnes c'est-à-dire que B1 contienne Abricot, C1 contienne Fraise, D1 Cerise, et enfin E1 contienne pastèque.

Dois-je coder quelque chose,

Je reste à votre entière disposition,

Merci pour votre aide
A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

En vba, faire Alt F11 pour accéder à l'éditeur.
Ensuite sélectionner la feuille concernée en haut à gauche et mettre ce code: 

Option Explicit
Dim chaine As String
Dim Tableau() As String
Dim i As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
chaine = Target.Value
 Tableau = Split(chaine, ",") 'séparation
     'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans les cellules appropriées
       Range("B1").Value = Tableau(0)
        Range("C1").Value = Tableau(1)
         Range("D1").Value = Tableau(2)
          Range("E1").Value = Tableau(3)
     Next i
End If
End Sub

0
lepeuple Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Le Pivert ! C'est très sympa de ton aide ! Je teste ça demain ... Mais en attendant Mille fois mercis ! J'apprécie ton aide ! Passe une bonne soirée et j'espere pouvoir t'aider un jour
0
Réponse 2 / 2
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Ou simplement par Copier, Coller puis l'outil Convertir

0
lepeuple Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Le Pingou ! Sympa de ton aide ! Je regarde ça demain :) Bonne soirée
0