Cherche code VBA spécifique

Question

Bonjour,

Je souhaites trouver une macro pour mon classeur Excel pour faire la chose suivante dans un tableur qui comporte les colonnes de A à BF en commençant à la ligne 7 ( important ):

Si colonne de AK à AP non vide, insérer une ligne en dessous et copier de A à AD intégralement et copier dans la nouvelle ligne les colonne AK à AP a la place de AE à AJ. ( espérant avoir été clair )

Idem si AQ à AV non vide insérer une ligne en dessous et copier de A à AD intégralement et copier dans la nouvelle ligne les colonne AQ à AV a la place de AE à AJ. ( espérant avoir été clair )

Idem si AW à BB non vide insérer une ligne en dessous et copier de A à AD intégralement et copier dans la nouvelle ligne les colonne AW à BB a la place de AE à AJ. ( espérant avoir été clair )

Le but est que tout ce qui se trouve entre Ak et BB se retrouve seulement sur la plage AE à AJ

Windows / Chrome 124.0.0.0

mariam-j · Answer

Bonjour,

C'est clair, mais avec un fichier exemple ça le serait mieux-->:  https://www.cjoint.com/

Remmener le lien généré.

Les experts pourront alors travailler sur ton fichier, car ils vont êtres réticent à en créer un.

Cedric · Answer

Bonjour,

CI joint mon classeur

https://www.cjoint.com/c/NExjqjNOkPb

J'ai oubliais d'apporter une précision, toute les lignes qui vont se rajouter devront également se rajouter sur les autres onglet

Le Pingou · Answer

Bonjour,

Eh bien c'est pas clair du tout, il serait plus profitable de mettre manuellement 2 ou 3 exemples sur votre fichier..!

Cedric · Answer

Bonjour Le Pingou,

Ci joint https://www.cjoint.com/c/NExj6Aoxerb ou j'ai fait en manuel ce que je voudrais que la macro fasse ( j'ai seulement traiter de la ligne 7 à 27 pour exemple )

Cedric · Answer

Re Bonjour,,

Pour être plus clair, voici le fichier de départ :

https://www.cjoint.com/c/NExk0NFE3Hb

Et après la macro, celui ci devra être comme cela :

https://www.cjoint.com/c/NExk1tfkeVb

Merci de votre aide

Le Pingou · Answer

Bonjour,

Désolé mais le lien ne fonctionne pas...?

Cedric · Answer

Voici le premier lien

https://www.cjoint.com/c/NExk0NFE3Hb

Cedric · Answer

Et voici le second lien :

https://www.cjoint.com/c/NExk1tfkeVb

Cedric · Answer

Je viens de les tester en les copier sur une page web et ils fonctionnent

Le Pingou · Answer

Bonjour,

Précision , je faisais référence au lien du poste 4.

De plus vous dite ceci :

Si colonne de AK à AP non vide, insérer une ligne en dessous et copier de A à AD intégralement et copier dans la nouvelle ligne les colonne AK à AP a la place de AE à AJ. ( espérant avoir été clair )

De quelle feuille il s'agit.... introuvable dans votre exemple...!

Cedric · Answer

Oui j'ai supprimer le lien du post 4 , j'ai voulu faire plus simple donc il faut prendre les derniers liens publiés.

Tu prends "fichier de départ ", là on voit que les colonnes de AK à BB sont incrémenté. et si tu prends "fichier à obtenir au final" tu vois que ces valeurs ont été recopié dans un nouvelle ligne et déplacé en colonne de AE à AJ.

Ces modifications doivent être effective sur chaque onglet de mon classeur.

T'en remerciant par avance

Le Pingou · Answer

Bonjour,

Encore une fois à quelle feuille vous faite référence...!

Cedric · Answer

Je fais référence à la feuille " Extraction à copier ici " mais les modification apportées par la macro devront être effective sur les 4 onglets

Le Pingou · Answer

Bonjour,

A force de comparaison je déduis ceci :

Par exemple sur la feuille ‘Extraction à copier ici’ pour la ligne 9 les cellules AK9 :AP9 ou AQ9 :AV9 ou AW9 :BB9 ne sont pas vide donc on insère une ligne au-dessous en dupliquant les valeurs A9 :AD9 et les valeurs AK9 :AP9 ou AQ9 :AV9 ou AW9 :BB9  dans la plage AE10 :AJ10

Les feuilles ‘Préparation" BASE NEW " et  ‘A copier dans "BASE NEW" sont traitées de la même manière.

Est-ce correct ?

Cedric · Answer

