Macro recherche

[dudule47]

Bonjour, je suis novice en terme de programmation VBA, toutefois je me rends bien compte que cela permet de faire des choses très intéressantes sous EXCEL. Voilà j'ai créé une liste, jusque là pas de problème, j'ai mis un bouton pour automatiser la saisie, maintenant je voudrais faire une recherche sur deux colonnes soit les cellules soit les communes, j'ai bidouillé à partir de ce que j'ai trouvé mais cela ne fonctionne pas, pouvez vous m'aider. Merci à tous

Voici le lien car le fichier est trop lourd

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[dudule47]

Re : Macro recherche

Bonjour, je crois avoir compris mon problème, lorsque je lance ma recherche, il ne trouve que les valeurs ou des lettres sont présentes, il ne trouve pas les valeurs composées uniquement de chiffre, si quelqu'un a une idée je suis preneur. Personne ne peut me venir en aide ?
Merci d'avance

 

[Hervé]

Re : Macro recherche

bonjour dudule

a essayer :

Private Sub Ok_Click()
Dim i As Integer, j As Integer
Dim bool As Boolean
 
Application.ScreenUpdating = False
 
Rows("1:65536").EntireRow.Hidden = False

If Not Me.Textbox1.Value = "" Then
    If Me.col_A_E = True Then
        For i = 2 To Range("A65536").End(xlUp).Row
            bool = False
            For j = 1 To 5
                If Cells(i, j).Value = Me.Textbox1.Value Then
                    bool = True
                End If
            Next j
            If bool = False Then Rows(i).EntireRow.Hidden = True
        Next i
    ElseIf Me.col_B = True Then
        For i = 2 To Range("B65536").End(xlUp).Row
            If Not Cells(i, 2).Text = Me.Textbox1.Value Then
                Rows(i).EntireRow.Hidden = True
            End If
        Next i
    End If
Else
    MsgBox "Il n'y a rien a rechercher !!!", vbExclamation + vbOKOnly, ""
    Me.Textbox1.SetFocus
End If
 
Application.ScreenUpdating = True

End Sub

salut

 

[dudule47]

Re : Macro recherche

Merci parfait, mon problème est résolu, je te remercie

 

[dudule47]

En effet, j'ai un nouveau problème, voilà j'ai dans mon fichier 52000 lignes, et lorsque je lance une rechercher il me dit qu'il y une erreur 6 et il precise dépassement de capacité, dans VBA, j'ai changé la valeur 65536 par une plus grande mais sans effet, avez vous une idée. Merci

 

[jeanpierre]

Re : Macro recherche

Bonjour dudule47, Hervé,

Modifie la déclaration de tes varaibles i et j.

Dim i As Long, j As Long

Avec Integer tu bloques à 32000 et quelques or tu as 52000 lignes d'où dépassement de capacité.

Bonne journée.

Jean-Pierre

 

[jeanpierre]

Re : Macro recherche

Re,

Trop rapide dans ma lecture et dans ma réponse.

Dim i As Long, j As Integer suffit.

Jean-Pierre

 

[dudule47]

Re : Macro recherche

Merci Jean Pierre la modification fonctionne, par contre la recherche est longue afficher le résultat, mais sinon cela marche bien merci encore de partager votre temps et vos connaissances.