MSGbox

Bonjour

Je souhaiterais que si quelqu'un sélectionne une cellule sur la ligne 1,3 et 5, un message apparaisse pour l'avertir de l'interdiction et sélectionner une autre cellule.

voilà la formule que j'ai faite mais elle ne fonctionne pas

Pourriez-vous m'aider

merci et excellente journée

Bonjour,

Essaie avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("1:1,3:3,5:5")) Is Nothing Then
        MsgBox "Vous ne pouvez pas sélectionner cette ligne", vbOKOnly, "Attention"
        Range("F9").Select
    End If
End Sub

A+

Bonjour vous y étais prèsque !

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("1:1,3:3,5:5")) Is Nothing Then MsgBox "Vous ne pouvez pas sélectionner cette ligne", vbOKOnly, "Pas touché!"
End Sub

edit: salutaiton Frangy, désolé pour le doublon...

Merci c'est parfait et ça fonctionne à merveille

Re bonjour

Quand j'intègre cet élément dans VBA cela créé un bug et quoi que je fasse le curseur revient à F9

Dans la formule si on appuie sur Ok une personne peut quand même écrire dans la cellule. Je souhaiterais qu'en appuyant sur OK la cellule f9 soit sélectionné

D'avance merci

Re-bonjour,

Tu devrais essayer après avoir copié correctement le code t'est donné.

A+

Effectivement ça va mieux

Merci