[VBA] Insertion de ligne selon critère et remplissage automatique

Bonsoir,

Je suis en manque d'idée par rapport à une problématique professionnelle.

Comme le titre du sujet l'indique, je veux insérer et remplir automatiquement des lignes.

Le critère pour insérer est d'avoir plusieurs info séparer par ";" dans la même cellulle. Le remplissage, quant à lui, doit correspondre au contenu de sa première ligne (celle où il y avait les ";"

Avant

screen01

Résultat voulu

screen02

Les screens ne sont que des exemples, la réalité comporte beaucoup plus de ligne (d'où mon besoin de macro)

Convertir m'a permis de les séparer mais je reste bloqué pour la suite

Aidez-moi svp !

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Merci pour votre aide !

Cela me convient parfaitement.

Pouvez vous m'expliquer le code svp ?

Le même avec macro commentée;

Bye !

Merci pour les explications,

Petit soucis :

La ligne : "vb = Split(tablo(i, 2), ";")(ln)" n'arrive pas à fonctionner si la cellule contient des lettes

Dim VB as string prend le numéro de cellule

Edit : Si je met les cellules en nombre cela fonctionne

Cependant pour le remplissage des dates il y a une inversion : 07/03/2018 05:15 pour 03/07/2018 05:15

Tu devrais joindre un fichier représentatif de ton vrai fichier...

Bye !

En PJ un fichier plus représentatif,

Merci encore pour votre aide !

36vba-developper.xlsm (67.35 Ko)

Mais... ce nouveau fichier n'a rien à voir avec le précédent: où sont les point-virgules en colonne B ?

Bye !

Les points virgules étaient des ~

C'est la colonne C où il faut faire les manips

Normalement j'ai modifié le code et cela à l'air de fonctionner.

Mais, à chaque lancement de macro les mois et jours des dates s'inversent,

De plus le tableau ne s’entend pas automatiquement

Nouvelle version.

Bye !

Merci pour votre aide,

Tout fonctionne correctement

Rechercher des sujets similaires à "vba insertion ligne critere remplissage automatique"