Discussion :

[patrick60]

Bonjour à tout le forum
J'ai besoin d'un petit renseignement. Je souhaiterais ouvrir un usf lorsque je tappe "ORG ou "RH" dans une plage (par exemple dans la colonne C)
Cependant je veux pas utiliser ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim CellChange As Range
Set CellChange = Range("C6:C1704")
If Not Application.Intersect(CellChange, Range(Target.Address)) _
Is Nothing Then
UserForm2.Show
End If
End Sub

Car il ouvre un usf dés que j'interviens sur cette plage.
Merci

[DébutantVba]

tu peux faire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Target
Case "RH"
userform1.Visible = True
Case "ORG"
userform2.Visible = True
End Select
End Sub

EDIT : Oups à coté de la plaque, j'ai mal lu l'énoncé. Encore une mauvaise note, snif.

[Krovax]

Bonjour,
Tu ne veux pas utiliser ce code ok, mais c'est le bon code. Le problème est qu'il est incomplet.
Tu testes pour savoir quel zone est modifié mais tu ne crois pas que tu devrais tester la valeur de ce qui a été tapé???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim CellChange As Range
Set CellChange = Range("C6:C1704")
If Not Application.Intersect(CellChange, Range(Target.Address)) Is Nothing  _
and ( target="RH" or target="ORG") Then
UserForm2.Show
End If
End Sub

Edit bonjour DebutantVBA on s'est croisé, ton code va déclancher le userfomr quelque soit la zone de modification, je ne suis pas sur que ce soit ce qu'il voulais mais ca a l'avantage de compléter son code, si j'avais vu ton post avant de faire le mien je me serait contenté de suggéré de mixer les deux