Automatiser l'affichage des lignes
Résolu
Nastine
-
michel_m Messages postés 18903 Statut Contributeur -
michel_m Messages postés 18903 Statut Contributeur -
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. |
A voir également:
- Automatiser l'affichage des lignes
- Partager des photos en ligne - Guide
- Affichage double ecran - Guide
- Windows 11 affichage classique - Guide
- Problème affichage fenêtre windows 10 - Guide
- Problème affichage page internet google chrome ✓ - Forum Google Chrome
4 réponses
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 ?
Peux-tu fournir le code de ta fonction appelée ?
Bonjour, voici le code de la procédure appelée:
Elle marche si je l'associe à un bouton.
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"
au passage: hidden est un booléen
Hidden=true 'cache
Hidden=false 'montre
mais tu pourrais te contenter d'une seule macro
Michel
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 macro
Private 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 macro
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
La macro
Private 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
