High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Comment afficher une feuille en VBA

Dernière réponse le 22 fév 2008 à 14:30:59 JPIJQDAL35, le 22 fév 2008 à 12:03:30 
 Signaler ce message aux modérateurs

Bonjour,
A plus de 50 ans, découvrir Excel n'est pas chose facile...a fortiori le mode VBA
La barre est sans doute un peu haute mais je tente l'essai quand même.
Mon cas:
Dans un classeur, j'ai créé plusieurs feuilles.
Dans l'une d'elle (Feuille1), j'ai une cellule (D19) dans laquelle suivant la condition implicitée dans une formule (RechercheV) j'obtiens une valeur (Valeur1,Valeur2,Valeur3).
Dans le même classeur, j'ai créé, entre autres, 3 feuilles (Feuille5 ,Feuille6 ,Feuille7) reprenant un ensemble d'informations propres à chacune de ces valeurs.
A partir de la donnée obtenue dans la cellule D19 de la feuille1 j'aimerais afficher ("à la demande" ) la feuille (Feuille5 ou Feuille6 ou Feuille7 préalablement masquée) relative à cette valeur.
Pensant qu'en VBA, les conditions fonctionnaient classiquement (=Si(D19="Valeur1";Feuille5;si(.......), J'ai essayé ce qui suit mais ça ne marche pas, ça me renvoi toujours la feuille7 (quelque soit la valeur de D19). C'était trop simple (celà doit l'être mais pas pour moi) compris).
Merci de m'aider dans ce terrible apprentissage.

Sub afficher_détails
' if range(D19).value = ("Valeur1")
Sheets("Feuille5").Select
Range("A1").Select
End

' if range(D19).value = ("valeur2") then
Sheets("Feuille6").Select
Range("A1").Select
End

' if range(D19).value = ("Valeur3") then
Sheets("Feuille7").Select
Range("A1").Select
End

End Sub

Configuration: Windows XP
Internet Explorer 7.0

Meilleures réponses pour « Comment afficher une feuille en VBA » dans :
[Excel] Chemin et nom de stockage de feuille de calcul VoirIndiquer automatiquement le chemin d'accès (path) et le nom de stockage de toute feuille de calcul Noter dans une cellule (A& par exemple) la formule : =cellule("nomfichier";A1) A chaque sauvegarde et/ou déplacement de fichier dans votre...
Eviter les doublons dans Excel VoirEviter les doublons lors d'un encodage dans un colonne de feuille excel: prendre le format conditionnel sur le première cellule sous les titres (par ex A2) choisir la formule suivante : =NB.SI($A$2:$A$21;A2)>1 mettre là la couleur de fond...
VBA et les collections d'objets. VoirVBA et les collections d'objets Quand plusieurs (beaucoup de) contrôles sont mis sur une feuille ou un Userform il est parfois fastidieux d'écrire du code dans chaque évènement des contrôles. Ce Tuto vous permet de traiter vos contrôles comme...
Posez votre question Répondre

1

Polux31, le 22 fév 2008 à 12:41:25

Bonjour,

Pourquoi l'apostrophe devant chaque If ??? L'apostrophe sert à mettre des commentaires (partie non exécutée en tant que code).
Il n'y a donc ici aucune condition et donc le code s'exécute ligne par ligne ... 

Sub afficher_détails()

     If Worksheets("Feuil1").Range(D19).Value = ("Valeur1") 
          Sheets("Feuille5").Select 
          Range("A1").Select 
     End If

     If Worksheets("Feuil1").Range(D19).Value = ("valeur2") then 
          Sheets("Feuille6").Select 
          Range("A1").Select 
     End  If

     If Worksheets("Feuil1").Range(D19).Value = ("Valeur3") then 
          Sheets("Feuille7").Select 
          Range("A1").Select 
      End If

End Sub


Comme ça, ça devrait aller mieux.

;o)

polux

   
Répondre à Polux31

2

JPIJQDAL35, le 22 fév 2008 à 13:54:01

Bonjour Polux,
Tout d'abord merci pour cette prompte réponse.
Cependant, après avoir scrupuleusement respecté (sauf erreur que je n'arrive pas à voir) j'ai toujours un message d'erreur. "Erreur de syntaxe".
Celà ne proviendrait il pas du fait que la cellule D19 de la Feuille1 soit le résultat d'une formule (RechercheV) et non d'une saisie directe ?

Encore merci.

   
Répondre à JPIJQDAL35

3

JPIJQDAL35, le 22 fév 2008 à 14:19:17
  • +1

Polux 31
J'ai trouvé, en fait dans ta réponse il manquait then à la 1ère ligne.
En tout cas merci...tout celà me permet d'apprendre


Sub Accès_détails_secteur()
'
' Accès_détails_secteur Macro
' Macro enregistrée le 22/02/2008 par
'

If Range("D19").Value = "Valeur1" Then
Sheets("Feuille5").Select
Range("A1").Select
End If

If Range("D19").Value = "Valeur2" Then
Sheets("Feuille6").Select
Range("A1").Select
End If

If Range("D19").Value = "Valeur3" Then
Sheets("Feuille7").Select
Range("A1").Select
End If

End Sub


J'aurai sans doute encore beaucoup de questions à poser du style

Cordialement

GB

   
Répondre à JPIJQDAL35

4

Lupin.A, le 22 fév 2008 à 14:20:29
  • +1

Bonjour,

Quelques observations ...

Je vous recommande d'éviter d'utiliser les accents de la langue dans les noms d'objets

Sub afficher_détails() ->>> Sub Afficher_Details()

Dans le nom de vos objets, insérer quelques majuscules
Lors de la saisie, vous tapez en minuscule, et après le [ Enter ], les majuscules s'afficheront
automatiquement, ce qui confirme la syntaxe du mot !

Votre structure de IF est linéaire, vous pourriez utiliser une structure [ Select Case ]

exemple type : 

Sub Afficher_Details()

    Select Case (Range("D19").Value)
        Case "Valeur1": AfficheFeuille ("Feuil5") ' Soyez vigilent sur le nom des feuilles
        Case "Valeur2": AfficheFeuille ("Feuil6") ' Est vraiment [ Feuille5 ], le nom standard
        Case "Valeur3": AfficheFeuille ("Feuil7") ' devrait être [ Feuil5 ], et ainsi de suite ...
    End Select

End Sub
'

Function AfficheFeuille(ByVal LaFle As String)
    Sheets(LaFle).Visible = True ' Si la feuille est masqué, vous devez la rendre visible
    Sheets(LaFle).Select           ' avant de la sélectionner
End Function
'


Si vous recherchez des exemples de code, je vous recommande mon classeur
VizioXLA que vous trouverez sur excel-download à cette adresse :

http://www.excel-downloads.com/...

repérer VizioXLA

sans prétention, ce classeur démontre comment utiliser les objets Excels.

Lupin

   
Répondre à Lupin.A

5

 JPIJQDAL35, le 22 fév 2008 à 14:30:59

Merci pour les précieux conseils qui me serviront sans aucun doute.
Je vais essayer également d'appliquer cette syntaxe en y ajoutant l'affichage de la feuille. (Ce que j'avais effectivement oublié).
Il y a 8 jours encore, je ne savais pas ce qu'était une macro, c'est dire ce qu'il reste à faire...

Cordialement


GB

   
Répondre à JPIJQDAL35
Posez votre question Répondre
Ils ont besoin de votre aide