délimiter une zone

[paul87]

Bonsoir à tous,
Bonsoir le Forum.
Dans une feuille j'ai besoin de déterminer une plage dans laquelle 2 actions doivent se réaliser (colorer en rouge et inscrire A dans la cellule sélectionnée)
mais ces actions ne doivent pas être possibles hors de la sélection..
Pourquoi ça ne marche pas avec ça:

Private Sub CommandButton1_Click()
With Range("C17:AG300")
    Selection.Interior.ColorIndex = 3
    Selection.FormulaR1C1 = "A"
End With
End Sub

merci pour vos conseils.
Paul

 

[Victor21]

Re : délimiter une zone

Bonsoir.

With Range("C17:AG300")
.Interior.ColorIndex = 3
.FormulaR1C1 = "A"
End With

devrait suffire

 

[Guest]

Re : délimiter une zone

Bonsoir,

S'il ne faut travailler que sur une sélection contenue dans la plage donnée:

Private Sub CommandButton1_Click()
'S'il y a au moins une cellule de la selection faisant partie de la plage
    If Not Intersect(Selection, Range("C17:AG300")) Is Nothing Then
        'ne modifier que la (les) cellule(s) contenue(s) dans la plage
        With Intersect(Selection, Range("C17:AG300"))
            .Interior.ColorIndex = 3
            .Value = "A"
        End With
    End If
End Sub

hello victor🙂

[Edit] erreur End If corrigée merci JC🙂🙂🙂

A+

 

[JCGL]

Re : délimiter une zone

Bonjour à tous,
Re Hasco,
Salut Victor,

Puis-je me permettre mon très cher Ges (il me semble que tu With au lieu de If) :

Option Explicit

Private Sub CommandButton1_Click()
'S'il y a au moins une cellule de la selection faisant partie de la plage
If Not Intersect(Selection, Range("C17:AG300")) Is Nothing Then
'ne modifier que la (les) cellule(s) contenue(s) dans la plage
With Intersect(Selection, Range("C17:AG300"))
.Interior.ColorIndex = 3
.Value = "A"
End With
End If
End Sub

A++ les amis
A + à tous

 

[paul87]

Re : délimiter une zone

Bonjour à Tous,
Merci à vous 3 pour vos réponses.
c'est super, ça fonctionne.
Bonne journée
Paul