[Excel macro] passer d'une page à l'autre
Bas699
Messages postés
28
Statut
Membre
-
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'aimerais créer une macro qui permette de passer à une autre feuille du même classeur excel.
En effet je dois réaliser un programme où l'utilisateur devra choisir plusieurs valeurs dans une liste déroulante et comme il y aura d'autres calculs alors je préfèrerais que lorsque l'utilisateur clique sur le bouton "calcul" ça l'envoie sur une feuille annexe puis ça fait les calculs et enfin qu'il puisse revenir sur la page principale.
J'espère avoir été clair et dans l'attente de vos réponses je vous souhaite une bonne journée.
J'aimerais créer une macro qui permette de passer à une autre feuille du même classeur excel.
En effet je dois réaliser un programme où l'utilisateur devra choisir plusieurs valeurs dans une liste déroulante et comme il y aura d'autres calculs alors je préfèrerais que lorsque l'utilisateur clique sur le bouton "calcul" ça l'envoie sur une feuille annexe puis ça fait les calculs et enfin qu'il puisse revenir sur la page principale.
J'espère avoir été clair et dans l'attente de vos réponses je vous souhaite une bonne journée.
A voir également:
- [Excel macro] passer d'une page à l'autre
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Supprimer une page word - Guide
- Imprimer tableau excel sur une page - Guide
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
3 réponses
bonjour
Tu as le choix :
Sheets("ton_nom_de_feuille").Activate
ou
Sheets("ton_nom_de_feuille").Select
Tu as le choix :
Sheets("ton_nom_de_feuille").Activate
ou
Sheets("ton_nom_de_feuille").Select
Bonjour,
Je constitue un glossaire et j'aimerais que suivant telle ou telle action, la macro change de feuille "Français" ou "English". J'ai appliqué le code de gbinforme (en gras), mais je dois mal le placer...
Voici mon code (je sais il est un peu "tordu") :
Private Sub Workbook_Open()
Dim langue As String
Dim langue1 As String
Dim langue2 As String
Dim langue3 As String
Dim langue4 As String
Dim langue5 As String
Dim langue6 As String
Dim langue7 As String
Dim langue8 As String
langue1 = "Français"
langue2 = "Anglais"
langue3 = "French"
langue4 = "English"
langue5 = "français"
langue6 = "anglais"
langue7 = "french"
langue8 = "english"
langue = InputBox("Bonjour, veuillez sélectionner une langue (Français/Anglais)" & Chr(13) & " " & Chr(13) & "Hello, please choose a language (French/English)")
If langue = "Français" Or langue = "français" Or langue = "French" Or langue = "french" Then
MsgBox ("Bienvenue dans le glossaire ..." & Chr(13) & " " & Chr(13) & "Vous pouvez sélectionner un domaine et/ou sous-domaine précis en cliquant sur la liste déroulante de la colonne Domaine ou Sous-domaine")
ElseIf langue = "English" Or langue = "english" Or langue = "Anglais" Or langue = "anglais" Then
MsgBox ("Welcome to the ... glossary" & Chr(13) & " " & Chr(13) & "You can choose a specific domain and/or subdomain by clicking on the drop down list of the Domain or Subdomain columns")
End If
While (langue <> langue1) And (langue <> langue2) And (langue <> langue3) And (langue <> langue4) And (langue <> langue5) And (langue <> langue6) And (langue <> langue7) And (langue <> langue8)
langue = InputBox("La langue sélectionnée n'est pas disponible, veuillez sélectionner Français ou Anglais" & Chr(13) & " " & Chr(13) & "The selected language is not available, please choose French or English")
If langue = "Français" Or langue = "français" Or langue = "French" Or langue = "french" Then
MsgBox ("Bienvenue dans le glossaire ..." & Chr(13) & " " & Chr(13) & "Vous pouvez sélectionner un domaine et/ou sous-domaine précis en cliquant sur la liste déroulante de la colonne Domaine ou Sous-domaine")
ElseIf langue = "English" Or langue = "english" Or langue = "Anglais" Or langue = "anglais" Then
Sheets("English").Select
MsgBox ("Welcome to ... glossary" & Chr(13) & " " & Chr(13) & "You can choose a specific domain and/or subdomain by clicking on the drop down list of the Domain or Subdomain columns")
End If
Wend
End Sub
Je constitue un glossaire et j'aimerais que suivant telle ou telle action, la macro change de feuille "Français" ou "English". J'ai appliqué le code de gbinforme (en gras), mais je dois mal le placer...
Voici mon code (je sais il est un peu "tordu") :
Private Sub Workbook_Open()
Dim langue As String
Dim langue1 As String
Dim langue2 As String
Dim langue3 As String
Dim langue4 As String
Dim langue5 As String
Dim langue6 As String
Dim langue7 As String
Dim langue8 As String
langue1 = "Français"
langue2 = "Anglais"
langue3 = "French"
langue4 = "English"
langue5 = "français"
langue6 = "anglais"
langue7 = "french"
langue8 = "english"
langue = InputBox("Bonjour, veuillez sélectionner une langue (Français/Anglais)" & Chr(13) & " " & Chr(13) & "Hello, please choose a language (French/English)")
If langue = "Français" Or langue = "français" Or langue = "French" Or langue = "french" Then
MsgBox ("Bienvenue dans le glossaire ..." & Chr(13) & " " & Chr(13) & "Vous pouvez sélectionner un domaine et/ou sous-domaine précis en cliquant sur la liste déroulante de la colonne Domaine ou Sous-domaine")
ElseIf langue = "English" Or langue = "english" Or langue = "Anglais" Or langue = "anglais" Then
MsgBox ("Welcome to the ... glossary" & Chr(13) & " " & Chr(13) & "You can choose a specific domain and/or subdomain by clicking on the drop down list of the Domain or Subdomain columns")
End If
While (langue <> langue1) And (langue <> langue2) And (langue <> langue3) And (langue <> langue4) And (langue <> langue5) And (langue <> langue6) And (langue <> langue7) And (langue <> langue8)
langue = InputBox("La langue sélectionnée n'est pas disponible, veuillez sélectionner Français ou Anglais" & Chr(13) & " " & Chr(13) & "The selected language is not available, please choose French or English")
If langue = "Français" Or langue = "français" Or langue = "French" Or langue = "french" Then
MsgBox ("Bienvenue dans le glossaire ..." & Chr(13) & " " & Chr(13) & "Vous pouvez sélectionner un domaine et/ou sous-domaine précis en cliquant sur la liste déroulante de la colonne Domaine ou Sous-domaine")
ElseIf langue = "English" Or langue = "english" Or langue = "Anglais" Or langue = "anglais" Then
Sheets("English").Select
MsgBox ("Welcome to ... glossary" & Chr(13) & " " & Chr(13) & "You can choose a specific domain and/or subdomain by clicking on the drop down list of the Domain or Subdomain columns")
End If
Wend
End Sub
bonjour
Désolé mais comment veux-tu que l'on rentre dans ta macro pour comprendre avec un code aussi ésotérique ?
If langue = "Français" Or langue = "français" Or langue = "French" Or langue = "french" Then
est équivalent par exemple.
Essaies de simplifier des codes et tu y verras plus clair.
Désolé mais comment veux-tu que l'on rentre dans ta macro pour comprendre avec un code aussi ésotérique ?
If langue = "Français" Or langue = "français" Or langue = "French" Or langue = "french" Then
If lcase(langue) = "français" Or lcase(langue) = "french" Then
est équivalent par exemple.
Essaies de simplifier des codes et tu y verras plus clair.
