yannick63430
XLDnaute Junior
Bonjour à tous,
j'ai besoin d'aide concernant la création d'un fichier excel !!!!!
En fait, je voudrais que sur différentes cellules, lorsqu'un utilisateur saisit Oui ou Non, une macro se déclenche (grouper ou dégrouper une plage de cellule).
j'ai essayer avec la macro suivante :
Mais, je suis confronté à différents problème :
- dès que je saisi sur d'autres cellules ou que je déclenche un grouper/dégrouper, la macro se déclenche et je ne veux pas qu'elle s’exécute
- Impossible d'annuler ou de rétablir
En espérant avoir été clair.
D'avance merci.
Bien cordialement
j'ai besoin d'aide concernant la création d'un fichier excel !!!!!
En fait, je voudrais que sur différentes cellules, lorsqu'un utilisateur saisit Oui ou Non, une macro se déclenche (grouper ou dégrouper une plage de cellule).
j'ai essayer avec la macro suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Cell_audit_interne").Value = "Oui" Then
Range("Cell_audit_interne_Group").Select
Selection.EntireRow.Hidden = False
Else
Range("Cell_audit_interne_Group").Select
Selection.EntireRow.Hidden = True
End If
If Range("Cell_Expert_externe").Value = "Oui" Then
Range("Cell_Expert_externe_Group").Select
Selection.EntireRow.Hidden = False
Else
Range("Cell_Expert_externe_Group").Select
Selection.EntireRow.Hidden = True
End If
End Sub
If Range("Cell_audit_interne").Value = "Oui" Then
Range("Cell_audit_interne_Group").Select
Selection.EntireRow.Hidden = False
Else
Range("Cell_audit_interne_Group").Select
Selection.EntireRow.Hidden = True
End If
If Range("Cell_Expert_externe").Value = "Oui" Then
Range("Cell_Expert_externe_Group").Select
Selection.EntireRow.Hidden = False
Else
Range("Cell_Expert_externe_Group").Select
Selection.EntireRow.Hidden = True
End If
End Sub
Mais, je suis confronté à différents problème :
- dès que je saisi sur d'autres cellules ou que je déclenche un grouper/dégrouper, la macro se déclenche et je ne veux pas qu'elle s’exécute
- Impossible d'annuler ou de rétablir
En espérant avoir été clair.
D'avance merci.
Bien cordialement