Bonjour à tous !
voila, je suis censé faire 2 fonctions, charger de reconnaitre le contenu de cellules.
L'une parcoure une colonne connu en cherchant le contenu et en renvoyant le ligne, l'autre fait le contraire.
J'ai dans un premier temps réussi à faire le parcours de colonne (qui renvoi la ligne avec la chaine "contenu") que voici :
pour appeler cette fonction, j'ai dans une autre feuille excel ce code :
apparemment il bug en me disant "erreur définie par l'application et par l'objet" erreur 1004 ... c'est à mon avis dut à un mauvais type, mais pour le moment je n'en sais pas plus .
des idées ? ??
merci d'avance
Excellement,
Arna
EDIT : désolé, apparemment les couleurs ne fonctionnent pas entre les balises code ...
voila, je suis censé faire 2 fonctions, charger de reconnaitre le contenu de cellules.
L'une parcoure une colonne connu en cherchant le contenu et en renvoyant le ligne, l'autre fait le contraire.
J'ai dans un premier temps réussi à faire le parcours de colonne (qui renvoi la ligne avec la chaine "contenu") que voici :
Code:
Public Function reconnaissanceLigne(contenu As String, colonne As Variant) As Integer
Dim ligne As Integer
ligne = 1 'on fait commencer la recherche à la première ligne
While ActiveSheet.Range(colonne & ligne).Value <> contenu
ligne = ligne + 1
Wend
reconnaissanceLigne = ligne 'on renvoit la valeur de ligne
End Function
cette fonction fonctionne parfaitement, et je n'ai pour le moment aucun soucis avec.
L'autre fonction, que je n'arrive pas à faire fonctionner est celle ci :
[CODE]
Public Function reconnaissanceColonne(contenu As String, ligne As Variant) As Variant
' méthode reconnaissant la valeur nomCellule en parcourant la ligne "ligne"
Dim colonne As Variant
colonne = 1 'on fait commencer la recherche à la première ligne[/COLOR]
While ActiveSheet.Range(colonne & ligne).Value <> contenu
colonne = colonne + 1
Wend
reconnaissanceColonne = colonne 'on renvoit la valeur de colonne
End Functionpour appeler cette fonction, j'ai dans une autre feuille excel ce code :
Code:
Private Sub CommandButton2_Click() 'test reconnaissance colonne
Dim contenu As String, ligne As Variant, colonne As Variant
ligne = InputBox("quelle ligne ? ", "recherche", 0)
contenu = InputBox("quelle chaine ? ", "recherche", 0)
colonne = ThisWorkbook.reconnaissanceColonne(contenu, ligne)
MsgBox colonne
End Subapparemment il bug en me disant "erreur définie par l'application et par l'objet" erreur 1004 ... c'est à mon avis dut à un mauvais type, mais pour le moment je n'en sais pas plus .
des idées ? ??
merci d'avance
Excellement,
Arna
EDIT : désolé, apparemment les couleurs ne fonctionnent pas entre les balises code ...
Dernière édition: