[RESOLU ] [VBA] ERREUR 91 - FINDNEXT

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [RESOLU ] [VBA] ERREUR 91 - FINDNEXT

vb_user

Le partage de l'info...

Bonjour à tous,

Me revoilà, pour un nouveau problème.

J'ai une erreur 91 "Variable objet ou variable de bloc objet With Non défini"

Voici le code :

Code :

Option Explicit
Dim RechCel, ValRechCarte, PremCell, ValCel, ValCelTab, ValCarte As Variant
Dim ValDecoup As Variant
Sub Btn_test()
With Feuil1.Range("A:A" )
Set RechCel = .Find("BLABLA", , xlValues)
If Not RechCel Is Nothing Then
PremCell = RechCel.Address
Do
RechCel.Value = "BLA"
Set RechCel = .FindNext(RechCel)
Loop While Not RechCel Is Nothing And RechCel.Address <> PremCell
End If
Set RechCel = .Find("BLOUBLOU", , xlValues)
If Not RechCel Is Nothing Then
PremCell = RechCel.Address
Do
RechCel.Value = "BLOU"
Set RechCel = .FindNext(RechCel)
Loop While Not RechCel Is Nothing And RechCel.Address <> PremCell <=========== L'erreur survient ici.
End If

Merci de votre aide.

Message édité par vb_user le 12-08-2014 à 12:24:26

Publicité

Marc L

Bonjour,

merci de respecter les règles du forum en éditant le post et en balisant le code via l'icône appropriée …

vb_user

Le partage de l'info...

Bonjour,

Est-ce bon ainsi?

patrice33740

Avec la réponse, c'est facile.

Bonjour,

Lorsque tu écris :

Set RechCel = .FindNext(RechCel)
Loop While Not RechCel Is Nothing And RechCel.Address <> PremCell

Il se produit une erreur dans l’évaluation de RechCel.Address lorsque la
valeur n'est pas trouvée puisque RechCel est égal à Nothing

Il faut écrire :

Set RechCel = .FindNext(RechCel)
If RechCel Is Nothing Then Exit Do
Loop While RechCel.Address <> PremCell

---------------
Cordialement, Patrice

vb_user

Le partage de l'info...

Merci patrice.

Avec ce code

Code :

Set RechCel = .Find("BLABLA", , xlValues)
If Not RechCel Is Nothing Then
PremCell = RechCel.Address
Do
RechCel.Value = "BLA"
Set RechCel = .FindNext(RechCel)
If RechCel Is Nothing Then
Exit Do
End If
Loop While RechCel.Address <> PremCell
End If

C'est fonctionnel.

Bonne journée

Message édité par vb_user le 12-08-2014 à 10:44:27

patrice33740

Avec la réponse, c'est facile.

Re,

Lorsqu'il n'y a qu'un seule instruction dans la condition, au lieu de :

If RechCel Is Nothing Then
Exit Do
End If

Tu peux ecrite sur une seule ligne :

If RechCel Is Nothing Then Exit Do

---------------
Cordialement, Patrice

vb_user

Le partage de l'info...

Merci pour l'astuce.

J'ai un autre souci; Je sais pas si j'ouvre un autre sujet.

Il s'agit d'un bug Excel.

je m'explique.

Dans script lance des recherches de mots et renomme la cellule.
Mais à un moment, il repart à zéro et ne s'arrête jamais, j'ai donc intégré dans mon code, un if qui stoppe le script si la cellule est inférieur à une cellule précise, il doit s'arrêter. sauf que ma cellule A100 est considéré comme inférieur à A18.

Voici mon code pour vous éclaircir :
Cette condition permet d'instancier la variable qui va stopper ma boucle:

Code :

Select ...
Case Else
If ValStopRech = "" Then
ValStopRech = RechCel.Address
End If
End Select

Le bug survient ici :

Code :

Set RechCel = .FindNext(RechCel)
If RechCel Is Nothing Then
Exit Do
ElseIf RechCel.Address < ValStopRech Then
Exit Do
End If

J'ai mis le msgbox suivant :

msgbox RechCel.Address & " < " ValStopRech

Résultat :
$A$100 < $A$18;

J'ai dû passer par une méthode de split pour que ça marche :

Code :

decoup = Split(ValStopRech2, "$" )
decoup2 = Split(RechCel.Address, "$" )
ElseIf decoup2(1) < decoup(1) Then
Exit Do
End If

Pourquoi ce bug?

Merci pour vos réponses.

Message édité par vb_user le 12-08-2014 à 10:45:17

patrice33740

Avec la réponse, c'est facile.

Re,

RechCel.Address renvoie une chaine de caractères alphanumériques et
dans l'ordre alphabétique, le 0 étant avant le 8, il est normal que $A$100 soit avant $A$18

Tu aurais pu utiliser RechCel.Row qui renvoi le numéro de ligne sous forme de nombre et tu aurais eu le 18 avant le 100.

C'est une des raisons pour lesquelles il est préférable de déclarer correctement chaque variable
plutôt que de tout déclarer comme Variant !

Edit : Dans 99,9% des cas ce qui semble un Bug Excel est en réalité une erreur dans le développement !

Message édité par patrice33740 le 11-08-2014 à 17:36:22

---------------
Cordialement, Patrice

vb_user

Le partage de l'info...

J'ai suivi ta solution mais j'ai du faire des modification pour que ça marche :

Code :

Case Else
If ValStopRech = 0 Then
ValStopRech = RechCel.Row
End If
End Select
End Select
Set RechCel = .FindNext(RechCel)
If RechCel Is Nothing Or (RechCel.Row < ValStopRech + 1) Then Exit Do.

Merci.

Message édité par vb_user le 12-08-2014 à 10:45:38

vb_user

