XL 2010 Aller sur la feuille shMRM

BUDGETS

XLDnaute Impliqué
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
 

Bebere

XLDnaute Barbatruc
Bonsoir
Budgets tu vas ouvrir combien de fil pour avoir une réponse
Je t'ai répondu,fait une recherche sur le forum
 

BUDGETS

XLDnaute Impliqué
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:

Bebere

XLDnaute Barbatruc
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:
'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)
 

Fichiers joints

BUDGETS

XLDnaute Impliqué
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:
'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)
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:
'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)
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:
".
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.
 

BUDGETS

XLDnaute Impliqué
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.
 

Fichiers joints

BUDGETS

XLDnaute Impliqué
Bonjo
bonjour
Christian mis un mot dans fichier
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.
 

BUDGETS

XLDnaute Impliqué
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.
 

BUDGETS

XLDnaute Impliqué
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.
 

Fichiers joints

BUDGETS

XLDnaute Impliqué
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.
 

Fichiers joints

Bebere

XLDnaute Barbatruc
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
 

BUDGETS

XLDnaute Impliqué
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
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.
 

Bebere

XLDnaute Barbatruc
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
 

BUDGETS

XLDnaute Impliqué
D'aacord. Je te fais confiance. Mais n'oublie pas que MenusV4.xlsm fonctionne correctement et donne les résultats souhaités.
 

Bebere

XLDnaute Barbatruc
bonsoir
avant d'essayer tu effaces les formules, le code changé
Code:
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
 

BUDGETS

XLDnaute Impliqué
bonsoir
avant d'essayer tu effaces les formules, le code changé
Code:
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
 

Discussions similaires


Haut Bas