Discussion :

[DurDur]

Bonjour,

Je suis entrain de transcrire une application "ACCESS" sous "EXCEL".
Mes connaissances EXCEL étant pratiquement nulle, je me suis inspiré d'un modéle trouvé sur le net pour créer un formulaire.
Après mes modifications, le fonctionnement est satisfaisant sauf lors d'une recherche sur une colonne utilisant le code suivant :

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
Private Sub B_ok_Click()
  Me.ListBox1.Clear
  i = 0
  Set plage = f.[A:A]
  Set c = plage.Find(Me.MotCle, , , xlPart)
  If Not c Is Nothing Then
    premier = c.Address
    Do
      Me.ListBox1.AddItem
      lig = c.Row
      Me.ListBox1.List(i, 0) = plage.Cells(lig, 1)
      Me.ListBox1.List(i, 1) = lig
      i = i + 1
      Set c = plage.FindNext(c)
    Loop While Not c Is Nothing And c.Address <> premier
  End If
  pointeur = 0
  ligne = Me.ListBox1.List(pointeur, 1)
  affiche
End Sub

Tout fonctionne bien si le résultat de la recherche est concluant, sinon j'ai un message d'erreur sur la ligne :

ligne = Me.ListBox1.List(pointeur, 1)

Comment faire ?

Merci de votre aide.

JCB

[parmi]

Bonjour,

On ne sait pas trop ce que fait Affiche et encore moins d'où sortent les variables (non déclarées dans ce bout de code...)

J'essaierais comme ceci, si j'ai bien compris le problème...

Code :

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

1
2
3
4
5
If Me.Listbox1.ListCount > 0 Then
  pointeur = 0
  ligne = Me.ListBox1.List(pointeur, 1)
  affiche
End If

[DurDur]

Bonsoir,

Merci de cette réponse rapide qui fonctionne super.

Si je peux encore abuser,
Dans la ligne:

Code :

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

  Set plage = f.[A:A]

Peut-on remplacer " [A:A] " pour que la plage corresponde au nombre de lignes utilisées que j'ai déjà défini et stocké dans la variable "NbLigne".
La variable "f" correspond la feuille (sheets) utilisée.

Encore merci.

JCB

[parmi]

Code :

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

Set Plage = f.Range("F1:F" & nbLignes)

en supposant que f est une variable worksheet

[DurDur]

Merci pour cette réponse,
c'était bien le morceau de code que je cherchais.
Mon système de recherche actuel se fait indépendamment sur chaque colonne, ce qui alourdit le formulaire.
En faisant une recherche sur toute la feuille :

Code :

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

Set plage=f.[A1].CurrentRegion

le combobox contient des doublons, comment faire pour éviter cela ?

Merci pour ton aide.

JCB

[parmi]

Voici une façon de faire.
Dans l'exemple, le code lit la colonne A seulement, mais tu peux modifier au besoin du genre
For Each Cellule in Plage...

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
    Dim I As Long
    Dim nbLignes As Long
 
    With Sheets("Feuil1")
        nbLignes = .Cells(.Rows.Count, "A").End(xlUp).Row
 
        For I = 2 To nbLignes
            'Affecte la valeur lue au combobox
            ComboBox1 = .Range("A" & I)
            'Si la valeur n'est pas trouvée ListIndex = -1 et on ajoute cette valeur
            If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("A" & I)
        Next
    End With
 
    'Sélectionne la première entrée
    If ComboBox1.ListCount >= 0 Then ComboBox1.ListIndex = 0

[DurDur]

Bonjour,

Je vous remercie de votre réponse, avec beaucoup de retard, veuillez m'en excuser.

J'ai essayé de mettre en pratique ce code, sans succés.

Aprés reflexion, ce n'est plus nécessaire alor j'abandonne et je me tourne vers une autre solution.

MERCi beaucoup de votre attention.

JCB