Report sur feuil Excel depuis USF

[Tonio]

Bonsoir le Forum

Je vient encore une fois soliciter votre savoir faire sur un probleme de modification de données, Je m'explique.
J’ai un USF dans le quel j’ai une Listbox1 et des textbox1 et 2, dans la Listbox j’ai des Références, dans Textbox1 les quantités et je voudrais pouvoir en Textbox2 rentrée des quantités a additionner a Textbox1 et que le résultat soit reporter sur la feuil excel.

J’ai fait des recherches et compiler plusieurs exemples, j’arrive a additionner les deux Textbox mais pas a reporter le résulta sur la feuil excel.

Voici mon code :

Option Explicit
Dim L As Integer



Private Sub BoutValiderModif_Click()
Dim plage As Range
Dim Cell As Range
Dim Ligne As Variant

TextBox10 = CLng(TextBox10) + CLng(TextBox2)

Ligne = Worksheets('Fichier').Range('' & 'G' & '65536').End(xlUp).Address
Set plage = Worksheets('Fichier').Range('' & 'G' & '2:' & 'G' & Ligne)

For Each Cell In plage
If ListBox1 = Cell.Value Then
L = Cell.Row
Worksheets('Fichier').Range('G' & L) = CLng(TextBox10)
End If
Next
TextBox10 = ''

End Sub


Si quelqu’un peux m'aider.

Merci d’avance….

A+++ Tonio…………

 

[PascalXLD]

Bonjour

Avec quelques modifs

Option Explicit
Dim L As Integer



Private Sub BoutValiderModif_Click()
Dim plage As Range
Dim Cell As Range
Dim Ligne As Variant

Ligne = Worksheets('Fichier').Range( 'G65536').End(xlUp).row
Set plage = Worksheets('Fichier').Range('G2:G' & Ligne)

For Each Cell In plage
If Cell.Value=ListBox1 .value Then
L = Cell.Row
Worksheets('Fichier').Range('G' & L) = CLng(TextBox10) + CLng(TextBox2)
End If
Next
TextBox10 = ''

End Sub

 

[Tonio]

Bonsoir le Forum
Bonsoir Pascal76

Je viens d’essayer ton code mais ça ne marche toujours pas.
Maintenant je n’ai même plus d’addition dans le TextBox.
Je te remercie quand même d’avoir essayer.
Si quelqu’un avait une solution elle serrai la bien venu, ça fait deux jours que je bute sur se problème et je n’ai pas de solution.

D’avance MERCI

A+++ Tonio……….

 

[PascalXLD]

Bonjour

Que tu n'es plus l'addition dan sla première texrtbox me parait normal puisque j'avais retiré cette ligne (vu que tu faisais l'addition dans un textbox pour ensuite le remettre à zero autant mettre l'addition directement dans ta cellule).

Par contre je vois vraiment pas pourquoi ça ne marche pas

Peux-tu joindre un morceau du fichier pour voir ??

 

[Tonio]

Salut Pascal76
Bonsoir le Forum


Voici comme tu las demander une petite demo avec le code que tu mas envoyer

Et Merci d’avance de te pencher sur mon petit Prob

A+++ Tonio……….
[file name=ClasseurTonio.zip size=36699]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ClasseurTonio.zip[/file]

 

[PascalXLD]

Bonjour

Bon je t'ai un peu modifié le fichier

Je t'alimente ta listbox1 et pour la conne svt magasin cela gère les entrées sorties

Par contre il faut le faire pour toutes les autres colonnes avec les différents textbox et gérer l'affichage de ceci ainsi que des boutons

Bon courage


[file name=ClasseurTonio_20050316085321.zip size=37057]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ClasseurTonio_20050316085321.zip[/file]