[VBA Excel] supprimer le point virgule
ben7777
Messages postés
30
Date d'inscription
Statut
Membre
Dernière intervention
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'aimerai que les mots qui sont séparés par un point virgule dans ma cellule excel, apparaissent un à un dans des lignes différentes comme une énumération. En fait je voudrais exactement comme on fait avec la conversion de colonne en délimité mais avec des lignes. Et tout ca en VBA !
Merci de votre aide c'est assez urgent
Ben
j'aimerai que les mots qui sont séparés par un point virgule dans ma cellule excel, apparaissent un à un dans des lignes différentes comme une énumération. En fait je voudrais exactement comme on fait avec la conversion de colonne en délimité mais avec des lignes. Et tout ca en VBA !
Merci de votre aide c'est assez urgent
Ben
A voir également:
- [VBA Excel] supprimer le point virgule
- Supprimer rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Supprimer une page word - Guide
- Word et excel gratuit - Guide
- Supprimer pub youtube - Accueil - Streaming
7 réponses
bonjour
j'ai essayé de refaire la même chose pour que les champs séparés par le point virgules se mettent sur la meme ligne à présent.
C'est un peu plus compliqué effectivement à faire, voici la macro adaptée :
Sub conv_colonnes()
Dim col, car, k, j
Set col = Application.InputBox("Choisissez la colonne à convertir", "Colonne à convertir", , 100, 200, , , 8)
car = Application.InputBox("Choisissez le caractère délimiteur", "Caractère délimiteur", ";", 100, 100)
For Each c In Range(col.Address)
k = InStr(1, c.Value, car)
j = 0
Do While k > 0
j = j + 1
If Cells(c.Row, c.Column + j).Value <> "" Then Cells(c.Row, c.Column + j).EntireColumn.Insert
Cells(c.Row, c.Column + j).Value = Right(Cells(c.Row, c.Column + j - 1).Value, Len(Cells(c.Row, c.Column + j - 1).Value) - k)
Cells(c.Row, c.Column + j - 1).Value = Left(Cells(c.Row, c.Column + j - 1).Value, k - 1)
k = 0
k = InStr(k + 1, Cells(c.Row, c.Column + j).Value, car)
Loop
Next c
End Sub
Je penses que tu as vu l'intérêt du choix d'une plage à la souris pour les essais.
Bon essai et donnes nous le résultat...
j'ai essayé de refaire la même chose pour que les champs séparés par le point virgules se mettent sur la meme ligne à présent.
C'est un peu plus compliqué effectivement à faire, voici la macro adaptée :
Sub conv_colonnes()
Dim col, car, k, j
Set col = Application.InputBox("Choisissez la colonne à convertir", "Colonne à convertir", , 100, 200, , , 8)
car = Application.InputBox("Choisissez le caractère délimiteur", "Caractère délimiteur", ";", 100, 100)
For Each c In Range(col.Address)
k = InStr(1, c.Value, car)
j = 0
Do While k > 0
j = j + 1
If Cells(c.Row, c.Column + j).Value <> "" Then Cells(c.Row, c.Column + j).EntireColumn.Insert
Cells(c.Row, c.Column + j).Value = Right(Cells(c.Row, c.Column + j - 1).Value, Len(Cells(c.Row, c.Column + j - 1).Value) - k)
Cells(c.Row, c.Column + j - 1).Value = Left(Cells(c.Row, c.Column + j - 1).Value, k - 1)
k = 0
k = InStr(k + 1, Cells(c.Row, c.Column + j).Value, car)
Loop
Next c
End Sub
Je penses que tu as vu l'intérêt du choix d'une plage à la souris pour les essais.
Bon essai et donnes nous le résultat...
bonjour
As-tu vu la macro pour les filtres automatiques ?
Mais comment faites vous ??
Avec Excel, comme pour beaucoup d'autres choses d'ailleurs,
il faut toujours travailler pour comprendre les notions de base,
puis mettre en pratique sur les domaines adéquats.
VBA possède une aide très complète, avec des exemples,
il faut apprendre à l'utiliser et après, il n'y a plus de limite...
Au bout de quelques années de pratique, tu peux utiliser,
de façon efficace, 20% des possibilités et ensuite,
il est toujours temps d'acquèrir d'autres notions...
As-tu vu la macro pour les filtres automatiques ?
Mais comment faites vous ??
Avec Excel, comme pour beaucoup d'autres choses d'ailleurs,
il faut toujours travailler pour comprendre les notions de base,
puis mettre en pratique sur les domaines adéquats.
VBA possède une aide très complète, avec des exemples,
il faut apprendre à l'utiliser et après, il n'y a plus de limite...
Au bout de quelques années de pratique, tu peux utiliser,
de façon efficace, 20% des possibilités et ensuite,
il est toujours temps d'acquèrir d'autres notions...
bonjour
pour faire cela rapidement, je te propose cette macro :
Sub conv_lignes()
Dim col, car, k
Set col = Application.InputBox("Choisissez la colonne à convertir", "Colonne à convertir", , 100, 200, , , 8)
car = Application.InputBox("Choisissez le caractère délimiteur", "Caractère délimiteur", ";", 100, 100)
For Each c In Range(col.Address)
k = InStr(1, c.Value, car)
Do While k > 0
Cells(c.Row + 1, c.Column).EntireRow.Insert
Cells(c.Row + 1, c.Column).Value = Right(c.Value, Len(c.Value) - k)
Cells(c.Row, c.Column) = Left(c.Value, k - 1)
k = InStr(k + 1, c.Value, car)
Loop
Next c
End Sub
tu choisis ta plage à la souris, ton caractère délimiteur,
et la macro crée autant de lignes que nécessaire pour le choix.
les lignes qui sont tronquées ici doivent être remises sur la même.
Set col = Application.InputBox("Choisissez la colonne à convertir", "Colonne à convertir", , 100, 200, , , 8)
et
car = Application.InputBox("Choisissez le caractère délimiteur", "Caractère délimiteur", ";", 100, 100)
pour faire cela rapidement, je te propose cette macro :
Sub conv_lignes()
Dim col, car, k
Set col = Application.InputBox("Choisissez la colonne à convertir", "Colonne à convertir", , 100, 200, , , 8)
car = Application.InputBox("Choisissez le caractère délimiteur", "Caractère délimiteur", ";", 100, 100)
For Each c In Range(col.Address)
k = InStr(1, c.Value, car)
Do While k > 0
Cells(c.Row + 1, c.Column).EntireRow.Insert
Cells(c.Row + 1, c.Column).Value = Right(c.Value, Len(c.Value) - k)
Cells(c.Row, c.Column) = Left(c.Value, k - 1)
k = InStr(k + 1, c.Value, car)
Loop
Next c
End Sub
tu choisis ta plage à la souris, ton caractère délimiteur,
et la macro crée autant de lignes que nécessaire pour le choix.
les lignes qui sont tronquées ici doivent être remises sur la même.
Set col = Application.InputBox("Choisissez la colonne à convertir", "Colonne à convertir", , 100, 200, , , 8)
et
car = Application.InputBox("Choisissez le caractère délimiteur", "Caractère délimiteur", ";", 100, 100)
franchement c'est ce que je voulais alors bravo et merci ! j'ai juste une petite demande, je voudrais que le reste de la ligne soit copié aussi parce que là j'ai ma nouvelle ligne mais les champs des autres colonnes sont vides alors que j'aimerai qu'ils soient dupliqués .
Si tu as une idée ....
Merci encore
Si tu as une idée ....
Merci encore
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
bonjour
après la ligne : Cells(c.Row + 1, c.Column).EntireRow.Insert
tu rajoutes cette ligne :
Cells(c.Row, 1).Resize(2, 1).EntireRow.FillDown
tout est possible avec Excel, mais il faut y passer du temps,
et avoir des raisons pour cela.
après la ligne : Cells(c.Row + 1, c.Column).EntireRow.Insert
tu rajoutes cette ligne :
Cells(c.Row, 1).Resize(2, 1).EntireRow.FillDown
tout est possible avec Excel, mais il faut y passer du temps,
et avoir des raisons pour cela.
je voulais savoir un truc : j'ai essayé de refaire la même chose pour que les champs séparés par le point virgules se mettent sur la meme ligne à présent. Alors il y a la conversion du texte en colonne avec le point virgule comme séparateur qui marche mais le problème c'est que ca me remplace le contenu des colonnes adjacentes à droite. Y a t il une solution ?
Merci ;-)
Merci ;-)