Discussion :

[Invité]

Voici le code qui pose problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[casefayere]

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[casefayere]

essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

car ce sont des formules

[casefayere]

Je te propose une adaptation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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