Microsoft 365 Remplir des cellules automatiquement

F

Fanny53

XLDnaute Nouveau

• 31 Décembre 2025

• #31

Merci Phil69970,

Rien ne presse Profitons des fêtes !

Très bien le remplissage des flèches sur la V6.

Au niveau de la Police laissez le Gras uniquement pour l’artiste.

Face A/ Face B pas de Gras.

Pour ne pas que cela déborde des cellules, j’ai sélectionné les colonnes C/D/E je suis allé ensuite dans Format de cellule et j’ai cocher la case Ajuster



Est-ce que Excel ne peut pas le faire automatiquement ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Décembre 2025

• #32

Bonjour Fanny53, le forum,

On peut affecter cette macro à un bouton ou la faire exécuter par une autre macro :

VB:

Sub Ajuster()
Dim a As Range
For Each a In Sheets("Etiquettes").Range("C:E,G:I").Areas
    a.ShrinkToFit = True 'commande Ajuster
Next
End Sub

A+

 

Pièces jointes

• disques-45-tours-Test V6.xlsm

  578.4 KB · Affichages: 5

Vote positif 1 Vote négatif

Phil69970

XLDnaute Barbatruc

• 31 Décembre 2025

• #33

Bonjour à tous

Je te propose ce fichier avec le choix petites ou grandes flèches

Merci de ton retour
Bonnes fêtes

 

Pièces jointes

• disques-45-tours-Test V7.xlsm

  618.2 KB · Affichages: 6

Vote positif 1 Vote négatif

F

Fanny53

XLDnaute Nouveau

• 31 Décembre 2025

• #34

Bonjour Phil69970, félicitation, vous n’avez pas perdu de temps ! Il faut partir uniquement sur des grandes flèches.

Quand on tape étiquette Juke box dans google image, c’est principalement des grandes flèches que l’on retrouve partout.

Par contre avec la flèche le problème d’ajustement du teste qu’avais solutionner Job75 ne fonctionne pas correctement sur la cellule Titre, Le titre est masqué par la pointe des flèches.

Il y a-t-il une possibilité d’’ajuster le texte en entre les pointes des flèches ?

Autre problème en colonne L2 pouvez-vous supprimer l’occurrence Disco qui ne vas pas me servir, et remettre dans le classeur la feuille étiquettes DISCO crée par sylvanu (disques-45-tours-Test) .

Disco est un lecteur de disque (Mon cadeau de Noel)

Cet appareil de 1960, contient 40 disques 45 tours avec des petites touche de sélections, ce qu’avait fait sylvanu me convient très bien. Pas besoin de plus ; un semblant d’étiquette numéroté que j’imprime en mode paysage pour savoir quel disque correspond à la touche sélectionnée



Sur ce ce je vous souhaites a tous et toutes un bon reveillion et encore merci a tous Bises.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Décembre 2025

• #35

Fanny53 à dit:

Par contre avec la flèche le problème d’ajustement du teste qu’avais solutionner Job75 ne fonctionne pas correctement sur la cellule Titre, Le titre est masqué par la pointe des flèches.

Cliquez pour agrandir...

On peut ajouter des espaces à gauche et à droite des textes en D3 D7 H3, la macro Filtrer_V1 est ainsi complétée :

VB:

Ws1.Range("C:E,G:I").ShrinkToFit = True 'ajuster
For Each c In Ws1.Range("D3,D7,H3")
    c = " " & Trim(c) & " " 'espaces à gauche et à droite
Next

Cliquez sur le bouton Etiquettes.

 

Pièces jointes

• disques-45-tours-Test V7.xlsm

  576.1 KB · Affichages: 5

Vote positif 1 Vote négatif

F

Fanny53

XLDnaute Nouveau

• 1 Janvier 2026

• #36

Bonjour à tous,

Je tenais à vous remercier sincèrement pour votre aide et votre disponibilité concernant mon fichier Excel. J’en profite également pour vous souhaiter à toutes et à tous mes meilleurs vœux : santé, réussite et plein de beaux projets pour l’année à venir.

Encore merci et à bientôt sur le forum !

Fanny

 

Vote positif 0 Vote négatif

F

Fanny53

XLDnaute Nouveau

• 25 Janvier 2026

• #37

Bonjour à toutes et à tous, je reviens vers vous concernant mon fichier disques numérique.xlms , que sylvanu, avait modifier à ma demande.

Sur la page Données j’ai supprimé la colonne FACE B. Je saisie tous les titres dans la colonne Face A.

Mais j’ai un souci sur la page étiquettes.

Je souhaiterais lorsque que si je sélectionne le même artiste avec 2 titres différents sur la page Données ça aille remplir correctement les 3 champs des étiquettes.

Exemple je sélectionne dans données les titres Jean Wetzel Touchez pas au Grisbi et Jean Wetzel Dans la vie. Je souhaiterais que l’étiquette apparaisse comme cela


Mais ça me rempli 2 étiquettes



Je pense que les formules des cellules ne sont plus adaptées.

=SIERREUR(INDEX(Tableau2[FACE A];EQUIV(A3;Tableau2[ROCK];0));"")

=SIERREUR(INDEX(Tableau2[ARTISTE];EQUIV(A3;Tableau2[ROCK];0));"")

=SIERREUR(INDEX(Tableau2[FACE B];EQUIV(A3;Tableau2[ROCK];0));"")

