Si Cellule active alors ouverture d'un onglet

Bonjour à tous,

j'ai une petite question concernant VBA

j'ai une cellule dans la colonne B: j'aimerai que si cette cellule contient "Manutention manuelle de charge" ET que si je selectionne la cellule de la même ligne mais dans la colonne G

alors ouvrir l'onglet Calcul Manutentions

Voici le code que j'ai proposé, mais ceci ne fonctionne pas

Dim i, j As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 5 To 50

If Cells(i, 2) = "Manutention manuelle de charge" & ActiveCell.Column = 7 Then
Sheets("Calcul Manutentions").Activate
End If

Next i

End Sub

Merci d'avance pour votre aide

Enzo

Bonjour.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then If Target.Offset(, -5).Value = "Manutention manuelle de charge" Then Worksheets("Calcul Manutentions").Activate
End Sub

Variante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then If Target(1, -4).Value = "Manutention manuelle de charge" Then Worksheets("Calcul Manutentions").Activate
End Sub

Merci super

Juste il y a t'il possibilité de rajouter la condition suivante :

Si la cellule selectionné en colonne 7 est vide

Merci d'avance

Bonjour,

Essaie ceci :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 7 Or Target.Count > 1 Then Exit Sub
    If IsEmpty(Target.Value) And Target.Offset(0, -4).Value = "Manutention manuelle de charge" Then
        With Worksheets("Calcul Manutentions")
            .Activate
            .[A1].Select
        End With
    End If
End Sub