Oui c'est bien ce que je recherche a faire via une macro

Le Pingou · Answer

Bonjour,

Ok , patience.

Cedric · Answer

Merci à toi

Le Pingou · Answer

Bonjour,

J’ai préparé le code pour la feuille ‘Extraction à copier ici ‘, je vous contrôler si c’est conforme à vos besoins. Déclencher la macro via [Clic moi.]

Je finaliserai selon votre retour.

Le fichier : https://www.cjoint.com/c/NExupWUJP1Z

Cedric · Answer

Bonjour le Pingou,

Tout d'abord je vous remercie de votre travail.

J'ai constaté que la Macro ne traite pas toute les lignes en une seule fois, je suis obligé de cliquer sur le bouton de la macro plusieurs fois afin que tout le tableau soit traiter. ( généralement j'ai environ 200 lignes ) . Je crois qu'il faudrait faire une "boucle" mais je ne maîtrise pas cela !

Ensuite il faudrait que l'onglet " extraction à copier ici " se recopie dans l'onglet " préparation Base New "( attention certaine colonne sont supprimer ), l'onglet " A copier dans BASE NEW " ( attention certaine colonne sont supprimer ) et dans l'onglet " Transition don't USE"

Ensuite est -il possible de modifier via la macro la colonne I ( Telephone ) et la colonne K ( FAX ) de la façon suivante :Si

Si cellule est vide, mettre 00 00 00 00 00

Si cellule contient un numéro sous forme 470989934 la mettre sous forme 04 70 98 99 34

Si cellule sous forme 04.70.98.99.34 la mettre sous forme 04 70 98 99 34

Si cellule sous forme 04 92 30 98 79POSTE 52882 la mettre sous forme 04 92 30 98 79

Si cellule sous forme 04 72 45 03 70 / 06 88 20 17 18 la mettre sous forme 04 72 45 03 70

Et si cellule sous forme 0472450370/0688201718 la mettre sous forme 04 72 45 03 70

Merci par avance.

Le Pingou · Answer

Bonjour,

Dans un premier temps j’ai créé une plage avec 64 lignes et j’ai lancer la macro et j’obtiens, sans cliquer sur le bouton de la macro plusieurs fois, une nouvelle plage avec 92 lignes.

Voir le fichier : https://www.cjoint.com/c/NEyi7MuG8XZ

Dans votre cas pouvez-vous expliquer exactement ce que vous avez réalisé… !

Cedric · Answer

Re

Lorsque mon tableau contient plusieurs lignes, la macro ne traite plus les données à partir de la ligne 102.

Ci dessous exemple d'un tableau avec + de 100 lignes :

https://www.cjoint.com/c/NEylnR7u1mb

De mon côté j'ai trouvé comment faire pour :