Pouvez-vous me faire une modification, ou me dire quelle formule appliquée.



Merci d’avance

 

Pièces jointes

• Test Disques-Numerique.xlsm

  319 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Janvier 2026

• #38

Bonjour Fanny,

Fanny53 à dit:

je sélectionne dans données les titres Jean Wetzel Touchez pas au Grisbi et Jean Wetzel Dans la vie.

Cliquez pour agrandir...

Comment sélectionnez vous ces titres ?

 

Vote positif 0 Vote négatif

F

Fanny53

XLDnaute Nouveau

• 26 Janvier 2026

• #39

Je me suis mal exprimée,

Pour sélectionner j’écris ROCK a la place de 0 dans la colonne D.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Janvier 2026

• #40

Re,

Fanny53 à dit:

Je pense que les formules des cellules ne sont plus adaptées.

Cliquez pour agrandir...

En fait par formule, je ne vois pas comment faire, il faudrait changer d'étiquette si l'auteur est différent mais garder la même si c'est le même auteur. Et avec des index je ne sais pas faire.
En espérant qu'un plus futé que moi passera par là.
Sorry.

 

Vote positif 0 Vote négatif

F

Fanny53

XLDnaute Nouveau

• 4 Février 2026

• #41

Bonjour et Merci Sylvanu d'avoir jetez un oeuil

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Février 2026

• #42

Bonjour Fanny53, le forum,

Un oeuil ???

1) Dans la feuille "Données" j'ai modifié la formule en E6 :

Code:

=SI([@JUKE]="ROCK";MAX($E$1:$E5)+(B5<>B6);"")

La feuille doit être triée sur 2 colonnes, colonne A puis colonne B.

2) Dand la feuille "Etiquettes ROCK", formule en C4 :

Code:

=REPT(SIERREUR(INDEX(Tableau2[FACE A];EQUIV($A3;Tableau2[ROCK];0)+1);"");NB.SI(Tableau2[ROCK];$A3)>1)

et en I4 :

Code:

=REPT(SIERREUR(INDEX(Tableau2[FACE A];EQUIV($A3+1;Tableau2[ROCK];0)+1);"");NB.SI(Tableau2[ROCK];$A3+1)>1)

La ligne 4 est à copier en ligne 8, 12, 16 etc...

A+

 

Pièces jointes

• Test Disques-Numerique.xlsm

  333.3 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Février 2026

• #43

Pour la feuille "Données" il paraît plus logique de trier sur les 2 colonnes B (ARTISTE) et D (JUKE) celle-ci en ordre décroissant.

 

Pièces jointes

• Test Disques-Numerique.xlsm

  336.1 KB · Affichages: 1

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Février 2026

• #44

Bonjour Fanny53, le forum,

Dans la feuille "Etiquettes ROCK", pour permettre l'ajustement des textes :

- formule en A3 =SIERREUR(DECALER(A3;-4; )+2;1)

- formule en D3 =SIERREUR(" "&INDEX(Tableau2[ARTISTE];EQUIV($A3;Tableau2[ROCK];0))&" ";"")

- formule en J3 =SIERREUR(" "&INDEX(Tableau2[ARTISTE];EQUIV($A3+1;Tableau2[ROCK];0))&" ";"")

En D3 et J3 les textes entre les flèches sont encadrés par 3 espaces à gauche et 3 espaces à droite.

Ensuite exécutez cette macro dans le code de la feuille :

VB:

Sub Ajuster()
Dim s As Shape, c As Range
[C2:G2].ShrinkToFit = True: [I2:M2].ShrinkToFit = True 'commande Ajuster
[D3:F3].ShrinkToFit = True: [J3:L3].ShrinkToFit = True 'commande Ajuster
[C4:G4].ShrinkToFit = True: [I4:M4].ShrinkToFit = True 'commande Ajuster
For Each s In Me.Shapes
    If s.TopLeftCell.Row > 3 Then s.Delete 'RAZ
Next s
For Each c In Range("A7:A" & Rows.Count).SpecialCells(xlCellTypeFormulas, 1)
    Rows("1:4").Copy c(-1) 'copier-coller
Next c
End Sub

A+

 

Pièces jointes

• Test Disques-Numerique.xlsm

  323.2 KB · Affichages: 0

Vote positif 0 Vote négatif

F

Fanny53

XLDnaute Nouveau

• 5 Février 2026

• #45

Bonjour Job 75, je viens de téléchargée le dernier fichier, visiblement il y a toujours un souci de remplissage de la page étiquettes.

Pour exemple, si je marque ROCK en colonne D de la page DONNÉES, Sur Gene Vincent (ligne 17) et Gene Vincent (ligne 24) j’obtiens 2 étiquettes différente, j’ai l’impression que le problème a dû la colonne ANNÉE. Ligne 17 (Année 1956) Ligne 24(Année 1957) Si les 2 Artistes sont dans la même année pas de problème l’étiquette se remplie bien.


Oups! je n'avais pu vu ce post !!!
'''Pour la feuille "Données" il paraît plus logique de trier sur les 2 colonnes B (ARTISTE) et D (JUKE) celle-ci en ordre décroissant'''''

 

Pièces jointes

• Test Disques-Numerique(3).xlsm

  317.4 KB · Affichages: 3

Dernière édition: 5 Février 2026

Vote positif 0 Vote négatif