Insérer un nom à la place chiffre

Résolu/Fermé
BABAR07 -  
 babar07 -
Bonjour à toutes les grosses têtes,
je voudrais faire un emploie du temps pas avec des couleurs mais si je clique sur le bouton intel, que dans la cellule sélectionnée s'incrive intel
merci d'avance car cela m'aiderais beaucoup

2 réponses

  1. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Bonsoir
    aller dans: clic droit sur nom de feuille / Visualiser le code et coller ça

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A2:Z100")) Is Nothing Then Exit Sub
    Target.Value = "Intel"
    End Sub


    Régler le "A2:Z100" sur le champ dont vous avez besoin.
    Intel s'inscrira dans la cellule sélectionnée

    crdlmnt

    0
    1. BABAR07
       
      merci beaucoup mais j'ai du mal m'exprimé
      exp: 3 boutons nommé pierre, paul, jacques, je sélectionne une cellule , je clique sur pierre et le nom pierre doit s'inscrire dans la cellule sélectionnée.
      en m'excusant
      0
  2. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Par exemple créer un bouton nommer Pierre et vous lui attribuez ce code :
    Sub pierre()
    ActiveCell.Value = "Pierre"
    End Sub
    Procéder de même pour les autres choix, sans oublier de donner la bonne valeur dans le code!

    0
    1. babar07
       
      Merci beaucoup, c'est exactement ce que je voulais
      0