Action en fonction de l'emplacement dans la feuille Résolu/Fermé

Question

Bonjour,

Dans une feuille je veux lors d'un événement "changement de sélection" colorier la cellule activée et mette son contenu dans une autre cellule (A1) et seulement si la cellule est comprise dans la plage MaPlage1 (A4:C36) et effectuer un autre traitement si elle est dans la plage MaPlage2 (E4:G36)

En algorithme on pourrait écrire :

Si la cellule sélectionnée est dans la plage MaPlage1

Faire : colorier la cellule sélectionnée et écrire son contenu dans A1

Si la cellule sélectionnée est dans la plage MaPlage2

Faire "autre traitement"

Facile à écrire mais en VBA je n'y arrive pas ; j'arrive sans problème à effectuer des actions lors des changements dans ma feuille mais pas ceux-là !!!!

Merci d'avance

0
Windows / Firefox 107.0

yg_be · Answer

bonjour,

Sur quoi butes-tu? Qu'as-tu essayé? Un exemple:

Private Sub Worksheet_SelectionChange(ByVal CelSel As Range) 
If not Application.Intersect(CelSel, Range("MaPlage1")) Is Nothing Then
    ' ...
elseif not Application.Intersect(CelSel, Range("MaPlage2")) Is Nothing Then
    ' ...
end if
End Sub

Farceur01 · Answer

Merci j'ai réglé mon problème : je découvre VBA et je ne connaissais pas la méthode Intersect,

C'est grâce à l'aide de personnes comme toi sur les forums que progresse doucement

Merci

Farceur01 · Answer

J'ai maintenant un autre problème : lorsque je click dans la zone tout se passe bien, les couleurs changent les traitements complémentaires fonctionnent, mais si par erreur au lieu de sélectionner une cellule j'en sélectionne plusieurs j'aimerais faire un traitement d'erreur en créant une boîte de dialogue : pour l'instant mon programme attend une seule valeur et part en débogage si je sélectionne plusieurs cellules

Action en fonction de l'emplacement dans la feuille

3 réponses

Discussions similaires