Bonjour,
je suis débutant dans excel et VBA et j'aurai besoin de votre aide,
voici ce bout de code:
j’aurai besoin de savoir comment dois-je m'y prendre pour faire la même vérification sur une autre cellule dans la même feuille, en exécutant un autre bout de code (des cases).
Merci de votre aide.
je suis débutant dans excel et VBA et j'aurai besoin de votre aide,
voici ce bout de code:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
' si cellule vide alors on force un "Undo" de l'application
If Target.Value = "" Then
Application.Undo
Exit Sub
End If
If Not Intersect(Target, Range("A1")) Is Nothing Then
Dim Cel_Trouvée As Range, Plage_de_Recherche As Range, Référence As Integer
Set Plage_de_Recherche = [Test]
Set Cel_Trouvée = Plage_de_Recherche.Cells.Find(what:=Target.Value, LookAt:=xlWhole)
Référence = Cel_Trouvée.Offset(, 1).Value
Select Case Référence
Case 1
ActiveSheet.Rows("60:131").Hidden = True
ActiveSheet.Rows("132:149").Hidden = False
Case 2
ActiveSheet.Rows("60:131").Hidden = False
ActiveSheet.Rows("132:149").Hidden = True
Case Else
ActiveSheet.Rows("60:131").Hidden = False
ActiveSheet.Rows("132:149").Hidden = False
End Select
End If
End Sub
j’aurai besoin de savoir comment dois-je m'y prendre pour faire la même vérification sur une autre cellule dans la même feuille, en exécutant un autre bout de code (des cases).
Merci de votre aide.