"Workbook_SheetSelectionChange" avec cells.activate

[Mc Sevigny]

Bonjour à tous et à toute,
je voudrais savoir si je me trompe ou si c'est bien vrai.
est-ce qu'on peut mettre des fonctions "activate" ou "select" dans VBA dans le Workbook
"Workbook_SheetSelectionChange"
par exemple:

if cells(2,2).activate=true then
userform1.show
end if

car moi, tout ce que ça fait , c'est que peut importe où était la cellule sélectionée, la cellule (2,2) devient active.

Passer une belle journée!😉

 

[Modeste]

Re : "Workbook_SheetSelectionChange" avec cells.activate

Bonsoir Mc Sevigny,

Activate, comme son nom l'indique, active une cellule: toi tu veux l'utiliser pour tester si une cellule est active?

Essaie peut-être avec

If Target.Address = "$B$2" then UserForm1.Show

... si j'ai bien compris ce que tu veux faire 😕

 

[MichD]

Re : "Workbook_SheetSelectionChange" avec cells.activate

Bonjour,

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

'L'objet Sh représente une variable représentant une feuille de calcul
'Target représente une cellule ou plage de cellules de la feuille active.

'Si tu veux qu'une macro s'exécute quand tu sélectionnes une cellule
'particulière d'une feuille particulière

'A ) d'abord tu dois savoir quelle feuille est active
'    pour ce faire, utilise un petit test

'Si la feuille affichée à l'écran est le nom de l'onglet Feuil1
If Sh.Name = "Feuil1" Then
    'Si la cellule active est la cellule B2
    If Target.Address = Range("B2").Address Then
       UserForm1.Show
       
    End If
End If

'Le formulaire va s'afficher seulement et seulement si
'la feuille "Feuil1" est la feuille active et seulement
'si tu cliques sur la cellule B2

End Sub

L'événement suivant fonctionne de façon similaire au précédent
mais la cellule B2 doit passer en mode édition soit en saisissant
une nouvelle donnée, soit en double-cliquant dessus. Lors de la
validation, la macro événementielle se déclenche

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'le code...
End Sub

 

[Mc Sevigny]

Re : "Workbook_SheetSelectionChange" avec cells.activate

bonsoir,
oui c'est bien ce que je veux faire..merci je vais essayer ça.

 

[Mc Sevigny]

Re : "Workbook_SheetSelectionChange" avec cells.activate

Bonsoir modeste et MichD,
merci beaucoup,
c'est exactement ce que je cherchais! ca fonctionne super bien!
merci

 

[Mc Sevigny]

Re : "Workbook_SheetSelectionChange" avec cells.activate

Rebonjour MichD,
je veux faire apparaitre un calendrier lorsque sélectionne dans une plage, pas juste une cellule, pour un autre fichier, mais le code que j'ai mis n,a pas l'air de fonctionner?
a tu une idée pourquoi?

merci en avance!😉

 

[Pierrot93]

Re : "Workbook_SheetSelectionChange" avec cells.activate

Bonjour,

pas tout regardé, mais si tu veux tester l'adresse de la cellule selectionnée, remplace :

If Sh.Name = "suivi client" Then
     'Si la cellule active est la cellule B2
    If Target.Address = Range("D6:D45").Address Then
        pcalendrier
    End If
End If

par cela :

If Sh.Name = "suivi client" Then
     'Si la cellule active est la cellule B2
    If Target.Address = "$B$2" Then
        pcalendrier
    End If
End If

bonne journée
@+

 

[MichD]

Re : "Workbook_SheetSelectionChange" avec cells.activate

Bonjour,

Voir le fichier joint. Le formulaire apparaît lorsque tu sélectionnes une cellule dans une colonne "Date"

 

[Mc Sevigny]

Re : "Workbook_SheetSelectionChange" avec cells.activate

Bonjour,
merci! ca fonctionne merci beaucoup!

bonne journée