XL 2010 [Résolu] Modifier lignes sous condition

[Lone-wolf]

Bonjour à toutes et à tous

Dans UsfModCommandes je n'arrive pas à modifier les lignes de commande dans la feuille Sauvegarde > Classeur Base.xls. Voici la dernière macro que j'ai essaié

Private Sub CmdFermer_Click()
Dim ligne&, j&, k&, Plage As Range, NC As Range, c As Range, Wf

With WsSav
Set Plage = .Range("b3:b65536")
For Each c In Plage
Set NC = WsFC.Range("g14")
If IsEmpty(c) Then Exit For
If IsNumeric(c) And c.Value Like "*" & NC.Value & "*" Then
For j = 18 To WsFC.Range("b40").End(xlUp).Row + 1
c.Offset(1, -1) = WsFC.Cells(j, 2)
c.Offset(1, 0) = WsFC.Cells(j, 3)
c.Offset(1, 1) = WsFC.Cells(j, 4)
c.Offset(1, 2) = WsFC.Cells(j, 5)
c.Offset(1, 3) = WsFC.Cells(j, 6)
c.Offset(1, 4) = WsFC.Cells(j, 7)
Next j
End If
Next c
End With


With WsStock
ligne = .Range("i65536").End(xlUp).Row
For k = 2 To ligne
.Cells(k, 9).ClearContents
Wf = WorksheetFunction.SumIf(WsDC.Range("c2:c65536"), .Cells(k, 3), WsDC.Range("d2:d65536"))
.Cells(k, 9).Value = Wf
If .Cells(k, 3) <> "" Then
.Cells(k, 11) = .Cells(k, 5) - .Cells(k, 9)
Else
Exit For
End If
Next k
End With

CmbCommandes = ""
CmbClients = ""
TxtDC = ""
TxtDL = ""
TxtDP = ""
TxtDLP = ""
CmbTP = ""
Unload Me
UsfCommandes.Show
End Sub

À vous relire

 

[Lone-wolf]

Re thebenoit,

j'ai modifié la ligne de recherche du code article, cette fois tout est ok. Maintenant il faut créer une macro dans le cas d'ajout d'un nouvel article. Toujours à partir du formulaire, rechercher le numéro de commande dans la feuille Détails Commandes, inserer une ligne en dessous et ajouter les données.

EDIT: bon bein... je ne suis pas encore sorti de l'auberge. En changeant les quantités la macro prend en consideration les changements, mais pas en changeant l'article dû la ligne de recherche Match de l'article.

EDIT2: Pour la modification de l'article, j'ai enlever la recherche par cmbarticles par celle-ci
With WsDC
Rart = Application.Match(ListView1.SelectedItem.SubItems(2), .Columns(3), 0)

Maintenant je peux procéder aux changements complet de la ligne.

 

[thebenoit59]

Bonjour Lone.

Je viens de prendre connaissance de tes réponses.
Ton problème est-il résolu ?

 

[Lone-wolf]

Bonsoir thebenoit

Oui, et merci encore pour ton aide.