perte de variable dans une macro

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : perte de variable dans une macro

adept

l'essayer c'est l'adepter...

Bonjour à tous,
Je débute en VBA, et Je souhaiterais avoir de l'aide sur la macro
ci-dessous:
Je me propose, à partir d'une liste Excel de noms
(récupérée depuis une requête brute depuis internet)
de sélectionner les lignes qui appartiennent à un critère donné.
Ces lignes seront stockées dans un onglet de sélection
On va réitérer cette recherche
jusqu'à temps qu'on ait tapé '*' pour tout arrêter.
Mais au deuxième critère rentré
la macro s'arrête:

Citation :

« Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie »

et je ne vois vraiment pas pourquoi.
Voici ma macro:

Code :

Sub Recherche()
Dim Recherche As String
Dim LBas As Integer
Dim Ligne As Integer
Dim LigneSel As Integer
'
' Recherche Macro
'
ActiveSheet.Name = "Feuil1"
ActiveCell.SpecialCells(xlLastCell).Select 'on va en fin de fichier
LBas = ActiveCell.Row ' récupérer son N° de ligne
Sheets.Add
Sheets("Feuil2" ).Select
Sheets("Feuil2" ).Name = "Selection"
Range("a1" ).Select
On Error GoTo erreur
Sheets("Feuil1" ).Select
LigneSel = 1
Recherche = "XX"
Do While Recherche <> "*"
Recherche = Application.InputBox(Prompt:="Tapez votre recherche," & vbCrLf & "puis cliquez sur Ok." & vbCrLf & "Le curseur déplacera la ligne dans l'onglet 'Selection'" & vbCrLf & "Faire * pour arrêter", Title:="Recherche", Default:="Tapez votre recherche", Type:=2)
If Recherche <> "*" Then
Range("a1" ).Select
Do
On Error GoTo erreur
Cells.Find(What:=Recherche, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
ActiveCell.EntireRow.Select
Selection.Cut
Ligne = ActiveCell.Row
Sheets("Selection" ).Select
ActiveSheet.Paste
LigneSel = LigneSel + 1
Cells(LigneSel, 1).Select
Sheets("Feuil1" ).Select
Ligne = Ligne + 1
Cells(Ligne, 1).Select
Loop Until Ligne > LBas
End If
GoTo Boucle
erreur:
Sheets("Feuil1" ).Select
Range("A1" ).Select
Boucle:
Loop
Fin:
End Sub

qui peut m'aider ?
D'avance merci

Publicité

devil_k

Ton message d'erreur, généralement c'est quand t'as une variable objet qui n'est plus assignée, ce qui pourrait être utile, c'est de dire sur quelle ligne ça plante
A mon avis, ça ne serait pas impossible que ça plante dès la première fois, mais que tu ne le vois pas à cause du "on error goto..." (J'ai déjà eu des soucis avec ma gestion d'erreur et une boucle perso)

AprilThe5th

D'accord avec le diable.
si tu ne mets pas de "resume" dans ta gestion d'erreur, ca plante à la seconde fois.

AprilThe5th

par ailleurs je suppose que ca plante en 30 vu que ta cells n'est pas affectée à une feuille d'aucun classseur...

jpcheck

Pioupiou

juste autre petit point, je suis pas sur qu'avoir une variable du nom de la procédure soit très pratique...

devil_k

Plutôt d'accord, autant dans un autre langage, pourquoi pas, autant en VBA, je le tenterais pas

adept

l'essayer c'est l'adepter...

Merci pour vos réponses
J'ai donc changé le nom de la variable de recherche,
mais pour l'instant c'est toujours la même chose.
Je suppose qu'il faut utiliser un With / End With
sauf que que je ne vois pas très bien comment l'utiliser:
30. with cells.find(what:= ...
37. activeSheet.paste
38. end.With
c'est ça ?
hum! je ne sais pas.
--
d'avance merci ...

jpcheck

Pioupiou

bon alors j'ai fait tourner ton code chez moi, j'ai quelques questions :
- ne confonds-tu pas

Code :

Activesheet.Name = "Feuil1"

Code :

Sheets("Feuil1" ).Activate

?
la gestion des boucles est une chose que tu n'as pas l'air de maîtriser bcp dans la mesure où je vois plusieurs goto dans tous les sens, c'est mauvais, car une fois sorti par l'exception, tu ne sais pas pkoi ton code a planté...

Tiens nous au courant

devil_k

J'ai pas tout compris à ce que tu voulais faire
ça plante au deuxième coup quand tu n'a pas de valeur sur ton Cells.find
Et puis les goto partout, je suis d'accord, c'est un peu dégueu
Du coup, je te propose une façon plus propre de faire tes tests...
la méthode find te renvoie un Range, du coup, tu déclare un objet Range (parceque pareil, les codes sans déclaration de variable, c'est le mal !), par exemple ra
tu affectes ton Cells.fin(blablabla...) à ton Range
Puis tu testes si l'objet est "Nothing" ou non
Je pense que ton code ne plantera plus...
Mais j'ai pas exactement compris ce que tu voulais faire, et je ne comprends pas les tenants et aboutissants de chaque ligne de code

adept

l'essayer c'est l'adepter...

Bonjour,
et merci de vos réponses.
Pour mieux faire comprendre mon but,
Je renvoie le code que j'ai un peu nettoyé:

Code :

Sub Recherche()
Dim Trouve As String
Dim LBas As Integer
Dim Ligne As Integer
Dim LigneSel As Integer
'
' Recherche Macro
'
ActiveSheet.Name = "Feuil1"
ActiveCell.SpecialCells(xlLastCell).Select 'on va en fin de fichier
LBas = ActiveCell.Row ' récupérer son N° de ligne
Sheets.Add
Sheets("Feuil2" ).Select
Sheets("Feuil2" ).Name = "Selection" 'je renomme cette nouvelle feuille "Selection"
Range("a1" ).Select 'et je me positionne sur la 1ère cellule
Sheets("Feuil1" ).Select 'je retourne à ma feuille Origine
LigneSel = 1
Trouve = "XX"
Do While Trouve <> "*"
Trouve = Application.InputBox(Prompt:="Tapez votre recherche," & vbCrLf & "puis cliquez sur Ok." & vbCrLf & "Le curseur déplacera la ligne dans l'onglet 'Selection'" & vbCrLf & "Faire * pour arrêter", Title:="Recherche", Default:="Tapez votre recherche", Type:=2)
If Trouve <> "*" Then
Range("a1" ).Select
Do
On Error GoTo erreur ' si je n'ai pas trouvé
Cells.Find(What:=Trouve, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
ActiveCell.EntireRow.Select 'alors je récupère toute la ligne
Selection.Cut 'je la supprime de ma feuille de travail
Ligne = ActiveCell.Row
Sheets("Selection" ).Select 'et je la colle dans ma feuille de sélection
ActiveSheet.Paste
LigneSel = LigneSel + 1
Cells(LigneSel, 1).Select 'à la ligne suivante dans l'onglet de sélection
Sheets("Feuil1" ).Select
Ligne = Ligne + 1
Cells(Ligne, 1).Select
Loop Until Ligne > LBas
End If
GoTo Boucle
erreur: 'je ne peux pas sortir la gestion des erreurs de la boucle
Sheets("Feuil1" ).Select
Range("A1" ).Select
Boucle:
Loop
Fin:
End Sub

J'appelle le 1er feuillet 'Feuil1' pour ne pas être embarrassé dans les appels de feuillets.
Donc ma feuille Origine s'appelle toujours 'Feuil1'
de même ma feuille de sélection
s'appellera toujours 'Selection'
-
Non je ne connais pas les différences entre:
sheets(« feuill1 »).activate
et sheets(« feuil1 »).select
mais je suis venu ici pour apprendre, étant auto-didacte
-
je ne sais pas comment éviter un
« on error goto... »
car si j'ai épuisé ma recherche,
je tombe en erreur.
Donc, dans ce cas, je réinitialise
ma cellule active en début de feuillet,
prêt à reprendre une nouvelle recherche.
-
Pour la gestion du 'Range',
comment puis-je faire ?

Code :

Dim Position as Range
...
Position=Cells.Find(What:=Trouve, After:=...
if Position is not null then ...

ce qui m'éviterait le « on error.. »
mais je ne connais pas la propriété d'un objet 'Range'
les aides VBA sont vraiment très succinctes,
il faut avoir la science infuse!
Sans vous demander la réponse toute faite,
ce que je ne veux pas,
pourriez-vous cependant me mettre sur la voie ?
D'avance merci!
--
Adept, paumé!

Message cité 1 fois

Publicité

jpcheck

Pioupiou

adept a écrit :

Bonjour,
et merci de vos réponses.
Pour mieux faire comprendre mon but,
Je renvoie le code que j'ai un peu nettoyé:

Code :

Sub Recherche()
Dim Trouve As String
Dim LBas As Integer
Dim Ligne As Integer
Dim LigneSel As Integer
'
' Recherche Macro
'
ActiveSheet.Name = "Feuil1" toujours pas d'accord avec ceci, si je lance la macro avec la feuil2 activée, ca plante
ActiveCell.SpecialCells(xlLastCell).Select 'on va en fin de fichier
LBas = ActiveCell.Row ' récupérer son N° de ligne
Sheets.Add
Sheets("Feuil2" ).Select
Sheets("Feuil2" ).Name = "Selection" 'je renomme cette nouvelle feuille "Selection"
Range("a1" ).Select 'et je me positionne sur la 1ère cellule
Sheets("Feuil1" ).Select 'je retourne à ma feuille Origine
LigneSel = 1
Trouve = "XX"
Do While Trouve <> "*"
Trouve = Application.InputBox(Prompt:="Tapez votre recherche," & vbCrLf & "puis cliquez sur Ok." & vbCrLf & "Le curseur déplacera la ligne dans l'onglet 'Selection'" & vbCrLf & "Faire * pour arrêter", Title:="Recherche", Default:="Tapez votre recherche", Type:=2)
If Trouve <> "*" Then
Range("a1" ).Select
Do
On Error GoTo erreur ' si je n'ai pas trouvé
Cells.Find(What:=Trouve, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
ActiveCell.EntireRow.Select 'alors je récupère toute la ligne
Selection.Cut 'je la supprime de ma feuille de travail
Ligne = ActiveCell.Row
Sheets("Selection" ).Select 'et je la colle dans ma feuille de sélection
ActiveSheet.Paste
LigneSel = LigneSel + 1
Cells(LigneSel, 1).Select 'à la ligne suivante dans l'onglet de sélection
Sheets("Feuil1" ).Select
Ligne = Ligne + 1
Cells(Ligne, 1).Select
Loop Until Ligne > LBas
End If
GoTo Boucle
erreur: 'je ne peux pas sortir la gestion des erreurs de la boucle
Sheets("Feuil1" ).Select
Range("A1" ).Select
Boucle:
Loop
Fin:
End Sub

J'appelle le 1er feuillet 'Feuil1' pour ne pas être embarrassé dans les appels de feuillets. ca c'est de la feignantise mal placée
Donc ma feuille Origine s'appelle toujours 'Feuil1'
de même ma feuille de sélection
s'appellera toujours 'Selection'
-
Non je ne connais pas les différences entre:
sheets(« feuill1 »).activate activate sert a mettre en premier plan la sheet en question
et sheets(« feuil1 »).select select fais comme si tu cliquais en haut à gauche de ta feuille> selection de toutes les cellules
mais je suis venu ici pour apprendre, étant auto-didacte
-
je ne sais pas comment éviter un
« on error goto... »
car si j'ai épuisé ma recherche,
je tombe en erreur.il faut donc revoir cette recherche
Donc, dans ce cas, je réinitialise
ma cellule active en début de feuillet,
prêt à reprendre une nouvelle recherche.
-
Pour la gestion du 'Range',
comment puis-je faire ?

Code :

Dim Position as Range
...
Position=Cells.Find(What:=Trouve, After:=...
if Position is not null then ...

voila de quoi commencer

devil_k

Perso, je ne vois AUCUNE différence entre sheets("truc" ).select et sheets("truc" ).activate

D'ailleurs, il y a plusieurs façons d'appeller une feuille, soit pas son nom comme tu le fais, soit par son index, du coup, par défaut, sheets("Feuil1" ) = sheets(1)

En effet, ton code plante si on se met sur la feuille 2 pour la simple et bonne raison qu'il tente de la renommer en "Feuil1" et qu'elle est déjà existante dans le classeur

un Range, c'est un objet, tu coup, ton affectation, tu la fais en faisant un "set"
ex : set position = Cells.find(...)

T'es sur la bonne voie

FORUM HardWare.fr

Programmation

VB/VBA/VBS

perte de variable dans une macro

Sujets relatifs
Affecter variable JSP a une variable Javascript	euh enregistreur de macro sous powerpoint 2007...
Passer une variable dans une fonction	valeur variable et fixe imbriqué
texarea name avec une variable	[Batch-Xp] Probleme de variable...
Perte de focus clavier inexpliqué, aide bienvenue !	[Batch-XP] "Unseter" une variable ?
Recherches valeur dans tableau => indication position (macro)	faire la somme des valeurs négatives dans une plage variable
Plus de sujets relatifs à : perte de variable dans une macro

Page générée en 0.093 secondes