Erreur 1004, erreur définie par l'application ou par l'objet
Bonjour,
J'ai créer un carnet d'adresse sous excel avec un fonction Ajouter. Ca fonctionne très bien.
Maintenant j'ai ajouté un bouton Rechercher . Lorsque je clique dans la case pour rechercher un nom j'ai le message erreur 1004
Voici ce que j'ai dans la macro :
Private Sub cmdRechercher_Click()
Dim recherche As String
Dim zoneRecherche, cellulesTrouvees As Range
Dim lastrow As Long
lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
recherche = txtRecherche.Text
Set zoneRecherche = ActiveSheet.Range("A3:A" & lastrows)
Set cellulesTrouvees = rechercher(recherche, zoneRecherche)
If cellulesTrouvees Is Nothing Then
MsgBox "Aucun résultat trouvé !", vbInformation, "Résultat de la recherche"
Else
cellulesTrouvees.Select
End If
End Sub
La ligne rouge pour affichage qui en fait est jaune dans la macro.
Qu'ai je oublié ou mal écrit ?
Merci de vos réponses
Papy
Bonsoir,
Dans la ligne rouge tu as mis un s final à lastrow alors que cette variable est déclarée précédemment sans s final.
Cdlt
Jacky
Bonsoir Jacky,
J'ai enlevé le S, et maintenant j'ai erreur 13
Dans mon carnet d'adresses j'ai 72 lignes donc 72 personnes.
J'ai aussi une erreur 13
Cette erreur 13 signifie qu'il y a incompatibilité de type pour la variable utilisée.
Est-ce que je peux vous donner toute ma macro pour vous puissiez voir où sont les erreurs ?
Et maintenant dans ma recherche, il me dit aucun résultat trouvé.
Private Sub cmdRechercher_Click()
Dim recherche As String
Dim zoneRecherche, cellulesTrouvees As Range
Dim lastrows As Long
lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
recherche = txtRecherche.Text
Set zoneRecherche = ActiveSheet.Range("A3:A" & lastrow)
Set cellulesTrouvees = rechercher(recherche, zoneRecherche)
If cellulesTrouvees Is Nothing Then
MsgBox "Aucun résultat trouvé !", vbInformation, "Résultat de la recherche"
Else
cellulesTrouvees.Select
End If
End Sub
Sub NouveaulAdherent()
'on ouvre la fenêtre contenant le formulaire d'ajout d'un nouvel adhérent
frmNouveau.Show
End Sub
Sub NouvelleRecherche()
'On ouvre la fenêtre contenant le formulaire de recherche
Range("A3").Select
frmRechercher.Show
End Sub
Function rechercher(recherche As String, zoneRecherche As Variant) As Range
Dim cellulesTrouvees As Range
Set cellulesTrouvees = zoneRecherche.Find(What:=recherche, After:=ActiveCell, LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If cellulesTrouvees Is Nothing Then
Else
Set rechercher = Nothing
End If
End Function
Merci de vos réponses.
Papy
Mais il y a toujours incompatibilité
Dim lastrows As Long
lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
"s" ou pas "s" that is the question!