Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel masquer des cellules avec des formules non référencées

masquer des cellules avec des formules non référencées

3 réponses
Avatar
syllage
Bonjour,
Comme le dit le titre, je cherche à masquer des cellules avec des formules non référencées à l'aide d'un bouton.

Je m'explique plus clairement :

Dans un classeur, une feuille nommé annuaire avec des formules ce référents à une autre feuille de ce même classeur nommé chantiers.
Dans cette feuille chantiers certaines cellules sont écrite à la main et d'autres reste vide.

Ce que je cherche : à l'aide d'un CommandButton dans la feuille annuaire je souhaite pouvoir masquer/afficher les cellules qui contiennent une formules qui ce référent aux cellules vides de la feuille chantier.

Voici les codes que j'ai trouvé qui s'en approche :

_Ce code me donne un code erreur :
Private Sub commandbutton2_click()
ActiveSheet.Unprotect
CommandButton2.Caption = IIf(CommandButton2.Caption = "Masquer", "Afficher", "Masquer")
Range("A4:A21").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = IIf(CommandButton2.Caption = "Masquer", False, True)
End Sub

_Ce code me masque toutes les lignes rempli ou non :
Private Sub commandbutton2_click()
ActiveSheet.Unprotect
CommandButton2.Caption = IIf(CommandButton2.Caption = "Masquer", "Afficher", "Masquer")
Range("A76:A93").SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = IIf(CommandButton2.Caption = "Masquer", False, True)
End Sub

Si vous avez besoin d'un classeur en exemple dites moi comment vous le fournir.

Merci d'avance pour votre aide.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Caetera
> Comme le dit le titre, je cherche à masquer des cellules



On ne peut masquer/afficher que les lignes ou/et colonnes ENTIÈRES

Etc
Avatar
syllage
syllage a écrit le 05/07/2009 à 22h22 :
Bonjour,
Comme le dit le titre, je cherche à masquer des cellules avec des
formules non référencées à l'aide d'un bouton.

Je m'explique plus clairement :

Dans un classeur, une feuille nommé annuaire avec des formules ce
référents à une autre feuille de ce même classeur
nommé chantiers.
Dans cette feuille chantiers certaines cellules sont écrite à la
main et d'autres reste vide.

Ce que je cherche : à l'aide d'un CommandButton dans la feuille annuaire
je souhaite pouvoir masquer/afficher les cellules qui contiennent une formules
qui ce référent aux cellules vides de la feuille chantier.

Voici les codes que j'ai trouvé qui s'en approche :

_Ce code me donne un code erreur :
Private Sub commandbutton2_click()
ActiveSheet.Unprotect
CommandButton2.Caption = IIf(CommandButton2.Caption = "Masquer",
"Afficher", "Masquer")
Range("A4:A21").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
IIf(CommandButton2.Caption = "Masquer", False, True)
End Sub

_Ce code me masque toutes les lignes rempli ou non :
Private Sub commandbutton2_click()
ActiveSheet.Unprotect
CommandButton2.Caption = IIf(CommandButton2.Caption = "Masquer",
"Afficher", "Masquer")
Range("A76:A93").SpecialCells(xlCellTypeFormulas).EntireRow.Hidden =
IIf(CommandButton2.Caption = "Masquer", False, True)
End Sub

Si vous avez besoin d'un classeur en exemple dites moi comment vous le
fournir.

Merci d'avance pour votre aide.


Bonjour,

Oui tout à fait je me suis un peu mal expliqué : je cherche à masquer les lignes entières.
Avatar
syllage
syllage a écrit le 05/07/2009 à 22h22 :
Bonjour,
Comme le dit le titre, je cherche à masquer des cellules avec des
formules non référencées à l'aide d'un bouton.

Je m'explique plus clairement :

Dans un classeur, une feuille nommé annuaire avec des formules ce
référents à une autre feuille de ce même classeur
nommé chantiers.
Dans cette feuille chantiers certaines cellules sont écrite à la
main et d'autres reste vide.

Ce que je cherche : à l'aide d'un CommandButton dans la feuille annuaire
je souhaite pouvoir masquer/afficher les cellules qui contiennent une formules
qui ce référent aux cellules vides de la feuille chantier.

Voici les codes que j'ai trouvé qui s'en approche :

_Ce code me donne un code erreur :
Private Sub commandbutton2_click()
ActiveSheet.Unprotect
CommandButton2.Caption = IIf(CommandButton2.Caption = "Masquer",
"Afficher", "Masquer")
Range("A4:A21").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
IIf(CommandButton2.Caption = "Masquer", False, True)
End Sub

_Ce code me masque toutes les lignes rempli ou non :
Private Sub commandbutton2_click()
ActiveSheet.Unprotect
CommandButton2.Caption = IIf(CommandButton2.Caption = "Masquer",
"Afficher", "Masquer")
Range("A76:A93").SpecialCells(xlCellTypeFormulas).EntireRow.Hidden =
IIf(CommandButton2.Caption = "Masquer", False, True)
End Sub

Si vous avez besoin d'un classeur en exemple dites moi comment vous le
fournir.

Merci d'avance pour votre aide.


bonjour,

Merci à celles et ceux qui ce seront pencher sur ma demande mais ce n'est plus la peine, "Aurore C" m'as donné la solution sur un autre forum.

Je poste le code ci-dessous pour ceux qui seront interessé :

Private Sub ToggleButton1_Click()
Dim x As Range

With ToggleButton1
For Each x In Range("a3:a20")
If x = " " Then Rows(x.Row).Hidden = .Value
Next x
.Caption = IIf(.Caption = "Afficher", "Masquer", "Afficher")
End With
End Sub

Il vous suffi d'adapter le numéros des lignes et des colonnes ainsi que (comme pour moi) les " " en "" en cas de besoin.

Cdt