Problème VBA sur excel (colonne)
kasersbooby
Messages postés
66
Statut
Membre
-
Pimp92a Messages postés 442 Statut Membre -
Pimp92a Messages postés 442 Statut Membre -
Bonjour,
je cherche a :
quand je selectionne une colonne avec dans celle ci des noms, que si le fond de la cellule est vert (#4) alors je met la valeur 1 sur la meme ligne mais dans la colonne 7 (c'est a dire la colonne G).
j'ai essayé avec ce code si dessous mais helas sans succès :
____________________________________________________________
Sub pourcentage()
Dim cellule As Range
For Each cellule In Selection
If cellule.Interior.ColorIndex = 4 Then cellule(cellule.Row, 7).Value = 1
Next
End Sub
____________________________________________________________
Si vous pouviez m'aider se serait fort sympatique !!
D'avance merci à tous les membres de CCM :D
je cherche a :
quand je selectionne une colonne avec dans celle ci des noms, que si le fond de la cellule est vert (#4) alors je met la valeur 1 sur la meme ligne mais dans la colonne 7 (c'est a dire la colonne G).
j'ai essayé avec ce code si dessous mais helas sans succès :
____________________________________________________________
Sub pourcentage()
Dim cellule As Range
For Each cellule In Selection
If cellule.Interior.ColorIndex = 4 Then cellule(cellule.Row, 7).Value = 1
Next
End Sub
____________________________________________________________
Si vous pouviez m'aider se serait fort sympatique !!
D'avance merci à tous les membres de CCM :D
A voir également:
- Problème VBA sur excel (colonne)
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Liste déroulante excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule somme excel colonne - Guide
2 réponses
Sub pourcentage()
Dim cellule As Range
For Each cellule In Selection
If cellule.Interior.ColorIndex = 4 Then cells(cellule.Row, 7).Value = 1
Next
End Sub
voila il suffisait juste de mettre cells
et surtout de mettre le code dans la bonne feuille VBA du fait que je spécifié un colonne précise....mdr
encore merci
jme suis débrouillé tout seul mais bon, CCM doit avoir un effet positif sur la recherche...
Dim cellule As Range
For Each cellule In Selection
If cellule.Interior.ColorIndex = 4 Then cells(cellule.Row, 7).Value = 1
Next
End Sub
voila il suffisait juste de mettre cells
et surtout de mettre le code dans la bonne feuille VBA du fait que je spécifié un colonne précise....mdr
encore merci
jme suis débrouillé tout seul mais bon, CCM doit avoir un effet positif sur la recherche...