[Résolu] Aide à la finalisation de mon projet

[Lone-wolf]

Bonsoir le Forum,

toutes mes excuses concernant l'intitulé du sujet.
Comme il y a pas mal de chose à modifier, je ne savait pas quel titre donner.

Je dois modifier un fichier pour l'entreprise dans laquelle je travaille. Le problème c'est que celle-ci, travaille avec MAC, et moi je suis sur Windows.

Voici un exemple de macro, faite avec l'enregistreur, de l'ancien fichier.

Sub bloc_alimentation()
'
' bloc_alimentation Macro
'
    Sheets("POIDS_INTRO").Select
    Range("E15").Select
    ActiveSheet.Unprotect
    
    Sheets("Feuil1").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("B32").Select
    Selection.Copy
    Sheets("POIDS_INTRO").Select
    Range("E15").Select
    

    
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Verdana"
        .Size = 22
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Sheets("Feuil1").Select
    Range("A32").Select
    Selection.Copy
    Sheets("POIDS_INTRO").Select
    Range("E23").Select
    ActiveSheet.Paste
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Verdana"
        .Size = 20
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("E19").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Fichier joint: CLASSEUR

Maintenant Dans le nouveau fichier j'ai 4 feuilles, (Groupe A-B au Groupe L-V) où se trouves les boutons (Shapes en l'ocurrence). Parmi ceux-ci se trouve les boutons " Fer - Bois et Plastique" qui ont leurs propres feuilles d'inscription et de réception des données.

Pour Fer, feuilles: " Intro fer " et " Poids fer ". Pour Plastique et Bois, feuilles: " Intro plast. et bois " et " Poids plast. et bois ". Plus la feuille " Feuille à imprimer 1 ", qui reçoit les données des 3 Matériaux.

Pour les autres boutons, feuilles: Iintro Autres-matériaux, Poids Autres matériaux et feuille " Feuille à imprimer 2 ".

Dans un premier temps, tous les boutons (36), doivent aller rechercher leur propre nom de matériaux, ainsi que le nombre de cadres leur appartenant dans la feuille Base de données et afficher le résultat dans les feuilles Intro xxxxx.

Dans leurs macros respectives, il faut modifier ceci:

Macros se trouvant dans les feuilles "Intro xxxxx"
np = Sheets("Base de données").Range("B31")

With Sheets("Poids plast. et bois")
lig = .[A65536].End(xlUp).Row + 1 'calcul de ligne
If lig = 2 Then < a modifier si besoin
Faire une recherche ici:
num = np - correspond au numéro de palette
cdr = nombre de cadres. A rajouter.
Else
num = .Cells(lig - 1, 2) + 1
End If

En ce qui concerne Plastique et bois, dans la feuille Intro Plast. et bois, chaque matériaux à son numéro de palette, qui doit s'incrémenter à chaque nouvelle entrées.

Exemple: dans la même feuille, pour Plastique n°560 561 562 563 etc. - Bois 760 761 762 763 etc.

Si possible adapter le code pour Excel toutes versions pour MAC et Windows.

Pour l'instant, je m'arrête là. Il y aura encore d'autres choses à ajouter et modifier.

 

[Lone-wolf]

Re : Aide à la finalisation de mon projet

Bonjour Fo_rum,

Oui, le programme sert à la saisie des différents matériaux pour une entreprise qui reçoit des peronnes de tout milieux et qui connaissent peu ou pas du tout l'informatique. C'est une entreprise de recyclage d'appareils électroniques et ménagers; avec le programme ils découvrent et mémorisent les divers matériaux qui constituent ces appareils.


A+