!!! Affichage ou "masquage" de lignes ou de colonnes !!!

[fabrice]

Bonjour le forum.

Je voulais savoir si c'était possible de masquer ou afficher des lignes ou des colonnes avec le VBA.
En effet, normalement on passe par Données->Grouper et créer un plan-> Afficher ou Masquer.

Je souhaiterai en fait pouvoir faire cette opération par un UF donc par VBA.

Est ce que quelqu'un a une idée???

Merci de votre aide.
FAb

 

[Pyrof]

Bonjour,

Il y a un moyen de générer le code VB.

Outils
macro
nouvelle macro

tu executes manuellement les actions à faire

tu ferme la fenètre d'enregistrement

et tu vas voir la macro générée

Il suffit de modifier le code si besoin

 

[fabrice]

Merci de ton aide mais j'effectue les taches mais rien n'est affiché dans mon éditeur de VBA.

Y aurait'il une autre solution???

Merci FAb

 

[fabrice]

re

je crois que j'ai trouvé ma solution sur lfil suivant:
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=17321&t=17166

merci quand meme.
FAb

PS: si vous avez une autre sol, je suis ouvert.

 

[fabrice]

Resalut tout le monde

Finalement, j'ai résolu mon PB sous VBA mais il faut faire la meme chose avec des formules.

En effet, si par exemple la cellule A1=1 alors on cache les lignes 2 à 5, si A1=2, on cache les lignes 6 à 10.

Est ce que cela est possible???

Merci de votre aide
FAb

 

[Pyrof]

rebonjour
clic sur l'onglet de ta feuille avec bouton droit
choisi voir le code et copie la macro ci-dessous


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then MsgBox "coucou"
End Sub



change MsgBox "coucou" par le nom de ta macro

 

[fabrice]

resalut

Ta méthode va tres bien mais si je dois rentrer plusieures valeurs (1,2 et3), je fais comment???
EX:
Si celulle =1 alors par exemple msgbox "coucou"
Si celulle =2 alors par exemple msgbox "salut"
Si celulle =3 alors par exemple msgbox "bonjour"

Peux tu m'aider???
FAb

 

[fabrice]

resalut

Ta méthode va tres bien mais si je dois rentrer plusieures valeurs (1,2 et3), je fais comment???
EX:
Si celulle =1 alors par exemple msgbox "coucou"
Si celulle =2 alors par exemple msgbox "salut"
Si celulle =3 alors par exemple msgbox "bonjour"

Peux tu m'aider???
FAb

 

[Pyrof]

salut

dans ce cas


select case cellule
case 1
action1
case 2
action2
case 3
action 3
case else
action par defaut
end select

 

[fabrice]

Salut

merci de ton aide mais finalement j'ai trouvé!!!
J'ai remplacé "Target.Row = 1 And Target.Column = 1 " par range("A1")=1.

Tout fonctionne bien,

Merci encore pour ton aide,
FAb