Lone-wolf
XLDnaute Barbatruc
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.
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.
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.
Code:
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 SubFichier 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.
Dernière édition:
