remplissage automatique de cellules

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Juin 2006

• #2

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

Cliquez pour agrandir...

É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

 

Vote positif 0 Vote négatif

JC de Lorient

XLDnaute Impliqué

• 8 Juin 2006

• #3

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

 

Vote positif 0 Vote négatif

D

Débutant

Guest

• 8 Juin 2006

• #4

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.

 

Vote positif 0 Vote négatif

D

Débutant

Guest

• 8 Juin 2006

• #5

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

 

Vote positif 0 Vote négatif