Recherche sans résultat

Version imprimable

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:

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 :

Citation:

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

Comment faire ?

Merci de votre aide.

JCB

04/03/2015, 22h01
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:

1 2 3 4 5 If Me.Listbox1.ListCount > 0 Then pointeur = 0 ligne = Me.ListBox1.List(pointeur, 1) affiche End If
04/03/2015, 22h46
DurDur

Bonsoir,

Merci de cette réponse rapide qui fonctionne super.

Si je peux encore abuser,
Dans la ligne:

Code:

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
04/03/2015, 22h58
parmi

Code:

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

en supposant que f est une variable worksheet
05/03/2015, 15h06
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:

Set plage=f.[A1].CurrentRegion

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

Merci pour ton aide.

JCB

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:

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

09/03/2015, 14h52
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