olivemotard
XLDnaute Junior
Bonjour a tous
Que de demandes d'aide de ma part en ce moment, j'avais laissé excel de coté faute d'emploi, et maintenant que j'y reviens je suis rouillé ....
Ma Macro est semble il toute simple mais ne fonctionne pas...
Le principe :
Sur ma feuille "Panier" les lignes 13 à 51 sont masquées par defaut
Lorsque je lance ma macro qui améne a la feuille "Panier", celle ci vérifie que sur la "Feuil2" la cellule A2 contient une info, si tel est le cas, elle rend la ligne 13 de "Panier" visible
(Panier B13 = Feuil2 A2 > je ne peux donc pas lui demander de vérifier que B13 contien t une info puisqu'elle contient le lien)
Si A2 est vide, B13 reste masquée.
Voici mon code :
Ce code est sous la feuille "panier"
Merci d'avance a tous pour votre aide si précieuse (en toute sincérité et sans jouer les lèche bottes)
Olivier
Que de demandes d'aide de ma part en ce moment, j'avais laissé excel de coté faute d'emploi, et maintenant que j'y reviens je suis rouillé ....
Ma Macro est semble il toute simple mais ne fonctionne pas...
Le principe :
Sur ma feuille "Panier" les lignes 13 à 51 sont masquées par defaut
Lorsque je lance ma macro qui améne a la feuille "Panier", celle ci vérifie que sur la "Feuil2" la cellule A2 contient une info, si tel est le cas, elle rend la ligne 13 de "Panier" visible
(Panier B13 = Feuil2 A2 > je ne peux donc pas lui demander de vérifier que B13 contien t une info puisqu'elle contient le lien)
Si A2 est vide, B13 reste masquée.
Voici mon code :
Code:
Sub cacher_lignes_vides()
Application.ScreenUpdating = False
Sheets("Feuil2").Select
If Range("A2") <> "" Then
Sheets("Panier").Select
Rows("13").Select
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
Sheets("Panier").Select
End If
End Sub
Ce code est sous la feuille "panier"
Merci d'avance a tous pour votre aide si précieuse (en toute sincérité et sans jouer les lèche bottes)
Olivier