Microsoft 365 Retour à Feuil1

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir à toutes et à tous,

Je n'arrive pas à coder cette action :

Je suis sur la Feuil1 et la hauteur de la ligne active est 150
Quand clic sur l'onglet Feuil2, je voudrais que si la ligne active de la Feuille1 est 150, que la Feuil1 soit sélectionnée.

J'ai tenté dans le code de la Feuil2 :
VB:
Private Sub Worksheet_Activate()
If Worksheets("Feuil1").Cells(ActiveCell).RowHeight = 15 Then
MsgBox ("Vous n'avez pas sélectionné de ligne feuille Suivis Appels")
Sheets("Feuil1").Select
Exit Sub
Else
[a1].Select
End If
End Sub
Et bien d'autres ...
Mais ça ne fonctionne pas :mad:
Pourriez-vous m'aider ?
Avec mes remerciements,
lionel,
 
Dernière édition:
Solution
Tu devais être capable de compléter mon code :
VB:
Private Sub Worksheet_Deactivate()
Dim w As Worksheet
Set w = ActiveSheet 'mémorise
If w.Name <> "Feuil2" Then Exit Sub
Application.ScreenUpdating = False
Me.Activate
If ActiveCell.RowHeight = 15 Then
    Application.ScreenUpdating = True
    MsgBox "Vous n'avez pas sélectionné de ligne feuille Suivis Appels"
Else
    w.Activate
End If
End Sub

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 206
Messages
2 086 219
Membres
103 158
dernier inscrit
laufin