tarik.malah
XLDnaute Nouveau
bonjour les porgrammeur
je suis cours de developper un programme de vente pour une bibliotheque
mais quand j'ai ecris le code de modification sur un bouton
la commande "delete" ne fonctionne pas
le code fonction comme suivant:
quand je choisis une facture , la facture se transmette a une feuil d'aide, je la modifie et les element de la facture dans la feuil de vente vont etre suprimer et les remplacer par les element qui se trouve la la feuil aide avec le même numero de facture
merci d'avence
the code VBA in excel
Dim fr1, fr2, lr1, lr1 As Integer
lr1 = Feuil2.Range("A10000").End(xlUp).Row
lr2 = Feuil6.Range("A").End(xlUp).Row
For fr1 = 2 To lr1
For fr2 = 2 To lr2
If Feuil2.Cells(fr1, "A").Text = Me.Textnbrfc.Text And _
Feuil2.Cells(fr1, "D").Value = Feuil6.Cells(fr2, "A").Value Then
''Feuil2.Range("A:L").EntireRow.Delete
Feuil2.Range("A:L").Delete
lr1 = lr1 + 1
lr2 = lr2 + 1
End If
Next
Next
je suis cours de developper un programme de vente pour une bibliotheque
mais quand j'ai ecris le code de modification sur un bouton
la commande "delete" ne fonctionne pas
le code fonction comme suivant:
quand je choisis une facture , la facture se transmette a une feuil d'aide, je la modifie et les element de la facture dans la feuil de vente vont etre suprimer et les remplacer par les element qui se trouve la la feuil aide avec le même numero de facture
merci d'avence
the code VBA in excel
Dim fr1, fr2, lr1, lr1 As Integer
lr1 = Feuil2.Range("A10000").End(xlUp).Row
lr2 = Feuil6.Range("A").End(xlUp).Row
For fr1 = 2 To lr1
For fr2 = 2 To lr2
If Feuil2.Cells(fr1, "A").Text = Me.Textnbrfc.Text And _
Feuil2.Cells(fr1, "D").Value = Feuil6.Cells(fr2, "A").Value Then
''Feuil2.Range("A:L").EntireRow.Delete
Feuil2.Range("A:L").Delete
lr1 = lr1 + 1
lr2 = lr2 + 1
End If
Next
Next
Dernière édition:
