[VBA] Insertion de ligne selon critère et remplissage automatique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
U
Urb
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 6 novembre 2018
Version d'Excel : 2016

Message par Urb » 19 novembre 2018, 20:20

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.png
Screen01.png (4.6 Kio) Vu 422 fois
Résultat voulu
Screen02.png
Screen02.png (8.83 Kio) Vu 422 fois
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 ! :mrgreen:
Classeur20181119.xlsx
(11.21 Kio) Téléchargé 11 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'050
Appréciations reçues : 387
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 20 novembre 2018, 07:59

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?
Bye !
Classeur20181119 v1.xlsm
(24.42 Kio) Téléchargé 47 fois
1 membre du forum aime ce message.
U
Urb
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 6 novembre 2018
Version d'Excel : 2016

Message par Urb » 20 novembre 2018, 09:09

Bonjour,

Merci pour votre aide !

Cela me convient parfaitement.

Pouvez vous m'expliquer le code svp ?
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'050
Appréciations reçues : 387
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 20 novembre 2018, 09:50

Le même avec macro commentée;
Bye !
Classeur20181119 v1b.xlsm
(25.67 Kio) Téléchargé 39 fois
1 membre du forum aime ce message.
U
Urb
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 6 novembre 2018
Version d'Excel : 2016

Message par Urb » 20 novembre 2018, 10:10

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
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'050
Appréciations reçues : 387
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 20 novembre 2018, 10:46

Tu devrais joindre un fichier représentatif de ton vrai fichier...
Bye !
U
Urb
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 6 novembre 2018
Version d'Excel : 2016

Message par Urb » 20 novembre 2018, 10:58

En PJ un fichier plus représentatif,

Merci encore pour votre aide !
VBA Developper.xlsm
(67.35 Kio) Téléchargé 19 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'050
Appréciations reçues : 387
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 20 novembre 2018, 11:11

Mais... ce nouveau fichier n'a rien à voir avec le précédent: où sont les point-virgules en colonne B ?
Bye !
U
Urb
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 6 novembre 2018
Version d'Excel : 2016

Message par Urb » 20 novembre 2018, 11:15

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
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'050
Appréciations reçues : 387
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 20 novembre 2018, 13:08

Nouvelle version.
Bye !
VBA Developper v2.xlsm
(68.03 Kio) Téléchargé 48 fois
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message