Discussion :

[DEMERSE]

Bonjour à vous, toutes et tous;
Après plusieurs essais de rectification sans succès, je fais recours à votre compétence pour modifier le code suivant qui marche
très bien et qui est lié à une Listbox avec laquelle j’effectue des modifications à des enregistrements existants sur ma feuille.

Mais, parfois je me trouve dans le cas d’ajouter à ma Listbox des nouveaux enregistrements parmi ceux qui sont à modifier
Donc, Je voulais modifier le code de telle sorte que si l’un des enregistrements chargés dans ma Listbox pour modification, n’est pas existant sur la feuille,
il s’ajoute automatiquement à la feuille

L’identification des enregistrements comme Existants ou Non-existant, se faite par :

> Un N° de document qui se trouve à Cel.Offset(, -3) qui est la colonne B et affiché à textbox99 de l’userform
> Et un code d'article qui se trouve à Cel.Value qui est la colonne E et qui correspond à ListBox3.List(i, 1)

D’après le code suivant, vous allez comprendre certes la structure et la forme des colonnes feuille par rapport aux colonnes listbox

NB: Pas forcément de garder le même code, si un autre code répond à la même fonction souhaitée.

Merci d’avance de votre aimable aide.

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
23
Dim Plage As Range
Dim Cel As Range
Dim i As Integer
 
With Sheets("DETAILS")
Set Plage = .Range(.Cells(3, 5), .Cells(.Rows.Count, 5).End(xlUp))
 
For Each Cel In Plage
For i = 0 To Me.ListBox3.ListCount - 1
If Cel.Value = Me.ListBox3.List(i, 1) And Cel.Offset(, -3).Value = Me.TextBox99 Then
 
Cel.Offset(, 2) = Me.ListBox3.List(i, 2)
Cel.Offset(, 3) = Me.ListBox3.List(i, 3)
Cel.Offset(, 4) = CDbl(Me.ListBox3.List(i, 4))
Cel.Offset(, 5) = CDbl(Me.ListBox3.List(i, 5))
Cel.Offset(, 6) = CDbl(Me.ListBox3.List(i, 6))
Cel.Offset(, 7) = CDbl(Me.ListBox3.List(i, 7))
Cel.Offset(, 8) = CDbl(Me.ListBox3.List(i, 8))
 
End If
Next i
Next Cel
End With

[patricktoulon]

re
Bonsoir
j'avoue ne pas comprendre ta demande
un exemple de fichier avec quelque ligne dans le sheet
et ton userform serait bien venu

j'avoue ne pas comprendre l'interet de la boucle sur les items de la listbox en general on retranscrit la ligne selectionnée d'une listbox dans le sheets

[DEMERSE]

Bonsoir patricktoulon
Je te remercie d’abord pour l’intérêt et réponse que tu as apportés à mon sujet.

Alors, j’ai essayé de faire un fichier exemple mais c’était un peu compliqué vu que ma BD elle-même est à structure un peu compliquée.

Donc j’essaie de te fournir plus d’éclaircissement afin que tu comprennes la fonction que je recherche.

Cette listbox est réservée sur mon USF pour des modifications d’ensemble pour des enregistrements existants sur une feuille nommée Détails.
Son alimentation par des enregistrements se faite par transfert d’une autre listbox multiselect.
C’est-à-dire, à partir de l’autre listbox2, je sélectionne les enregistrements à modifier et je les transfère vers la listbox3 à travers des textbox après avoir effectué les modifications nécessaires,
Ensuite je valide et la listbox3 joue son rôle avec tous enregistrements modifiés en détectant chaque enregistrement par 2 critères qui sont un N° de document et un N° de Code.
Ce que je voulais ajouter à la fonction de la listbox3, c’est que si un enregistrement qui se trouve parmi les enregistrements chargés à modifier,et il n’est pas existant dans la feuille, alors la listbox l’ajoute à la feuille dans une nouvelle ligne puisque chaque enregistrement est identifié par 2 critères qui sont un N° de document et un N° de Code, en plus, il n’est possible qu’un enregistrement puisse se retrouver en doublon.

Par exemple :
Je charge ma listbox par 6 enregistrements,
- 3 enregistrements existant sur la feuille et juste à modifier
- et 3 nouveaux enregistrements ajoutés
Quand je valide, la listbox doit modifier les enregistrements existant et, en plus, elle ajoute 3 nouveaux enregistrements à la feuille comme nouvelles lignes.

Voilà, j’espère avoir pu transmettre l’éclaircissement comme il faut
À votre disposition pour tout autre détail.

[DEMERSE]

Bonsoir à toutes et tous

Résolu avec WorksheetFunction.CountIf pour comparaison

Merci et bonne continuation à vous.