Aide VBA pour débutant

[Jean Pierre]

Bonjour à tous, je souhaite faire mes premiers pas dans VBA pour Excel, je voudrais mettre en place une macro qui me permette de remplir des cellules selectionnées avec une lettre par clic sur un bouton dans la barre d'outil: Chaque boutons correspondrait à une lettre précise. Pour corser le tout, il faudrait que la case se remplisse uniquement si elle est vide !

Est il possible que quelquun m'aide sur cette question? D'avance merci.

 

[Riddick]

Bonjour Jean Pierre ,
Le forum et ses bons Participants.... B)

Jete un oeil a ce fichier
Je ne sais pas tres bien manipuler les boutons dans la barre d'outils mais regarde ce que j'ai fait ca te donnera peut etre une idée

Riddick
Un petit Padawan [file name=JeanPierre.zip size=11957]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/JeanPierre.zip[/file]

 

[jean pierre]

un grand merci. c'est exactement ce que je cherchais

 

[Robert]

Bonjour le fil, bonjour le forum,


Dans la série 'de quoi j'mamelle', je ne resiste pas à cette intrusion ironico-cynique. Jean-Pierre, j'ai mille fois mieux que la macro de Riddick !!! Ça s'apelle un clavier...

 

[jean pierre]

Au début oui mais je progresse!

Sais tu comment on peux tester qu'une selection de cellules est bien dans une plage autorisée ?

 

[Robert]

Bonjour Jean-Pierre, le fil, le forum,

En pièce jointe un petit exemple qui devrait t'aider. [file name=jeanpierre.zip size=13828]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/jeanpierre.zip[/file]

 

[Hervé]

Bonjour tout le monde
🙂

Ce type de code vérifie si ta cellule active se trouve dans la plage a1:b5

C'est une procédure évenementielle, cad qu'elle est couplé à une feuille de travail, et qu'elle agit suivant les actions réalisées sur cette feuille.

Dans ce cas précis, cette macro va s'exécuter lorsque tu sélectionnes une cellule (selectionchange)

Tu dois placer ce type de macro, dans un module de feuille, et non dans un module standard.

Pour accéder à un module de feuille, clique droit sur le nom de l'onglet désiré, puis visualisée le code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'déclaration des variables
Dim plage As Range
'définition de la plage
Set plage = Range('a1:b5') '<==== a adapter
'si la cellule active est dans la plage, alors
If Not Intersect(Target, plage) Is Nothing Then
'on envoi un message
MsgBox 'Vous etes sur la plage.'
'fin de condition
End If
End Sub

 

[Hervé]

re

Oups robert, désolé, pas vu venir .

Salut

 

[Jean Pierre]

Merci à vous. C'est efficace