parcour colonne bête et pas méchant !

[arnaoke]

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 :

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 Function

pour appeler cette fonction, j'ai dans une autre feuille excel ce 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 Sub

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 ...

 

[pierrejean]

Re : parcour colonne bête et pas méchant !

Bonjour arnaoke

A tester

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 Integer
colonne = 1 'on fait commencer la recherche à la première colonne
While ActiveSheet.cells(ligne,colonne).Value <> contenu
    colonne = colonne + 1
Wend

reconnaissanceColonne = colonne 'on renvoit la valeur de colonne
End Function

 

[arnaoke]

Re : parcour colonne bête et pas méchant !

bah .. c'est parfait ^^

apparemment nickel, meci bcp 😀

quelle est la diff entre range et cells ? mis à part le fait que range défini une plage

Excellement
Arna