Automatiser l'affichage des lignes
Résolu
Nastine
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous, bonne année ! :)
J'ai une question par rapport à l'automatisation de l'affichage des lignes sous VBA.
Ce que je veux faire: dans la cellule B4 de la feuille Prêt j'ai une formule qui cherche la valeur de cette cellule dans la feuille à côté Synthèse. Je voudrais que quand la valeur de la cellule B4 = "Rachat", j'ai trois lignes qui apparaissent dans la feuille (qui sont masquées si la valeur n'est pas "Rachat").
Voici le code que j'ai fait mais à l'exécution mon Excel cesse de fonctionner...
Private Sub Worksheet_Calculate()
Dim Target As Range
If Range("B4").Value = "Rachat" Then
Call Module2.Penalty
End If
End Sub
La procédure pour les lignes est déjà faite et marche si je l'associe à un bouton.
J'ai une question par rapport à l'automatisation de l'affichage des lignes sous VBA.
Ce que je veux faire: dans la cellule B4 de la feuille Prêt j'ai une formule qui cherche la valeur de cette cellule dans la feuille à côté Synthèse. Je voudrais que quand la valeur de la cellule B4 = "Rachat", j'ai trois lignes qui apparaissent dans la feuille (qui sont masquées si la valeur n'est pas "Rachat").
Voici le code que j'ai fait mais à l'exécution mon Excel cesse de fonctionner...
Private Sub Worksheet_Calculate()
Dim Target As Range
If Range("B4").Value = "Rachat" Then
Call Module2.Penalty
End If
End Sub
La procédure pour les lignes est déjà faite et marche si je l'associe à un bouton.
| EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |
4 réponses
-
Bonjour
essaies
Call penalty
-
Mets un point d'arrêt (F9) sur l'appel de la fonction et observe en pas à pas (F8) ce que ça donne.
Peux-tu fournir le code de ta fonction appelée ?
-
Bonjour, voici le code de la procédure appelée:
Sub Penalty() Dim Plage As Range Dim Plage1 As Range Set Plage = Range("A47:D47").EntireRow Set Plage1 = Range("A48:D48").EntireRow With Plage .Hidden = Not .Hidden End With With Plage1 .Hidden = Not .Hidden End With End Sub
Elle marche si je l'associe à un bouton.
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI
Merci d'y penser dans tes prochains messages. -
-
-
-
-
-
RE,
assaies cette macro à installer dans le module feuille "prêt"Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" And Target = "achat" Then
Call factory
end if
End If
au passage: hidden est un booléen
Hidden=true 'cache
Hidden=false 'montre
mais tu pourrais te contenter d'une seule macroPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" And Target = "rachat" Then
Range("A47:A48").EntireRow.Hidden = False
End If
End Sub
Michel -
Apparament il ya des post qui ont été supprimés :-(
La macroPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" And Target = "rachat" Then
Range("A47:A48").EntireRow.Hidden = False
End If
End Sub
pour l'installer de le module feuille concerné "compratif prêt"
copier la macro ci dessus
clic droit sur l"onglet(en bas d'écran"comparatif prêt") -visualiser le code
coller la macro
Michel
