MAJ de plusieurs cellules

Version imprimable

11/09/2006, 21h52
Muse31

MAJ de plusieurs cellules
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:

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

ben un coup de :f1: (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:

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

11/09/2006, 22h57
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.

find avec plusieurs cellules

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:

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

12/09/2006, 20h29
SfJ5Rpw8

:? et c'est quoi la différence avec ;
MAJ de plusieurs cellules
12/09/2006, 20h31
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.
12/09/2006, 20h38
SfJ5Rpw8

va falloir que tu fasse un dessin je comprends rien...:aie:
12/09/2006, 20h50
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.

pas le temps ce soir ... mais modifie ton code :
Code:

1 2 3 4 5 6 With ListBox1 MsgBox "je cherche : " & .List(.ListIndex, 0) [A:G].Find(.List(.ListIndex, 0), LookIn:=xlValues).Select
et regarde ce que tu cherche dans les colonnes A à G ...(a,b,c,d,e,f,g..)

J'ai mis ce code là sans utiliser la fonction Find :

Code:

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
Private Sub ListBox1_Click()
    Dim a As Range
    Dim b As Range 'ligne de la plage
    Dim yDerLigne As Integer
 
    With Sheets("suivi")
        yDerLigne = .Range("A65535").End(xlUp).Row
        Set a = .Range(.Range("A6"), .Range("AQ" & yDerLigne))
    End With
    For Each b In a.Rows
    With ListBox1
        If .ListIndex < 0 Then Exit Sub
        If .List(.ListIndex, 0) = CStr(b.Cells(1)) And .List(.ListIndex, 1) = CStr(b.Cells(7)) Then
        DateSAP.Value = b.Cells(2)
        DatRecpetion.Value = b.Cells(8)
        Usine_Emettrice.Value = b.Cells(3)
        If b.Cells(9) = "Oui" Then
            Rep_MAP.Value = True
        Else
            Rep_MAP.Value = False
        End If
        MSN_Detect.Value = b.Cells(4)
        Designation.Value = b.Cells(6)
        Plan_Detect.Value = b.Cells(5)
        localisation.Value = b.Cells(10)
        Prob_Suj.Value = b.Cells(11)
        End If
    End With
    Next
 
End Sub

Ce code me permet d'afficher les valeurs dans mes textBox en fonction de mes deux valeurs contenues dans ma ListBox mais est'il possible de le faire avec la fonction Find??

Je n'ai pas bien réussi à saisir le fond du problème...

Si tu veux faire une recherche de deux valeurs à la fois, tu peux soit les concaténer et faire un find sur la concaténation, soit si les deux valeurs ne se suivent pas faire deux find imbriqués l'un dans l'autre, genre tu cherches la première valeur puis tu regardes si le texte de ta cellule contient également ta deuxième valeur. exemple de procédure
Code:

1 2 3 4 5 6 7 set cellulecible=rgcellule.find "TaPremièreValeur" for i=1 to len(cellulecible.value) if mid(textecellule,i,len("TaDeuxièmeValeur"))="TaDeuxièmeValeur" then 'Le code que tu veux exécuter si le double find est vérifié endif next i
Ensuite tu fais un findnext pour ta valeur suivante...

P.S:j'ai écris le code sans excel donc il est possible qu'il y ait certaines fautes mais dans l'ensemble c'est l'idée ;)

J'espère que c'est ça que tu cherchais

Citation:

Envoyé par Muse31

J...Ce code me permet d'afficher les valeurs dans mes textBox en fonction de mes deux valeurs contenues dans ma ListBox mais est'il possible de le faire avec la fonction Find??

find c'est la fonction recherche d'excel .. menu edition rechercher..? peu-tu avec cette fonction faire une recherche simultané de deux valeurs différentes dans deux colonnes..?

tu peu utilser ta méthode .. avec find puis find/next... tu recherche dans la premiére colonne.. et pour chaque valeur trouvé tu teste la seconde colonne en gros :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Dim c As Range dim btrouve as boolean Dim firstAddress As String With ListBox1 Set c = [A:A].Find(.List(.ListIndex, 0), LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do if c.Offset(0,6) = .List(.ListIndex, 1) then msgbox "Trouvé " & c.Address btrouve =true exit do endif Set c = [A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With if btrouve c.Offset(1.....' CODE A COMPLETER.. ! Pas besoin D'ActiveCell... endif

13/09/2006, 19h18
Muse31

J'ai l'impression que ce n'est pas clair et ça l'ai pas.
Désolé mais je crois que j'ai mélangé deux choses en même temps. :oops: :(

Citation:

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

En fait c'est la même chose. Je vais fermer ce sujet pour réouvrir la MAJ de plusieurs cellules.

Merci de vous être casser la tête.
13/09/2006, 19h20
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
13/09/2006, 19h44
SfJ5Rpw8

Citation:

Envoyé par Muse31

....En fait c'est la même chose. Je vais fermer ce sujet pour réouvrir la MAJ de plusieurs cellules.
....

j'ai fusionné les deux discussions pour avoir l'historique... as tu essayé d'adapter le code 3 post plus haut : http://www.developpez.net/forums/sho...0&postcount=12
13/09/2006, 20h14
Muse31

Oui j'ai essayé mais koi que je fasse il ne trouve jamais la valeur.
La MessBox ne s'affiche jamais.
Je regarde et j'essaye de voir où sa bug.
13/09/2006, 20h46
SfJ5Rpw8
tiens une execution avec un point d'arrêt sur le if .. ma permis (gâce à l'info bulle qui apparaît lorsque tu passe la souris sur une variable ) que le code suivant effectué la comparaison de 1 et "1" ... un nombre et une chaine rajoute Cstr..
Code:

1 2 3 Do If CStr(c.Offset(0, 6)) = .List(.ListIndex, 1) Then

Bon j'ai mis ce code là :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim a As Range
    Dim b As Range 'ligne de la plage
    Dim yDerLigne As Integer
 
    With Sheets("suivi")
        yDerLigne = .Range("A65535").End(xlUp).Row
        Set a = .Range(.Range("A6"), .Range("AQ" & yDerLigne))
    End With
    For Each b In a.Rows
    With ListBox1
        If .ListIndex < 0 Then Exit Sub
        If .List(.ListIndex, 0) = CStr(b.Cells(1)) And .List(.ListIndex, 1) = CStr(b.Cells(7)) Then
        b.Cells(2) = DateSAP.Value
        End If
    End With
    Next

Il fonctionne. Le code proposé avant me modifie qu'une seule celluel.
Avant de mettre résolu, j'aimerais comprendre ce morceau :

Code:

Loop While Not c Is Nothing And c.Address <> firstAddress

Merci

Citation:
Envoyé par Muse31
Bon j'ai mis ce code là :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim a As Range Dim b As Range 'ligne de la plage Dim yDerLigne As Integer With Sheets("suivi") yDerLigne = .Range("A65535").End(xlUp).Row Set a = .Range(.Range("A6"), .Range("AQ" & yDerLigne)) End With For Each b In a.Rows With ListBox1 If .ListIndex < 0 Then Exit Sub If .List(.ListIndex, 0) = CStr(b.Cells(1)) And .List(.ListIndex, 1) = CStr(b.Cells(7)) Then b.Cells(2) = DateSAP.Value End If End With Next
Il fonctionne. Le code proposé avant me modifie qu'une seule celluel.
Avant de mettre résolu, j'aimerais comprendre ce morceau :

Code:

Loop While Not c Is Nothing And c.Address <> firstAddress

Merci
et elle est ou la ligne Loopt dans ce code ..? (évite de tout mélanger..)

je t'ai déjà répondu .. plus haut mais ( voir :f1:) voici une copie de ce que tu peu voir grâce à la fameuse touche :

Citation:

FindNext, méthode
...
Notes

Lorsque la recherche atteint la fin de la plage de recherche spécifiée, elle revient au début de cette plage. Pour arrêter une recherche lorsqu'elle revient au point de départ, enregistrez l'adresse de la première cellule trouvée, puis comparez l'adresse de chaque cellule ultérieurement trouvée avec l'adresse enregistrée.

13/09/2006, 21h20
Muse31

Ok Merci. Sinon je n'ai pas utilisé la fonction Loop ou find Next car j'aimerais mieux les comprendre.
Donc je vais les étudier pour pouvoir les utiliser et peut être améliorer mon code.