remplissage automatique de cellules

[Débutant]

Bonjour
J'ai une feuille avec des boutons, et je souhaiterai que quand je selectionne 5 cellules avec la souris, si j'appuie sur un bouton, celui ci colorie la cellule en rouge et mette un 'G' dans chaque cellules.

Comment tapper ce code???
Merci

 

[Robert]

Bonjour Débutant, bonjour le forum,

Essaie ce bout de code. Attention, il ne tient pas compte du nombre de cellules sélectionnées.

Private Sub CommandButton1_Click() 'bouton 'Rouge'
Dim cel As Range 'déclare la variable cel

For Each cel In Selection 'boucle sur toutes les cellules de la sélection
cel.Interior.ColorIndex = 3 'colorie la cellule de rouge
cel.Value = 'G' 'écrit 'G' dans la cellule
Next cel 'prochaine cellule de la boucle

End Sub

Édition :

La boucle For Each... Next est inutile, l'exemple de JC de Lorient est plus correct. (Merci Hervé).

Message édité par: Robert, à: 08/06/2006 13:51

 

[JC de Lorient]

salut tout le moonde
cette macro liée a un bouton fera l'affaire
Sub test()
With Selection
.Interior.ColorIndex = 3
.Value = 'G'
End With
End Sub

 

[Débutant]

Merci JC de Lorient et Merci robert,
Mais en tappant le code de JC un MsgBox s'affiche avec Erreur 1004 erreur définie par l'application ou par l'objet.

 

[Débutant]

Je m'excuse, c'est moi qui ai fait une erreur cela fonctionne très bien !!!!
Merci beaucoup!!!!!!!