Bonjour,
J'ai un problème avec excel voici le code
Le message est
Le problème ce situe à la ligne suivante, seulement quand la feuille active n'est pas "parametres" :
Set celluletrouvee = Worksheets("parametres").Range(Cells(2, colonne), Cells(1000000, colonne)).Find(text, lookat:=xlWhole)
Ce code permet de faire une recherche dans une 'colonne' pour savoir à quel ligne mon texte ce situe. Ce code est appeler plusieurs fois dans le programme.
Je n'ai pas de problèmes si je fait une fonction avec par exemple : Range("H2", "I500000")
avec vous une idée du problème ?
J'ai un problème avec excel voici le code
Code:
Public Function recherche_indexcampagne(text As String, colonne As Integer)
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
'fonction de recherche de la ligne
Set celluletrouvee = Worksheets("parametres").Range(Cells(2, colonne), Cells(1000000, colonne)).Find(text, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("Erreur fonction recherche_indexcampagne")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
'MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If
recherche_indexcampagne = ligne
End Function
Le message est
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
Le problème ce situe à la ligne suivante, seulement quand la feuille active n'est pas "parametres" :
Set celluletrouvee = Worksheets("parametres").Range(Cells(2, colonne), Cells(1000000, colonne)).Find(text, lookat:=xlWhole)
Ce code permet de faire une recherche dans une 'colonne' pour savoir à quel ligne mon texte ce situe. Ce code est appeler plusieurs fois dans le programme.
Je n'ai pas de problèmes si je fait une fonction avec par exemple : Range("H2", "I500000")
avec vous une idée du problème ?
Dernière édition: