Vba ou excel
lepeuple
Messages postés
15
Statut
Membre
-
lepeuple Messages postés 15 Statut Membre -
lepeuple Messages postés 15 Statut Membre -
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
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:
- Vba ou excel
- Liste déroulante excel - Guide
- Si ou excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
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:
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
lepeuple
Messages postés
15
Statut
Membre
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