probleme dans une base de données

Re : probleme dans une base de données

Bonjour,

Tu peux modifier le code comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 1 And Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
Set MaZoneRef = Sheets("Feuil2").Range("B2:" & Sheets("Feuil2").Range("B65536").End(xlUp).Address)
NbRef = Application.CountIf(MaZoneRef, Target)
Select Case NbRef
Case 0: Target = "Ref error !"
Case Is >= 1
Target.Offset(0, 6) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 1).Resize(1, 1).Value
Target.Offset(0, 5) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 2).Resize(1, 1).Value
Target.Offset(0, 8) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 3).Resize(1, 1).Value
Target.Offset(0, 7) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 4).Resize(1, 1).Value
Target.Offset(0, 1) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 4).Resize(1, 1).Value
Target.Offset(0, 2) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 5).Resize(1, 1).Value
End Select
End If
Application.EnableEvents = True
End Sub

Il faut supprimer la liste dans la feuille :
Cliquer sur "Mode Creation" (barre d'outils Visual Basic)
La liste apparait, la supprimer.
Cliquer à nouveau sur "Mode Creation"

Re : probleme dans une base de données

Bonjour

dans le dernier fichier joint (calcul rendement Forum), j'ai un petit souci, en faite quotidiennement je copie beaucoup de références d'un autre fichier et je les colle dans la colonne REF PROD, les informations ne s'affichent pas directement, je suis obligé de faire F2 puis Entrée pour que le fichier affiche les données,
existe t-il une méthode pour que ça se fasse automatiquement sans a avoir a faire F2 puis entrés.

voilà le code du ma macro actuelle :

Public MaDest
Private Sub ListBox1_Click()
Sheets("Feuil1").Range(MaDest).Offset(0, 7) = Sheets("Feuil1").ListBox1.Column(1)
Sheets("Feuil1").Range(MaDest).Offset(0, 6) = Sheets("Feuil1").ListBox1.Column(2)
Sheets("Feuil1").Range(MaDest).Offset(0, 9) = Sheets("Feuil1").ListBox1.Column(3)
Sheets("Feuil1").Range(MaDest).Offset(0, 8) = Sheets("Feuil1").ListBox1.Column(4)
Sheets("Feuil1").Range(MaDest).Offset(0, 1) = Sheets("Feuil1").ListBox1.Column(4)
Sheets("Feuil1").Range(MaDest).Offset(0, 2) = Sheets("Feuil1").ListBox1.Column(5)
Sheets("Feuil1").Range(MaDest).Offset(0, 12) = Sheets("Feuil1").ListBox1.Column(6)
Sheets("Feuil1").ListBox1.Visible = False
ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 1 And Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
Set MaZoneRef = Sheets("Feuil2").Range("B2:" & Sheets("Feuil2").Range("B65536").End(xlUp).Address)
NbRef = Application.CountIf(MaZoneRef, Target)
Select Case NbRef
Case 0: Target = "Ref error !"
Case 1
Target.Offset(0, 7) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 1).Resize(1, 1).Value
Target.Offset(0, 6) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 2).Resize(1, 1).Value
Target.Offset(0, 9) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 3).Resize(1, 1).Value
Target.Offset(0, 8) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 4).Resize(1, 1).Value
Target.Offset(0, 1) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 4).Resize(1, 1).Value
Target.Offset(0, 2) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 5).Resize(1, 1).Value
Target.Offset(0, 12) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 6).Resize(1, 1).Value
Target.Offset(0, 14) = MaZoneRef.Offset(Application.Match(Target, MaZoneRef, 0) - 1, 7).Resize(1, 1).Value
Case Else
With Sheets("Feuil1").ListBox1
MaPos = Application.Match(Target, MaZoneRef, 0) - 1
.ListFillRange = "Feuil2!" & MaZoneRef.Offset(MaPos, 0).Resize(NbRef, 7).Address
.ColumnWidths = "40;120;40;30;30;30;30"
.Width = 345
.Visible = True
.Top = Target.Top
.Left = Target.Left
End With
MaDest = Target.Address
End Select
End If
Application.EnableEvents = True
End Sub

Re : probleme dans une base de données

Bonjour,

Il suffit de faire une boucle sur les cellules que tu auras copié.
Mais le probleme, c'est comment gérer les fois où la liste s'affichera et où il y aura un choix à faire.
Comment veux tu faire fontionner tout ça ?
Renseigner toutes les données pour lesquelles il n'y a pas besoin d'intervention "humaine" et afficher les listes pour les autres et que l'opérateur fasse un choix pour chacune ?...

Re : probleme dans une base de données

Bonjour Catrice

il y a peut etre une solution, quand j'entre les réf je met les réf uniques regroupés en premier lieu et après je met les références génériques regroupés,
est il possible de créer une macro avec un userforme dans lequel je sélactionne la plage surlaquelle je veux effectuer l'opération F2 puis entrée.

j'espère que cette proposition apporte la solution.

Merci d'avance.🙂

Re : probleme dans une base de données

Bonjour,

L'idée serait de boucler sur les Ref collées, mettre à jour les données pour lesquelles il n'y a pas d'ambiguité et mettre en couleur (par exemple) les cellules multi-choix.
En cliquant sur chaque cellule de couleur, une liste (comme dans la version actuelle) apparaitrait et permettrait de choisir la bonne Ref.

Si c'est ça que tu veux faire, je peux regarder mais je vais pas pouvoir le faire immédiatement ...

Re : probleme dans une base de données

Bonjour Catrice

je pense aussi que c'est une bonne solution,

merci d'avance.🙂

Re : probleme dans une base de données

Bonsoir,

ci-joint une solution bricolée sur le code existant, à optimiser ...

Une fois que tu as collé tes Ref, tu cliques sur le bouton.
Ca renseigne les valeurs uniques et identifie les multichoix.
Tu n'as plus qu'à aller renseigner les cellules marquées

Re : probleme dans une base de données

Bonjour Catrice
Bonjour le Forum

la solution proposée est excellente, je suis très reconnaissant.

🙂🙂😀😀

Merci encore