1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2010 Aller sur la feuille shMRM

Discussion dans 'Forum Excel' démarrée par BUDGETS, 5 Novembre 2018.

  1. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
    Bonjour,

    Fichier Comptabilité10.xlsm : feuilleAccueil : ligne Modifier référentiels : dans la cellule D5, on choisit le titre à modifier; dans le combo box1, la liste des référentiels dont la colonne du tableau référentiels menu À modifier est à Oui apparaît : on choisit le référentiel à modifier et on clique sur le bouton de commande Modifier référentiels : la feuille Modifier référentiels surgit à l'écran : je n'ai plus qu'à apporter les modifications souhaitées.
    Fichier Menus.xlsm : Quand je clique sur le bouton de commande Modifier référentiels menus, j'atterris sur la feuille Accueil référentiels menus. D'avance merci à celle ou à celui qui me dira où le trouve l'erreur et comment y remédier.
    Bonnes soirée et continuation.
    https://www.cjoint.com/c/HKfp2fhO2Q8
    la ligne ci-dessus concerne le fichier Menus.xlsm
    https://www.cjoint.com/c/HKfp3AAGVY8
    la ligne ci-dessus permet d'accéder au fichier Comptabilité 10.xlsm
     
  2. Chargement...

    Discussions similaires - Aller sur feuille Forum Date
    VBA - Aller sur une feuille ou le nom est dans une cellule Forum Excel 16 Mars 2015
    aller sur une feuille d'un fichier ayant le même nom qu'un onglet d'un 1er classeur Forum Excel 13 Août 2014
    Macro pour aller sur la feuille active Forum Excel 15 Novembre 2007
    Aller sur une autre feuille si... Forum Excel 30 Octobre 2007
    XL 2013 Worksheet_Change - liste déroulante et aller sur un onglet Forum Excel 22 Juin 2017

  3. Bebere

    Bebere XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2005
    Messages :
    6207
    "J'aime" reçus :
    121
    Habite à:
    Tongres
    Utilise:
    Excel 2003 (PC)
    Bonsoir
    Budgets tu vas ouvrir combien de fil pour avoir une réponse
    Je t'ai répondu,fait une recherche sur le forum
     
  4. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
    Bonjour bebere,

    J'espère que tu vas bien.

    Je n'ai rien trouvé d'une part sur le forum. D'autre part, je cherche quelqu'un qui pourrait m'expliquer pourquoi le programme fonctionne dans un fichier tandis que dans l'autre il ne fonctionne pas.
    Je suis en train de modifier comptabilité 10 pour que les feuilles soient identiques à celle de Menus. Puis dans comptabilité, je vais modifier les instructions en conséquence et exécuter le programme. Je verrai bien ce que cela donnera.
    Bonnes soirée et continuation.
     
    Dernière édition: 6 Novembre 2018
  5. Bebere

    Bebere XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2005
    Messages :
    6207
    "J'aime" reçus :
    121
    Habite à:
    Tongres
    Utilise:
    Excel 2003 (PC)
    bonjour
    Budgets pour corriger l'erreur,voir code
    si possible tu devrais garder les mêmes écritures pour intitulé,j'ai mis l'index ligne dans la combobox
    Code (Text):

    'Numéro_référentiels_Menus = CInt(Split(Intitulé, "-")(0)) 'pas de - dans intitulé
    'si tjrs 2 chiffres à la fin
    Numéro_référentiels_Menus = Right(intitulé, 2)
    TypeAliment = Mid(intitulé, 1, Len(intitulé) - 2)
    intitulé = Format(Numéro_référentiels_Menus, "0000") & "-" & TypeAliment'comme en colonne A de shTableauRéférentielsMenus
    With shTableauRéférentielsMenus
        .Visible = True
        .Activate
        Fin = .Range("TabRéfMenus").Rows.Count + 2
        Formule = "Sumproduct((A:A=""" & intitulé & """)*(row(A:A)))"
        Ici = Evaluate(Formule)
       

     
     

    Pièces jointes:

  6. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
    Bonjour Bebere,

    J'espère que tu vas bien.

    Expliques-moi "si possible tu devrais garder les mêmes écritures pour l'intitulé, j'ai mis l'index ligne dans la combo box
    Code (Text):
    ".
    Normalement, toujours deux chiffres à la fin. Dans la deuxième partie, le numéro référentiels (il s'appellera Numéro menus) pourrait avoir jusqu'à quatre chiffres.
    Le code ci-dessus est à inclure ou à remplacer le code actuel das quelle macro ou feuille ?
    Bonne journée et continuation.
     
  7. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
    Bonjour Bebere,

    J'espère que tu vas bien.

    Dans le fichier Microsoft Excel 9 ok.png, à quoi sert la fenêtre qui apparaît dans laquelle il est écrit Microsoft Excel 9ok ? Commenta-t-elle été créée ? Si elle a un code, où se trouve-t-il ?
    Fichier Menus Bebere.xlsm : créer un référentiel : ok. Pas de problème. Modifier un référentiel menu : ok, à part la fenêtre qui apparaît(voir ci-dessus). J'ai résolu le problème des cellules à remplir d'après leur code : j'ai utilisé la fonction Recherchev, ainsi elle reste et ne disparaît pas, à l'inverse de sierreur(index).
    Supprimer un référentiel menu : cela ne fonctionne toujours pas.
    Merci de me répondre également au précédent message.
    D'autre part, si cela n'a pas été fait par toi, dois-je inclure les instructions que tu m'a données dans de précédents messages (tu mettais j'ai mis commentaires dans fichier). Enfin, les instructions du message #4 ci-dessus, dois-je les inclure dans le fichier et dans quelle macro ?
    Bonnes soirée et continuation.
     

    Pièces jointes:

  8. Bebere

    Bebere XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2005
    Messages :
    6207
    "J'aime" reçus :
    121
    Habite à:
    Tongres
    Utilise:
    Excel 2003 (PC)
    bonjour
    Christian mis un mot dans fichier
     

    Pièces jointes:

  9. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
    Bonjo
    Bonjour Bebere,

    J'espère que tu vas bien.

    J'ai exécuté tin fichier MenusV4.slxm : création d'un référentiel, modification d'un référentiel,
    suppression d'un référentiel. À première vue, je ne peux qu'être satisfait du travail que tu as fait. Merci beaucoup. J'ai imprimé tous les codes, annoté les feuilles d'impressions pour savoir que cela vient de toi avec la date du jour et le nom du fichier. Je vais donc reprendre mon fichier et le modifier selon les critères de ton fichier.
    Encore un grand merci.
    Bonnes journée et continuation.
     
  10. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
    Bonjour Bebere,

    J'espère que tu vas bien et que tu as passé une bonne journée.
    J'ai fini de modifier mon fichier Menus.xltm en tenant compte de ton fichier ci-dessus. Je confirme, persiste et signe mes appréciations d'hier.
    Je vais créer tous mes référentiels qui iront dans le tableau TabRéfMenus, lequel servira de liste de choix pour la création de mes menus journaliers.
    Pourquoi donc ne suis-je pas tombé sur toi lors de mon inscription sur ce site ? Cela aurait évitéde perdre un temps fou !
    Une dernière suggestion : accepterais-tu de lire un fichier Word qui expliquerait le fonctionnement des instructions de mes différents macros ?Ton travail serait alors de confirmer mes déclarations ou de les infirmer et, dans ce dernier cas, d'écrire une nouvelle description.
    Bonnes soirée, nuit et continuation.
    Encore un grand merci pour ton aide. J'espère que mes macros pour les menus journaliers s'exécuteront sans aucun problème, sinon je serai obligé de faire appel, avec plaisir, à toi.
     
  11. Bebere

    Bebere XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2005
    Messages :
    6207
    "J'aime" reçus :
    121
    Habite à:
    Tongres
    Utilise:
    Excel 2003 (PC)
    Bonsoir
    Christian pour lire ton rapport,je suis daccord
    à bientôt
     
  12. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
    Bonsoir Bebere,

    Comment vas-tu, bien j'espère.
    Excuses-moi de te déranger encore une fois, mais j'ai un problème dans le tableau référentiels menus. L'intitulé ne prend pas la formule qu'il devrait prendre et je ne sais pas pourquoi. Créé un référentiel avec n'importes quelles informations, valide et regarde le résultat dans le tableau référentiels menus. J'ai essayé en transformant la formule en formule matricielle mais cela n'a rien changé.
    Merci pour ton aide.
    Bonnes soirée, nuit et continuation.
     

    Pièces jointes:

    • Menus.xlsm
      Taille du fichier:
      83.8 Ko
      Affichages:
      8
  13. Bebere

    Bebere XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2005
    Messages :
    6207
    "J'aime" reçus :
    121
    Habite à:
    Tongres
    Utilise:
    Excel 2003 (PC)
    bonjour
    Budgets,pas de problème içi
    comp
     
  14. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
    Bonjour Bebere,

    J'espère que tu vas bien.

    Je te joints mon fichier pour que tu constates toi-même le dysfonctionnement. Je vais vérifié mais je crois avoir trouvé d'où cela provenait : j'ai fait des erreurs dans le code de la feuille MRM dans la partie liste choix référentiels menus.
    Bonnes journée et continuation.
     

    Pièces jointes:

    • Menus.xlsm
      Taille du fichier:
      86.9 Ko
      Affichages:
      10
  15. Bebere

    Bebere XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2005
    Messages :
    6207
    "J'aime" reçus :
    121
    Habite à:
    Tongres
    Utilise:
    Excel 2003 (PC)
    Christian c'est le code (Set Rech_référentiels_menus.... )pour trouver la ligne qui pose problème
    si intitulé est vide ,il va sur la 1ère ligne non vide de la colonne A
    tu pourrais te passer de ces formules et le faire par code
    qu'en penses tu
     
  16. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
  17. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
    ere,

    Bonsoir Bebere,

    J'ai repris le code qui figurait dans ton fichier MenusV4.slsm et qui fonctionne bien.
    Set figure dans le module1, macro Valider saisie référentiels menus et concerne la colonne A:A du tableau Tableau référentiels menus dont le nom est Intitulé.
    "Tu pourrais te passer de ces formules et le faire par code" : pas compris ce que tu veux.
    Pour tout mon fichier, j'ai repris tout le code de ton fichier Menus4.xlsm, en changeant les noms quand cela s'imposait.
     
  18. Bebere

    Bebere XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2005
    Messages :
    6207
    "J'aime" reçus :
    121
    Habite à:
    Tongres
    Utilise:
    Excel 2003 (PC)
    c'est simplement,ne plus avoir de formules en A
    si Rech_référentiels_menus=nothing tu n'as pas d'indice ligne
    If Range("A2") = "" Then,tu devrais mettre B2 puisque A2 ne sera jamais vide

    s'il l faut je regarde demain
     
  19. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
    D'aacord. Je te fais confiance. Mais n'oublie pas que MenusV4.xlsm fonctionne correctement et donne les résultats souhaités.
     
  20. Bebere

    Bebere XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2005
    Messages :
    6207
    "J'aime" reçus :
    121
    Habite à:
    Tongres
    Utilise:
    Excel 2003 (PC)
    bonsoir
    avant d'essayer tu effaces les formules, le code changé
    Code (Text):
    Sub ValiderSaisieRéférentielsMenus()
        Dim Ws As Worksheet, L As Long
        Numéro_référentiels_menus = Range("B3").Value
        Code_titre_référentiels_menus = Range("B4").Value
        Titre_référentiels_menus = Range("B5").Value
        Liste_code_référentiels_menus = Range("B6").Value
        Liste_nom_référentiels_menus = Range("B7").Value
        Code_jour_référentiels_menus = Range("B8").Value
        Jour_référentiels_menus = Range("B9").Value
        Code_conditionnement_référentiels_menus = Range("B10").Value
        Conditionnement_référentiels_menus = Range("B11").Value
        Code_destination_référentiels_menus = Range("B12").Value
        Destination_référentiels_menus = Range("B13").Value
        Code_période_concernée_menus = Range("B14").Value
        Période_concernée_menus = Range("B15").Value
        Code_période_viandes_week_end = Range("B16").Value
        Période_viandes_week_end = Range("B17").Value
        Date_création_référentiels_menus = Range("B18").Value
        À_modifier = Range("B19").Value

        If Titre_référentiels_menus = "" Then
            MsgBox ("Veuillez saisir un titre référentiels menus !")
            Exit Sub
        End If

        Application.ScreenUpdating = False
        shTableauRéférentielsMenus.Visible = True
        shTableauRéférentielsMenus.Select
        Set Rech_référentiels_menus = Columns("A:A").Find(what:=Intitulé, after:=Range("A1"), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, _
                                                          searchdirection:=xlnet, MatchCase:=False, searchformat:=False)
        If À_modifier = "Oui" Then
            If Rech_référentiels_menus Is Nothing Then
                If Range("A2") = "" Then
                    Range("B2").Select
                Else
                    Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select
                End If
                TypeAction = "Création"
            Else
                Range("B" & Rech_référentiels_menus.Row).Select
                TypeAction = "Modification"
            End If
        End If
        ActiveCell.Offset(0, -1).Value = Format(Numéro_référentiels_menus, "0000") & "-" & Titre_référentiels_menus
        ActiveCell.Value = Numéro_référentiels_menus
        ActiveCell.Offset(0, 1).Value = Code_titre_référentiels_menus
        ActiveCell.Offset(0, 2).Value = Titre_référentiels_menus
        ActiveCell.Offset(0, 3).Value = Liste_code_référentiels_menus
        ActiveCell.Offset(0, 4).Value = Liste_nom_référentiels_menus
        ActiveCell.Offset(0, 5).Value = Code_jour_référentiels_menus
        ActiveCell.Offset(0, 6).Value = Jour_référentiels_menus
        ActiveCell.Offset(0, 7).Value = Code_conditionnement_référentiels_menus
        ActiveCell.Offset(0, 8).Value = Conditionnement_référentiels_menus
        ActiveCell.Offset(0, 9).Value = Code_destination_référentiels_menus
        ActiveCell.Offset(0, 10).Value = Destination_référentiels_menus
        ActiveCell.Offset(0, 11).Value = Code_période_concernée_menus
        ActiveCell.Offset(0, 12).Value = Période_concernée_menus
        ActiveCell.Offset(0, 13).Value = Code_période_viandes_week_end
        ActiveCell.Offset(0, 14).Value = Période_viandes_week_end
        ActiveCell.Offset(0, 15).Value = Date_création_référentiels_menus
        ActiveCell.Offset(0, 16).Value = À_modifier
        TriTableau

        CacherFeuilles
        shAccueilRéférentielsMenus.Select
    End Sub
     
  21. BUDGETS

    BUDGETS XLDnaute Impliqué

    Inscrit depuis le :
    27 Janvier 2012
    Messages :
    531
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Habite à:
    LIMEIL-BRÉVANNES
    Utilise:
    Excel 2010 (PC)
     

Partager cette page