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)

toujours zen

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

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.


toujours zen

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 ;-)

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...


toujours zen

Alors là merci beaucoup ! Mais comment faites vous ??
Merci encore ca m'aide vraiment d'autant que tu es le seul à me répondre.
C'est rassurant de se dire que quand on est en stage en galère ya des gens qui peuvent toujours nous aider !

Merci ;-)

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...

toujours zen