Automatiser un remlissage de cellule

matrice1 Messages postés 39 Statut Membre -  
cousinhub29 Messages postés 1130 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

https://www.swisstransfer.com/d/69d164b6-504f-4db6-858a-437b7a134414


Windows / Firefox 128.0

4 réponses

cousinhub29 Messages postés 1130 Date d'inscription   Statut Membre Dernière intervention   364
 

Bonjour,

En créant un style personnalisé?

Tu sélectionnes ta cellule C8, puis ruban "Accueil", tu cliques sur "Styles de cellules"

Tu cliques sur "Nouveau style de cellule", lui donnes un nom (Ex: "Choix")

Et ce style sera directement disponible dans ce menu. (mais uniquement dans ce fichier...)

 Bonne journée


0
matrice1 Messages postés 39 Statut Membre
 

Merci de me répondre.

0
cousinhub29 Messages postés 1130 Date d'inscription   Statut Membre Dernière intervention   364
 

Re-,

Oui, 2 clics, une fois le style créé.

Tu sélectionnes plusieurs cellules à la fois (via la touche Ctrl, si les cellules ne sont pas contigües,  ou Shift, le cas inverse).

sinon, via combinaison de touches, il te faut une macro.

Tu connais un peu l'environnement VBA?


0
danielc0 Messages postés 2078 Date d'inscription   Statut Membre Dernière intervention   255
 

Bonjour,

C'est possible avec une macro :

Fais un clic droit droit sur l'onglet de la feuille, clique sur "visualiser le code". La fenêtre de l'éditeur VB s'ouvre. Dans la partie droite, colle :

Sub Format2()
    With Selection.Borders(xlDiagonalDown)
      .LineStyle = xlContinuous
      .Weight = xlThin
    End With
    With Selection.Borders(xlDiagonalUp)
      .LineStyle = xlContinuous
      .Weight = xlThin
    End With
End Sub

Ferme l'éditeur VB. Dans Excel, clique sur l'onglet Affichage, Macros, Afficher les macros. Clique sur "Format2" et sur Options. Choisis le raccourci clavier.

Enregistre le classeur avec le type "Classeur prenant en charge les macros (*.xlsm)".

La macro est valable sur une ou plusieurs cellules.

Daniel


0
cousinhub29 Messages postés 1130 Date d'inscription   Statut Membre Dernière intervention   364
 

Hi,

Une fois le style créé, ceci suffirait :

Sub Croix()
    Selection.Style = "Choix"
End Sub

Bon appétit

0