Adaptation de Code (Constante => Variable)

Bonsoir à tous,

Pour voir si ça marche, j’ai repris le code de la macro Sub Modifier_Click() (la 2em macro du module 1) à partir du code de la macro Sub Enregistrer_Click() et sur la base de la constante 5, et ça marche tant qu'il s'agit de 5.

http://sd-1.archive-host.com/membres...2_Protect2.xls

Mais la feuille “Modifier_Commande” n’est pas appelée à ne modifier que le bon de commande n°5, elle doit pouvoir modifier tout bon de commande dont le n° est entré dans la cellule K2 de la même feuille “Modifier_Commande”.

Ce serait vraiment sympa si quelqu’un pouvait aider à corriger le code de cette macro, Sub Modifier_Click(), en ce sens que la constante 5 soit substituée par une variable, en l’occurrence la valeur entrée dans la cellule K2.

Aussi, le “5” de la macro actuelle fait référence à la 5em ligne à partir du haut du tableau, ce qu’il faudrait c’est que la valeur entrée dans la cellule K2 soit interprétée comme étant la 5em ligne avant la dernière ligne non vide de la feuille “Listing”.

Par avance merci, Kim.

Salut,
Tu réponds toi même dans ta question

Citation:

---

...en ce sens que la constante 5 soit substituée par une variable, en l’occurrence la valeur entrée dans la cellule K2....

---

Code:

---

TaVariable = Sheets("Modifier_Commande").range("K2")

---

A+

Bonsoir à tous,

J’ai une feuille nommée Listing répertoriant toutes les commandes, et une feuille Modifier_Commande dans laquelle mon ami Bebere (que je ne remercierais jamais assez) a fait un code qui part de la variable entrée dans sa cellule K2, la cherche dans la première colonne de la Feuille Listing pour ensuite déposer dans les colonnes B,C,D… de la ligne correspondante les valeurs de O2,I4,O4…, le code fonctionne parfaitement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Modifier_Click() Worksheets("Listing").Activate ActiveSheet.Unprotect Set cel = Columns(1).Find(Range("Modifier_Commande!K2")) If Not cel Is Nothing Then L = cel.Row Else MsgBox "n° de commande inexistant" Worksheets("Modifier_Commande").Activate Exit Sub End If 'Coordonnées Range("B" & L).Formula = "=Modifier_Commande!O2" Range("C" & L).Formula = "=Modifier_Commande!I4" Range("D" & L).Formula = "=Modifier_Commande!O4" ‘etc … les coordonnées sont nombreuses Rows("5:5").EntireRow.AutoFit Rows(L).Copy Rows(L).PasteSpecial Paste:=xlValues madate = Range("B" & L) Range("IU" & L) = Month(madate) * 1.1 End Sub

---

Ce que je voulais en fait, c’est faire un bouton/macro qui servira à afficher la commande avant de la modifier, c'est-à-dire qui part de la variable entrée dans Feuille Modifier_Commande cellule K2, la cherche dans la première colonne de la Feuille Listing, récupérer les valeurs trouvées dans les colonnes B,C,D… de la ligne correspondante, afin de les déposer dans les cellules O2,I4,O4… de la feuille Modifier_Commande, j’ai tenté le code suivant mais ça ne marche pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Afficher_Click() Worksheets("Listing").Activate ActiveSheet.Unprotect Set cel = Columns(1).Find(Range("Modifier_Commande!K2")) If Not cel Is Nothing Then L = cel.Row Else MsgBox "n° de commande inexistant" Worksheets("Modifier_Commande").Activate Exit Sub End If 'Coordonnées Range("O2").Value = Worksheets("Listing").Range("B" & L).Formula Range("I4").Value = Worksheets("Listing").Range("C" & L).Formula Range("O4").Value = Worksheets("Listing").Range("D" & L).Formula ‘etc … les coordonnées sont nombreuses Rows(L).Copy Rows(L).PasteSpecial Paste:=xlValues Selection.PasteSpecial Paste:=xlValues End Sub

---

http://sd-1.archive-host.com/membres...2_Protect3.xls

Cordialement, Kim.

Bonjour,
tu actives la feuille listing mais tu n'actives la feuille modifier_commande que si la condition n'est pas remplie, je pense que tu dois changer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Afficher_Click() with sheets("Listing") .Unprotect Set cel = .Columns(1).Find(sheets("modifier_commande").Range("K2")) If Not cel Is Nothing Then L = cel.Row Else MsgBox "n° de commande inexistant" Exit Sub End If end with with sheets("Modifier_Commande") 'Coordonnées .Range("O2").Value = Worksheets("Listing").Range("B" & L) .Range("I4").Value = Worksheets("Listing").Range("C" & L) .Range("O4").Value = Worksheets("Listing").Range("D" & L) ‘etc … les coordonnées sont nombreuses end with End Sub

---

mais je n'ai peut-être pas compris
Bonne journée

Bonjour casefayere, le forum,

Encore une fois merci pour tout, il me reste juste un truc à finir, j’arrive pas à bien placer les "Worksheets("Listing").Visible = False et True", dans le code du Module1 (macro Sub Enregistrer_Click plus exactement) afin d’éviter l’affichage de la feuille Listing pendant l’enregistrement de la commande, pourriez-vous m’indiquer la solution svp ...

http://www.cijoint.fr/cjlink.php?fil...cij0PPATin.zip

Thanks, Kim.

Salut,
Je suis pas certain de comprendre (et je n'ai pas téléchargé ton fichier), tu veux les masquer que durant la macro ou la masquer "définitivement".

Si tu veux que la feuille active soit figée durant la macro, tu peux utilser

Code:

---

Application.screenupdating=false 'A mettre en tout début de code

---

et

Code:

---

Application.screenupdating=true 'A mettre juste avant le End sub

---

Si ça concerne l'affichage effectif, vu le code de casefayere, normalement ça n'a pas beaucoup d'importance puisqu'il n'y a plus d'Activate. Elle doit donc pouvoir rester masquée même durant la procédure.

A+