Automatiser un remlissage de cellule

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

Bonjour,

Bonjour,

Est-il possible d’automatiser un remplissage d’une cellule en faisant une combinaison de touche, par exemple Alt + 1 ?

En PJ ce que je voudrais obtenir.

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

Merci de votre aide


Windows / Firefox 128.0

4 réponses

cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 

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 36 Date d'inscription   Statut Membre Dernière intervention  
 

Merci de me répondre.

Cela fonctionne ,merci pour l'aide je vais gagner du temps.

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

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 1859 Date d'inscription   Statut Membre Dernière intervention   231
 

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 1074 Date d'inscription   Statut Membre Dernière intervention   361
 

Hi,

Une fois le style créé, ceci suffirait :

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

Bon appétit

0