""""Ensuite il faudrait que l'onglet " extraction à copier ici " se recopie dans l'onglet " préparation Base New "( attention certaine colonne sont supprimer ), l'onglet " A copier dans BASE NEW " ( attention certaine colonne sont supprimer ) et dans l'onglet " Transition don't USE""""""

Cedric · Answer

Re,

Lorsque mon tableau contient un nombre de ligne > à 100 lignes, la macro traite les données jusqu'à la ligne 101

Ci dessous exemple avec un tableau avec un nombre de ligne > à 100 :

https://www.cjoint.com/c/NEylnR7u1mb

De mon côté j'ai un peu avancer et j'ai réussi à traiter :

"""""Ensuite il faudrait que l'onglet " extraction à copier ici " se recopie dans l'onglet " préparation Base New "( attention certaine colonne sont supprimer ), l'onglet " A copier dans BASE NEW " ( attention certaine colonne sont supprimer ) et dans l'onglet " Transition don't USE"""""

Le Pingou · Answer

Bonjour,

vous dites : De mon côté j'ai un peu avancer et j'ai réussi à traiter :

merci de me faire savoir ce que vous avez fait...!

La suite en dépend...!

Cedric · Answer

Re,

J'ai fais du ménage dans mon classeur Excel et conserver se que j'avais besoin.

J'ai pu mettre en macro pour le changement des numéros de téléphone et de fax au bon format.

J'ai pu faire la recopie de " Extraction à copier ici " sur " Préparation BASE NEW "  en prenant en compte seulement les colonnes dont j'ai besoin.

J'ai la macro "Mise en forme des cellules" qui fonctionne " ( je dois encore améliorer  car je n'arrive pas à faire afficher dans les colonnes " téléphone et Fax" les 14 premiers caractères en partant de gauche lorsque une cellule est renseigné sous la forme ex : "04 77 01 01 59 / 0609508146" afin de la mettre sous la forme "04 77 01 01 59" )

Ci joint mon fichier :

https://www.cjoint.com/c/NEyqgudCPk5

Pour l'utilisation, c'est simple, depuis un logiciel interne à ma société je récupère mon extraction que je colle dans " Extraction à copier ici " à partir de la cellule A7.

Puis, j'exécute la macro "Mise en forme des cellules"

Ensuite j'exécute la macro "Insertion des lignes" , votre travail auquel j'ai rajouté dedans la copie spécifique de " Extraction à copier ici " à " Préparation BASE NEW "

Ensuite  je pourrais sélectionner toute ma feuille " Préparation BASE NEW "  qui sera prête pour pouvoir l'insérer sur un portail web ( cela sert à faire les déclarations des interventions )

Le Pingou · Answer

Bonjour,

Je n’ai pas le temps pour lire/traiter votre message, cependant j’ai modifié mon code à la suite de petites erreurs que j’ai découvertes en testant par ‘Pas à pas’.

Je vous prie de bien contrôler que cette fois les valeurs sont correctement traités selon vos attentes.

La suite après votre retour de nouvelles

Le fichier : https://www.cjoint.com/c/NEyqUT0xYrZ

Bonne fin de semaine.

Cedric · Answer

Grand merci à vous Le Pingou, c'est parfait, maintenant il traite toute les lignes en une seule fois.

Merci

Le Pingou · Answer

Bonjour,

Oui c'est bien, mais à vous de dire si le résultat obtenu est correct…. Vous ne le dite pas ......!

J’ai regardé : Ensuite j'exécute la macro "Insertion des lignes" , votre travail auquel j'ai rajouté dedans la copie spécifique de " Extraction à copier ici " à " Préparation BASE NEW "

C'est un gros travail de votre part, je vais le modifier car ce n'est pas des mieux.

Concernant les numéros téléphone et fax je vais voir ce que vous avez réalisé et y apporté la correction nécessaire... mais pas avant demain soir.

Cedric · Answer

Bonjour Le Pingouin,

effectivement je n’ai pas encore contrôler ligne par ligne, je ferai cela au bureau avec 2 écran ce sera plus simple pour voir si tout se transpose bien avec les bonnes valeurs, je vous dirais d’ici lundi ou mardi.

en attendant tout ce décale comme je le souhaitais.

merci à vous

Le Pingou · Answer

Bonjour,

Cette version, améliorée, met en place les données de la feuille ‘Extraction à copier ici ‘ et ensuite nettoie la feuille ‘Préparation BASE NEW’ si nécessaire avant la copie des données de la feuille ‘Extraction à copier ici ‘,

Concernant les numéros téléphone et fax, j’ai besoin d’avoir les données d’origine (sans vos modifications par vba) afin de voir ce qu’il faut mettre en place.

Le fichier : https://www.cjoint.com/c/NEznGb3Z73Z

Le Pingou · Answer

Bonjour,

Concernant numéro téléphone/Fax : Si cellule :

est vide,                                                                     à 00 00 00 00 00

numérique  470989934                                          à  04 70 98 99 34

avec des points 04.70.98.99.34                           à  04 70 98 99 34

composée 04 92 30 98 79POSTE 52882            à 04 92 30 98 79 ( seul le numéro)

double 04 72 45 03 70 / 06 88 20 17 18             à 04 72 45 03 70 (seul le premier)

numérique double 0472450370/0688201718  à 04 72 45 03 70 (seul le premier)

avec ou 04 76 91 76 20 ou 23                              à 04 76 91 76 20(seul le premier)

Est-ce correct Oui/Non…. ?

Bon dimanche.

Cedric · Answer

Bonsoir le pingou,

OUI c'est bien ça pour les numéro de téléphone et fax.

Je testerais votre nouvelle version demain au boulot

Le Pingou · Answer

Bonjour,

J’ai créé un code selon mon poste 30.

Lorsque vous déclenchez la macro (sur clic moi) cela va mettre en place les numéros de téléphone et Fax et ensuite met en place les données de la feuille ‘Extraction à copier ici ‘ et ensuite nettoie la feuille ‘Préparation BASE NEW’ si nécessaire avant la copie des données de la feuille ‘Extraction à copier ici ‘.

Le fichier : https://www.cjoint.com/c/NEAu7TDdhFZ

Bon début de semaine.

Cedric · Answer

Merci beaucoup

Cherche code VBA spécifique

33 réponses

Votre réponse

Discussions similaires

Newsletters