Le partage de l'info...

J'ai un autre souci.

Dans ma recherche, j'ai intégré un Sub pour changer de texte selon un valeur trouvée (ex : si dans ma recherche blabla, il trouve aussi le chiffre 1 alors dans ma modification il va mettre "la" en revanche si il trouve le chiffre 2 alors dans ma modification il va mettre "ici".)
Sauf que lors de la première exécution il fait les modifications "la" mais aucune "ici". C'est après la seconde exécution (vu qu'il n'existe plus de chiffre 1) qu'il va me mettre le 0.

Voici la procédure appelée:

Code :

Private Sub ProcCbOwner(LaIci As String)
Dim LI as String
If Not RechCel.Cells.Find("1", , xlValues) Is Nothing Then
LI = "la"
Else
LI = "ici"
End If
LaIci= LI

Dans mon script principale

Code :

Set RechCel = .Find("BLABLA", , xlValues)
If Not RechCel Is Nothing Then
PremCell = RechCel.Address
Do
ProcCbOwner LaIci
ValCel = RechCel.Value
ValCelTab = Split(ValCel, " " )
ValDecoup = UBound(ValCelTab)
Select Case ValCelTab(3) & " " & ValCelTab(4)
Case "RO RO"
RechCel.Value = LaIci & "LALO " & ValCelTab(ValDecoup - 1) & _
" " & ValCelTab(ValDecoup)
Case "RI RI"
RechCel.Value = LaIci & "LOLI " & ValCelTab(ValDecoup - 1) & _
" " & ValCelTab(ValDecoup)
Case Else
Select Case ValCelTab(3)
Case "BLU"
RechCel.Value = LaIci & "LOLU " & ValCelTab(ValDecoup - 1) & _
" " & ValCelTab(ValDecoup)
Case "BLO"
RechCel.Value = LaIci & "LELI " & ValCelTab(ValDecoup - 1) & _
" " & ValCelTab(ValDecoup)
Case Else
If ValStopRechCarte = 0 Then
ValStopRechCarte = RechCel.Row
End If
End Select
End Select

J'ai l'impression que ma recherche initial "BLABLA" se transforme en recherche "BLABLA 1". Parce qu'il saute les cellules contenant "BLABLA 2"

Je sais pas si c'est clair.

Message édité par vb_user le 12-08-2014 à 10:46:20

Publicité

Marc L

Partir du principe le VBA ne se trompant jamais ni ne décide quoique ce soit comme « sauter des cellules »,
c'est donc une erreur de conception et voilà tout !

En fait il manque dans la ligne … Ah zut, le code n'est toujours pas balisé ! …

vb_user

Le partage de l'info...

J'ai balisé le code en allant voir le bbcode de patrice.

Lorsque je passe par le sub ProcCbOwner, la valeur de la variable est changée.

vb_user

Le partage de l'info...

Du coup, j'ai tout balisé. Peux-tu m'aider maintenant?

Marc L

Solution évidente livrée sur un plateau en utilisant le Générateurs de macros,
si la recherche porte sur tous les mots commençant par "BLABLA" comme "BLABLA 1", "BLABLA 2", etc …
modifier alors la ligne n° … Avec quoi as-tu balisé ?‼ Certainement pas avec l'icône dédiée au code ‼ :sarcastic:

Bref la recherche doit être effectuée avec le paramètre "BLABLA*" …

vb_user

Le partage de l'info...

Je me suis mal exprimé Marc.

Disons que dans mon fichier Excel, j'ai :

A1 = "ffsdfsdfsfsd BLABLA 1 kfsdhfshdklruos,ldufvsorbnhsoifgenrnfojzse"
A2 = "ffsdfsdfsfsd BLABLA 2 fvsdfsdf"
A3 = "ffsdfsdfsfsd BLABLA 1 rbnhsoifgenrnfojzse"
A4 = "ffsdfsdfsfsd BLABLA 2 kfsdhfshdklruos,"

Avec mon script, le résultat final sera ainsi :
A1 = "la BLABLA"
A2 = "ici BLABLA"
A3 = "la BLABLA"
A4 = "ici BLABLA"
...

Je cherche le terme dans la cellule et je le modifie dans un texte plus clair.
Je passe par une procédure supplémentaire afin d'ajouter à mon texte final "la" ou "ici.

Si je supprime ma procédure ProcCbOwner, il me modifiera l'ensemble des cellulles soit A1 à A4. Si je l'active, il ne me modifie que A1 et A3.

Ce qui fait que ta solution ne me convient pas.

Ps : je vais modifier le balisage avec la bonne balise C/C++.

Message édité par vb_user le 12-08-2014 à 10:48:34

vb_user

Le partage de l'info...

Marc vous avez raison sur un point la solution est évidente.
Je m'explique dans mon script ligne 7 (vive le balisage ) . Je découpe ma recherche, il suffisait de récupérer l'information dans la "découpe" pour modifier ma variable LI.

J'ai cherché compliqué alors que c'était simple.

Merci à vous 2.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[RESOLU ] [VBA] ERREUR 91 - FINDNEXT

Sujets relatifs
[RESOLU] [VBA] - EXCEL 2010 - Optimisation de code	HELP pour comparaison de cellules VBA
Help SVP "erreur d'exécution 13 incompatibilité de type, vba"	VBA - creer tableau dans word
L'indice n'appartient pas à la sélection, VBA Excel	Demande de réunion VBA Excel/Outlook
Liens Hypertexte dans Listbox VBA	Help SVP "sous-répertoires VBA"
[PDO] erreur avec fetchColumn	Protection feuille VBA sauf userform
Plus de sujets relatifs à : [RESOLU ] [VBA] ERREUR 91 - FINDNEXT

Page générée en 0.086 secondes