Discussion :

[Muse31]

Bonjour,

J'ai créé un UserForm avec une ListBox contenant 2 colonnes sans doublons et des contrôles textbox à côté.

Quand je clique sur un des numéros de ma listbox, les informations s'affichent dans mes TextBox.
Les informations des premières cellules sont identiques pour le même numéro.
J'ai rajouté ce code dans mes TextBox pour que quand la valeur change, elle se change aussi dans le fichier excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With ListBox1
    [A:G].Find(.List(.ListIndex, 0), LookIn:=xlValues).Select
    ActiveCell.Offset(0, 2).Value = Me.Usine_Emettrice
    End With

Par contre, il change que la première ligne et pas les suivantes qui sont identiques.
Je pense qu'il faut utiliser une fonction Loop mais comment l'utiliser dans ce cas ?

Merci d'avance

[SfJ5Rpw8]

ben un coup de (c'est la touche en haut à gauche du clavier) sur find puis voir aussi.. et l'aide en ligne excel te donne la réponse...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim c As Range
Dim firstAddress As String
With ListBox1
   Set c = [A:G].Find(.List(.ListIndex, 0), LookIn:=xlValues)
   If Not c Is Nothing Then
       firstAddress = c.Address
      Do
         c.Offset(0, 2).Value = Me.Usine_Emettrice
         Set c = [A:G].FindNext(c)
      Loop While Not c Is Nothing And c.Address <> firstAddress
   End If
 End With

[Muse31]

Merci j'vais regardé l'aide en appuyant sur F1 mais il me semblait que c'était que pour une valeur.
Problème résolu.

[Muse31]

Bonjour,

Désolé mais en fait c'est pas résolu.
Il fait bien la mise à jour de mes cellules mais sans tenir compte de ma deuxième valeur de ma ListBox.

Merci d'avance

[Muse31]

Bonjour,

Est'il possible de faire un find avec plusieurs valeurs ?
Je voudrais faire une recherche des données contenues dans ma cellule A et G.
Aujourd'hui j'ai ce code là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With ListBox1
        [A:G].Find(.List(.ListIndex, 0), LookIn:=xlValues).Select
        Me.DateSAP = ActiveCell.Offset(0, 1).Value
        Me.DatRecpetion = ActiveCell.Offset(0, 7).Value
        Me.Usine_Emettrice = ActiveCell.Offset(0, 2).Value
        If ActiveCell.Offset(0, 8).Value = "Oui" Then
            Rep_MAP.Value = True
        Else
            Rep_MAP.Value = False
        End If
        Me.TextBox3 = ActiveCell.Offset(0, 3).Value
        Me.TextBox4 = ActiveCell.Offset(0, 4).Value
        Me.TextBox5 = ActiveCell.Offset(0, 5).Value
    End With

Ce code est contenue dans une ListBox. Mais ma listBox contient 2 valeurs Cellules A et G.

Est'il possible de le faire ?

Merci d'avance

[SfJ5Rpw8]

et c'est quoi la différence avec ;
MAJ de plusieurs cellules

[Muse31]

La différence c'est qu'il ne me prend pas en compte la deuxième valeur de ma ListBox.
La MAJ de plusieurs cellules fonctionne parfaitement sur la première valeur de ma ListBox.

[SfJ5Rpw8]

va falloir que tu fasse un dessin je comprends rien...

[Muse31]

Voilà je résume tout.
J'ai un UserForm qui contient une ListBox et plusieurs TextBox
Ma ListBox affiche les valeurs de mes colonnes A et G en retirant les doublons.
Mes ListBox doivent afficher les infos des cellules adjacentes en tenant comptes de eux données.

En fait mon soucis et que quand je sélectionne une valeur dans ma ListBox, il affiche les infos mais sans tenir compte de ma deuxième valeur.

Je te mets le fichier en pièce jointe. Fait un test avec le numéro 300089120 - 1 et 300089120 - 2 dans l'onglet affichage et modification.
Regarde la date de réception, elle ne change pas alors que dans le fichier Excel elles sont différentes.