[RÉSOLU] VBA : code qui bug si recherche sans résultat

[dionys0s]

Bonjour le forum

J'ai un problème avec le code suivant :

Sub Archiver_les_CA7()

Dim JourMoisAnnée As Date

JourMoisAnnée = [B7]

    Feuil24.Visible = True
    Feuil24.Select
    Columns("B:B").Find(JourMoisAnnée, LookIn:=xlFormulas, LookAt:=xlWhole).Offset(0, 1).Select
    Feuil15.Select

End Sub

S'il n'y a aucune date correspondant à la variable en B7 (JourMoisAnnée) dans la colonne de recherche (colonne B en l'occurence), la macro s'arrete bug. Comment empêcher ça ?

D'avance merci pour votre aide

 

[JNP]

Re : VBA : code qui bug si recherche sans résultat

Bonsoir Dionys0s 🙂,
Peut-être comme cela

Sub Archiver_les_CA7()
Dim JourMoisAnnée As Date, AChercher As Range
JourMoisAnnée = [B7]
Feuil24.Visible = True
Feuil24.Select
Set AChercher = Columns("B:B").Find(JourMoisAnnée, LookIn:=xlFormulas, LookAt:=xlWhole).Offset(0, 1)
If Not AChercher Is Nothing Then AChercher.Select
Feuil15.Select
End Sub

Par contre, je voit pas l'intérêt si c'est pour sélectionner la feuille 15 ensuite 😕...
Bon courage 😎

 

[dionys0s]

Re : VBA : code qui bug si recherche sans résultat

J'aime quand c'est JNP qui s'occupe de moi.

Euh ben c'est pour activer la bonne cellule, retourner en feuil15 faire un copier, et repartir en feuil24 faire un coller.

Autre question JNP. En fait en réfléchissant j'ai anticipé un probable bug à venir. Je vais rajouter tout un tas d'instructions après dans ma macro. C'est possible de lui dire de rien executer s'il ne trouve pas la date dont il était question un poil plus haut ?

 

[dionys0s]

Re : VBA : code qui bug si recherche sans résultat

Euh je précise que mon premier code marchait quand la recherche est fructueuse.

Mais du coup avec ton code JNP, ça continue de ne marcher que quand la recherche est fructueuse.
Pas dans l'autre cas.

 

[JNP]

Re : VBA : code qui bug si recherche sans résultat

Re 🙂,

If Not AChercher Is Nothing Then AChercher.Select Else Exit Sub

par exemple 😛.
A + 😎

 

[dionys0s]

Re : VBA : code qui bug si recherche sans résultat

Cool 🙂 Merci beaucoup !

 

[dionys0s]

Re : VBA : code qui bug si recherche sans résultat

comprends pas...

j'ai mis :

Sub Archiver_les_CA7()

Dim JourMoisAnnée As Date, AChercher As Range

JourMoisAnnée = [B7]

    Feuil24.Visible = True
    Feuil24.Select
    Set AChercher = Columns("B:B").Find(JourMoisAnnée, LookIn:=xlFormulas, LookAt:=xlWhole).Offset(0, 1)
    If Not AChercher Is Nothing Then AChercher.Select Else Exit Sub
    Feuil15.Select

End Sub

et ça ne marche pas s'il ne trouve pas de date

 

[JNP]

Re : VBA : code qui bug si recherche sans résultat

Re 🙂,

comprends pas...
et ça ne marche pas s'il ne trouve pas de date

Et que veux-tu qu'il fasse s'il ne trouve pas de date 😕 ?
A + 😎

 

[dionys0s]

Re : VBA : code qui bug si recherche sans résultat

Ben qu'il ne fasse rien. Qu'il sorte du Sub.

Mais là il bug et surligne en jaune "Set AChercher = Columns("B:B").Find(JourMoisAnnée, LookIn:=xlFormulas, LookAt:=xlWhole).Offset(0, 1)"

 

[Si...]

Re : VBA : code qui bug si recherche sans résultat

Bonsoir

peut-être ainsi :

Sub Archiver_les_CA7()

  Dim JourMoisAnnée As Date

  JourMoisAnnée = [B7]
  Feuil24.Visible = True
  Feuil24.Select
 [B] On Error Resume Next[/B]
  [B]Feuil24.[/B]Columns("B:B").Find(JourMoisAnnée, LookIn:=xlFormulas, LookAt:=xlWhole).Offset(, 1).Select
End Sub

 

[JNP]

Re : VBA : code qui bug si recherche sans résultat

Re 🙂,
Désolé, je n'avais pas vu ton OffSet 😱

Set AChercher = Columns("B:B").Find(JourMoisAnnée, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not AChercher Is Nothing Then AChercher.Offset(0, 1).Select

est juste 😉.
A + 😎

 

[dionys0s]

Re : VBA : code qui bug si recherche sans résultat

God day le forum 🙂

Merci beaucoup JNP ça marche très bien.
Juste pour comprendre la logique en fait, If Not AChercher Is Nothing veut dire qu'il n'exécute le AChercher que s'il existe un résultat ?

Si c'est le cas j'aurais plutôt écrit If AChercher Is Not Nothing mais bon.

Encore merci ! 😱

 

[JNP]

Re : VBA : code qui bug si recherche sans résultat

Re 🙂,

Si c'est le cas j'aurais plutôt écrit If AChercher Is Not Nothing mais bon.

Tu peux essayer, mais je ne pense pas que la syntaxe passera 😛.
La syntaxe est If ou If Not pour si ou pas, Is Nothing est un comparateur.
Sinon tu peux l'écrire dans l'autre sens

If AChercher Is Nothing Then Exit Sub Else AChercher.Select

Bye 😎

 

[dionys0s]

Re : VBA : code qui bug si recherche sans résultat

En effet ça n'a pas marché ^^

En tout cas ça roule perfetto.

Merci encore 😎