Discussion :

[Kimaos]

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.

[Fvandermeulen]

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

...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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[Kimaos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kimaos]

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.

[Fvandermeulen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+