Discussion :

[Merryy]

Salut le forum,
aider moi svp , je suis vraiment bloqué ,
bref , j'ai une combobox qui recupére des valeurs d'un tableau a condition que la valeur choisi dans le combobox egale a une des valeurs qui se trouve dans un range du tableau, par contre , le range du tableau contient des valeurs répétés , mais tant qu'il est filtré en mode croissant , donc les valeurs se situent l'un après l'autre , pour cela j'ai fais un compteur qui me renvois le numero de repetition du valeur , en gros j'ai 2 action , si la valeur n'est pas répété , j'affiche les infos normale dans des cellules spécifique et sinon , je dois affiché les infos dans un autre endroit de la page , et la je suis coincé , quand il trouve une seule valeur , il affiche les infos normal , mais quand il trouve plus , c'est comme s'il affiche les infos de toutes les valeurs répétés

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub ComboBox1_Change()
Dim i, j As Integer
Dim c As Long
With Worksheets("OS")
s = 0
q = Sheets("Suivi OS").Range("A5").End(xlDown).Row
c = Sheets("OS").ComboBox1.Value
rept = 0
[A40:G80].ClearContents
 For i = 5 To q + i                  'le range ou les valeurs sont enregistrès
   If Sheets("Suivi OS").Cells(i, 1) = c Then
    With Worksheets("Suivi OS")
For j = 5 To q                            ' le compteur
If (Worksheets("OS").ComboBox1.Value) = .Cells(j, 1).Text Then
rept = rept + 1
End If
Next
End With
r = rept
 
'Si le nombre choisi dans le combobox n'existe qu'une seule fois
 
 
     If (r = 1) Then
     'MsgBox "1"
      .Cells(7, 2).Value = Sheets("Suivi OS").Cells(i, 9).Value
      .Cells(14, 1).Value = Sheets("Suivi OS").Cells(i, 6).Value
      .Cells(14, 5).Value = "Réf : " & Sheets("Suivi OS").Cells(i, 5).Value
      .Cells(14, 6).Value = "Qt : " & Sheets("Suivi OS").Cells(i, 8).Value
                        ...
 
 
  'si le nombre choisi dans le combobox est supérieur a 1 
 
      ElseIf (r >1) Then   ' la j'ai essayé elseif  et alse tte seule
      MsgBox "2"
      .Cells(14, 1).Value = "Voir Annexe"
      For f = 43 To 42 + r
       For k = i To (k - 1) + r
        .Cells(f, 1).Value = Sheets("Suivi OS").Cells(k, 6).Value
        .Cells(f, 4).Value = "Ref : " & Sheets("Suivi OS").Cells(k, 5).Value
        .Cells(f, 5).Value = "Qt : " & Sheets("Suivi OS").Cells(k, 8).Value
        .Cells(f, 6).Value = "Prix : " & Sheets("Suivi OS").Cells(k, 7).Value
        f = f + 1
         s = s + (Sheets("Suivi OS").Cells(k, 9).Value)
        Next k
         Next f
         .Cells(7, 2).Value = s
      .Cells(5, 2).Value = Sheets("Résumé").Cells(14, 9).Value
      .Cells(3, 2).Value = ("N°" & Sheets("Résumé").Cells(13, 9).Value)
    ...

[mayekeul]

bonjour,

je ne comprends pas exactement ce que tu veux faire mais pourquoi effectuer une boucle pour afficher les données en cas de répétitions si tu ne veux les afficher qu'une fois?

[Merryy]

parce que dans chaque ligne ya des informations différentes, et toutes ces lignes correspond au même référence , c'est ça .

[mayekeul]

ben donc, ils va te retourner x fois les même références

[Merryy]

nn , quand je le donne comme condition si la repetition egale à 2 fois par exemple , il me retourne les 2 lignes, mais moi je ne peux pas travailler comme ça , car elle peut être repeter meme 8 fois , donc je vais pas faire 8 conditions, et quand je fais plus q'une fois , il me retourne les lignes qui corresponds à toutes les variables qui sont répétés plus qu'une fois, c'est comme s'il sort pas de la boucle

[mayekeul]

c'est ce que je te dis
si il renvoie X ligne identiques, pourquoi demande tu à ton code de les traiter toutes?

[Merryy]

donc , comment je dois faire pour qu'il sort de la boucle quand il trouve la première variable qui se répété plus qu'une fois ?

mais normalement , il dois pas me donner ttes les variables , puisque déja dans la première conditions je lui demande de renvoyer que la valeur qui égale au variable sélectionner dans le combobox ,
je comprends rien

[mayekeul]

moi en gros, d'après ce que tu me dis, je mettrais simplement un VLOOKUP avec pour référence de recherche la valeur du combobox dans les cellules de destinations.

[Merryy]

Re - bonjour ,

elle fait quoi cette fonction ? et comment je peux l'utiliser
Merci