Sujet Précédent Sujet Suivant

Vba ou excel

Fermé
lepeuple Messages postés 15 Date d'inscription lundi 13 juillet 2015 Statut Membre Dernière intervention 21 juillet 2015 - 13 juil. 2015 à 16:54
lepeuple Messages postés 15 Date d'inscription lundi 13 juillet 2015 Statut Membre Dernière intervention 21 juillet 2015 - 13 juil. 2015 à 23:22
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 jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
13 juil. 2015 à 18:37
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 lundi 13 juillet 2015 Statut Membre Dernière intervention 21 juillet 2015
13 juil. 2015 à 23:21
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 12200 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 novembre 2024 1 450
13 juil. 2015 à 22:44
Bonjour,
Ou simplement par Copier, Coller puis l'outil Convertir

0
lepeuple Messages postés 15 Date d'inscription lundi 13 juillet 2015 Statut Membre Dernière intervention 21 juillet 2015
13 juil. 2015 à 23:22
Merci Le Pingou ! Sympa de ton aide ! Je regarde ça demain :) Bonne soirée
0