Connaitre la valeur de la cellule de gauche

Bonjour,

J'ai un petit problème en vba que je n'arrive pas à résoudre,

J'ai deux feuilles, le première s'intitule "Réception matières premières" et la seconde "Listes".

Sur la feuille "Réception matières premières", je clic droit sur l'une des cellules de la colonne H (n'importe laquelle). Ce qui m'affiche un Userform avec une liste deroulante (faisant référence à ma feuille "listes"), je sélectionne la valeur que je souhaite pour l'insérer dans la case dans laquelle j'ai fais mon clic droit.

Tout cela fonctionne, cependant j'aimerais rajouter une condition : si la valeur de la cellule de gauche (colonne G) de la cellule sélectionner est différente de "Vrai" alors j'affiche une msg box et je ne rentre pas la valeur

Merci d'avance pour l'aide que vous pourrez m'apporter

Bonjour

Un fichier peut être ?

Sinon essaye de rajouter ça au du code, juste avant d'ouvrir le userform :

l = ActiveCell.Row
c = ActiveCell.Column

 If Cells(l, c + 1) = "Vrai" Then
             MsgBox "Mon message"
Else
              'Ouverture userForm
End If

Merci de ton aide GGauthier !

J'ai essayé le code que tu m'as donné mais ca ne m'affichait jamais "Mon message", le UserForm s'affiche toujours.

C'est un fichier assez conséquent, la partie qui nous intéresse se trouve dans la feuille "Récep°Mat°1°" et dans USFMotifs. Il faut faire clic droit sur la colonne H pour afficher l'USF. Merci encore !!

Je répond de mon tel, essayé de remplacer le +1 par -1 !

Oui j'ai déja essayé...

Désolé je n'ai pas mon Pc , je reprend tout ça lundi

Bonjour à tous,

Une petite modification à tester :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Dim l As Integer, c As Integer
  l = ActiveCell.Row
  c = ActiveCell.Column

    If UCase(Cells(l, c - 1).Value) = True Then
        MsgBox "La livraison n'a pas été refusée"
        Cancel = True
        Exit Sub
    Else
        If Not Intersect([H:H], Target) Is Nothing Then
        USFMotifs.Show
        Cancel = True
        End If
    End If
End Sub

En espèrant que cela t'aide

Je vous remercie de m'aider,

J'ai essayé ta modif james007, mais je n'ai pas réussi à la faire fonctionner...

Est-ce possible autrement d'empêcher le clic droit si la valeur de la cellule de gauche= "VRAI"

Encore merci à vous

Bonjour,

Pour faire un test ... Peux tu remplacer la macro que tu utilises actuellement par la suivante :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 8 Then Exit Sub
Dim l As Integer    ' Ligne
  l = Target.Row
  If Target.Offset(0, -1) = True Then Cancel = True: Exit Sub
  USFMotifs.Show
  Cancel = True
End Sub

En espèrant que cela t'aide

Ca a fonctionné James007 !!

Merci infiniment !

Content que cela puisse te dépanner ...

Merci pour tes remerciements ...