Microsoft 365 Formule recopiée selon nombre de lignes remplies

[Moreno076]

Bonsoir à tous.

Voilà ci-joint j'ai un fichier avec une macro Lancement.

Dejà, petit soucis dans le premier onglet. Je n'ai pas réussi à inclure dans la macro que je souhaite rajouter 7 colonnes D à J, je suis obligé de le faire manuellement avant de lancer la macro.

Une fois la macro finie je souhaiterais que la mise en forme de la ligne 4 (qui est masquée) se reproduise autant de fois qu'il y est de lignes. Pour le moment j'ai fait en sorte que les formules soient sur 1000 lignes.

Merci pour votre aide

 

[Moreno076]

Ca fonctionne bien au niveau des colonnes où il y a des formules par contre la mise en forme ne se met pas sur toutes.

 

[sylvanu]

C'est fait. Je n'avais pas compris la mise en forme sur toute la ligne.
N'oubliez pas qu'on ne connait pas votre fichier, et que les demandes doivent être très précises.
En espérant que ça aille.
Mais le code est si simple que vous pouvez aisément l'adapter.

 

[Moreno076]

J'en apprend tous les jours. Je vais regarder tranquillement demain le detail. En tout cas j'ai fait un test rapide et ca marche. Merci c est super.

 

[Moreno076]

Bonjour Sylvanu. J'ai bien regardé tes lignes de macro crées, et le fichier fonctionne bien. Je n'arrive pas toutefois à affecter les couleurs doublons juste aux cellules remplies et non pas sur toutes la colonne, j'ai essayé avec le modele de ta ligne avec formules. Une dernière petite chose dans le premier onglet l insertion des colonnes D à J avec une macro ne fonctionne pas je suis obligé de le faire manuellement avant de lancer la macro. Merci.

 

[sylvanu]

Bonjour Moreno,
1- La macro Formules ne traite que les lignes en B non vides.
2- Je ne comprends pas votre macro CouleurDoublons, pourquoi faire appel à un dictionnaire ?
Ensuite que veux dire toute la colonne ? de A1 à A1048576 ?
3- Au post #11 il y a une macro InsertionColonnes que je ne retrouve pas dans votre code, donc aucune colonne n'est insérée.
4- Je ne comprend pas ce que fait votre macro Colonnes. Mettez un peu de commentaires pour expliquer.

 

[Moreno076]

Pour couleurdoublons , ca permet de mettre en couleurs les cellules avec un contenu identique mais sans qu il y est de couleurs qui se suivent. Par exemple un produit A sur plusieurs lignes sera rouge alors qu un produit B sera vert. Je veux juste que cela se fasse sur les cellules remplies au meme titre que les formules. Concernant l insertion elle ne fonctionnait pas voila ce que ca faisait

La macro colonnes deplace certaines colonnes dans le troisieme onglet. Pour l insertion des colonnes c est dans le premier onglet

 

[sylvanu]

J'ai intégré la macro du post #11 dans Lancement. Il insere bien les 7 colonnes comme demandé.
Je ne sais pas où vous avez intégré la macro, mais pas au bon endroit.

 

[sylvanu]

Pour l'autre point CouleurDoublons, vous allez jusqu'à 1000 puisque vous lui avez demandé.

 Remplacez :
    Set Rng = Range("C5:C1000")

Par
    Taille = Range("C" & Rows.Count).End(xlUp).Row
    Set Rng = Range("C5:C" & Taille)

Il commencera en ligne 5 et s'arretera sur la dernière ligne. ( Testé avec succès )

 

[Moreno076]

Pour les couleurs super par contre pour l insertion des colonnes non ca ne fonctionne pas ca me met ca. Il faut a tout que dans le premier onglet ca se fasse avant La copie.



1111

 

[sylvanu]

Je ne livre que des fichiers testés. Sinon je donne les limites.

En utilisant le fichier du post #22 :

 

[Moreno076]

Je pense savoir pourquoi dans la version #22 j avais fait deja les macros defusionne et suprimerleslignes du coup je pensais qu il fallait simplement rajouter insertion colonnes avant cela mais non ca ne fonctionne pas. Je seche

 

[sylvanu]

Re,
Vous ne m'aviez pas dit que les lignes à fusionner changeraient de place. C'est pour ça que ça coince.
Un essai en PJ.
( je me suis permis de faire "un peu le ménage" dans les modules, c'est plus lisible surtout quand on arrive de l'exterieur. )

 

[Moreno076]

J'ai du modifier quelques petites choses mais ca y est tout fonctionne à merveille. Merci bien pour votre précieuse aide.