VBA : Edition => Rechercher impossible (ctrl + F)

[dionys0s]

Bonjour le forum 🙂

Je pensais en avoir fini avec ce genre de questions, mais non. Je ne comprends pas pourquoi le code suivant ne marche pas. C'est un bête ctrl F et il plante. Normalement il devrait trouver une réponse, mais non. Voici le code :

Sub Résumé()

Application.ScreenUpdating = False

Sheets(Sheets.Count).Select
Dim MoisConcerné As String
MoisConcerné = Range("B1").Value
Sheets(Sheets.Count - 1).Select
Dim DernièreColonne
DernièreColonne = Range("IV1").End(xlToLeft).Column
Range(Cells(1, 23), Cells(1, DernièreColonne)).Select
Cells(1, 23).Activate

    Selection.Find(What:=MoisConcerné, After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Column

End Sub

A l'exécution j'ai le message d'erreur "Variable objet ou variable de bloc with non définie"
Any idea ?

Merci beaucoup pour votre aide.

 

[tototiti2008]

Re : VBA : Edition => Rechercher impossible (ctrl + F)

Bonjour dionysos,

Column renvoie un numéro de colonne
tu ne l'affectes pas à une variable
que veux-tu en faire ?

Selection.Find(What:=MoisConcerné, After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Column

 

[job75]

Re : VBA : Edition => Rechercher impossible (ctrl + F)

Bonjour dionys0s,

Votre code revu :

Sub Résumé()
Dim MoisConcerné As String, DernièreColonne As Integer, cel As Range
MoisConcerné = Sheets(Sheets.Count).Range("B1")
Sheets(Sheets.Count - 1).Activate
DernièreColonne = Range("IV1").End(xlToLeft).Column
Range(Cells(1, 23), Cells(1, DernièreColonne)).Select
Set cel = Selection.Find(What:=MoisConcerné, LookIn:=xlFormulas, LookAt:=xlPart)
If cel Is Nothing Then
  MsgBox "Mois introuvable..."
Else
  cel.Activate 'si c'est ce que vous voulez faire...
End If
End Sub

- il faut qu'il y ait au moins 2 feuilles

- pas terribles les Activate, Select, Selection, en VBA ça ne sert généralement à rien.

Mais enfin, ne sachant pas trop ce que vous voulez faire avec la cellule trouvée, je les ai laissés.

Edit : bonjour tototiti

A+

 

[dionys0s]

Re : VBA : Edition => Rechercher impossible (ctrl + F)

Re le forum

Merci pour vos réponses.
Tototiti, tu as raison. Mais même en remplaçant le Column par Select, ça ne marche pas. En fait c'est pour une fonction sommeprod dont je dois définir les plages (donc la colonne). J'ai un mois concerné, dans la dernière feuille, et il doit aller chercher les infos dans l'avant dernière feuille. J'ai donc bien au moins 2 feuilles dans mon classeur.
Merci job75 pour votre code. Il fonctionne, mais il me met "mois introuvable" alors qu'il existe dans la zone de recherche... Vraiment étrange.

Bien d'accord avec vous pour les activate, select et selection en VBA, mais n'y arrivant pas j'ai un peu tout tenté en décomposant au maximum... Sans succès?

 

[job75]

Re : VBA : Edition => Rechercher impossible (ctrl + F)

Re,

Merci job75 pour votre code. Il fonctionne, mais il me met "mois introuvable" alors qu'il existe dans la zone de recherche... Vraiment étrange.

Peut-être en utilisant LookIn:=xlValues ??? Mais sans fichier c'est la boule de cristal.

C'est une épidémie sur ce forum ou quoi ? Même après 329 posts, pas moyen d'obtenir un fichier 😕

A+

 

[dionys0s]

Re : VBA : Edition => Rechercher impossible (ctrl + F)

Re,

ça ne marche pas non plus.
Je n'ai pas mis de fichier car je ne pensais pas qu'il était nécessaire (je me disais que le problème ne venait que du code), et puis le fichier est très lourd et nécessite une préparation un peu longuette, que je vais me résoudre à faire.

Merci pour votre patience et votre aide en tout cas.