> Tous les forums > Forum Bureautique
 erreur dans mon code VbaSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Gorfous
  Posté le 16/10/2016 @ 21:35 
Aller en bas de la page 
Petit astucien

Bonjour à tous,

Je travaille sous Excel 2003, pour la création d'un carnet de contact, je ne comprends pas la raison pour laquelle ces formules me bloque (marqué en rouge).
Je vous serai reconnaissant de bien vouloir me corriger en dessous des lignes qui posent problème, afin que je puisse comprendre, car je débute seulement en Vba.
Je suis bien entendu à votre entière disposition pour tout renseignements complémentaires.

Sub Cmd_Recherche_Change()
Dim recherche As String
Dim zoneRecherche, cellulesTrouvees As Range
lastRow As Long = activesheet.range("A & Rows.Count).End(xlUp).Row

recherche = txtRecherche.Text
Set recherche = ActiveSheet.Range("A2:a" & lastRow)
Set celulestrouvees = 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 Nouvelle_Recherche()
Usf_Recherche.Show
End Sub

Fonction rechercher (recherche As sting, zoneRecherche As variant) As Range 'ligne en rouge

Dim cellulesTrouvée As Range
Set cellulesTrouvées=zonerecherche.Find(What:=recherche, After:=ActiveCell, LookIn:=xlValue,SearchOrder:xlByRows, SearchDirection:=xlNext, MatchCase:=False)

If cellulesTrouvées Is Nothing Then
Set rechercher = Nothing
Else
Set rechercher = cellulesTrouvées
End If

End Function

Mon carnet en cours de réalisation :

http://www.cjoint.com/c/FJqtAEmdWmQ

Edit : Le lien donné par Morgane ne fonctionne plus

En images : Comment héberger un fichier sur Cjoint



Modifié par Gorfous le 16/10/2016 21:38
Publicité
rj390111
 Posté le 17/10/2016 à 10:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

DIM lastRow As Long il manque un Dim mais il ne faut alors pas de = ... derrière ou alors c'est Lastrow = ..... sans le as long

Dim cellulesTrouvée As Range or à la ligne suivante pas de s à trouvée

Set cellulesTrouvées ik y a s à trouvées et pas dans la déclaration d'où l'Erreur



Modifié par rj390111 le 17/10/2016 10:10
Gorfous
 Posté le 17/10/2016 à 22:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour rj390111,

Je vous remercie de m'avoir répondu en indiquant ou était l'erreur (j'avais vu le s manquant).

Je me lance en espérant arriver au bout.

Merci encore à vous.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
une erreur dans ma macro
sauter erreur dans une macro
code erreur 0xC00CEE2D
Excell 2007: erreur dans formule
Message d'erreur dans Outlook 2007
Message d'erreur windows dans office 2003
Macro introuvable / Erreur de compilation dans le module caché
Resolution message d'erreur dans formules
erreur dans une formule
vba erreur dans codification
Plus de sujets relatifs à erreur dans mon code Vba
 > Tous les forums > Forum Bureautique