Erreur d'éxécution sur un Find dont la valeur recherchée est variable

Voici le code qui pose problème :

Code:

---

1 2 3 4 5 6

ActiveSheet.Unprotect "pwd" Dim Sem As Long Sem = InputBox("Entrez le numéro rechercher", "Recherche") Dim Co As Integer Co = Range("A2").EntireRow.Find(Sem, LookAt:=xlWhole).Column MsgBox Co

---

Lorsque je lance cette macro à partir d'un bouton j'ai une erreur d’exécution 91 : Variable ou objet de bloc with non défini sur le second Find

Ma ligne 2 (où je fais ma recherche) comprend plusieurs premières colonnes différentes d'un nombre et ensuite j'ai une formule qui me donne 1111122222333334444 (un chiffre par cellule jusque 30) ... j'ai essayé de ne mettre qu'une fois les chiffres et pas plusieurs fois d'affilé et le problème reste le même. Je souhaite récupérer la valeur de la première colonne comporte le chiffre 2 si je met 2 dans mon input box par exemple.

J'ai aussi essayé de faire Co = Range("A2").EntireRow.Find(2, LookAt:=xlWhole).Column mais j'ai la même erreur ...

Merci d'avance pour votre aide.

Bonjour,
(toi, également, tu aurais pu bonjour ;))

J'ai testé ton code et n'ai pas eu de problème, peut-être faut-il vérifier le format de tes cellules ou voir si des espaces inutiles sont dans celles-ci.

Bonne journée

Ah effectivement Bonjour le forum je m'excuse pour cette impolitesse =) j'ai voulu aller trop vite!

Je te remercie d'avoir testé mon code, ça me rassure un peu que la syntaxe soit bonne, mais du coup le problème n'en ai que plus complexe à trouver.

Concernant mes cellules elles sont remplies par la formule " = Semaine(case situé en dessous)" Cette fameuse case étant une date

Et la formule semaine est un module dont le code à été récupéré sur ce forum

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'--------------------------------------------------------------------------------------- Public Function Semaines(LaDate As Variant) As Variant '--------------------------------------------------------------------------------------- ' Procedure : Semaine ' Date : vendredi 21 décembre 2007 13:56 ' Auteur : Maxence Hubiche (mhubiche@club-internet.fr - 06.18.61.14.35) ' Objet : Renvoie le numéro de la semaine pour le calendrier français ' Spec : Cette fonctino empèche le débordement en semaine 53, en mettant les jours ' de la semaine 53 en semaine 1 ' Retour : Renvoie un Byte (n° de la semaine) ou Null si l'argument n'était pas une date '--------------------------------------------------------------------------------------- ' Dim bytTemp As Byte If IsDate(LaDate) Then bytTemp = CByte(DatePart("ww", LaDate, vbMonday, vbFirstFourDays)) Mod 53 If bytTemp = 0 Then bytTemp = 1 Semaines = bytTemp Else Semaines = Null End If End Function

---

Donc le format de ma cellule est standard, mais le problème peut donc venir de la formule que j'utilise ?

essayes comme ça :

Code:

---

Co = Range("A2").EntireRow.Find(Sem, Range("A2"), LookIn:=xlValues, lookat:=xlWhole).Column

---

car ce sont des formules

Je te propose une adaptation :

Code:

---

1 2 3 4 5 6

Dim Sem As Integer Dim Co As Integer, dercol As Long dercol = Cells(2, Columns.Count).End(xlToLeft).Column Sem = InputBox("Entrez le numéro rechercher", "Recherche") Co = Range("A2").EntireRow.Find(Sem, Cells(2, dercol), LookIn:=xlValues, lookat:=xlWhole).Column MsgBox Co

---

Merci beaucoup les deux solutions fonctionnent très bien!!!! Pour bien comprendre pourrais-tu m'expliquer quel est l'avantage de la seconde?

Si tu fait un test avec la première, et si tu as 2 en A2 et en B2, le résultat sera 2
avec la deuxième solution, le résultat sera 1 parce qu'on commence la recherche après la dernière cellule valide de la plage

C'est effectivement ce que je voulais!! Merci beaucoup pour ton aide!