spolnix | Voila j'ai une erreur 1004 sur cette fonction VB et je ne sais d'ou elle vient ...
Pouvez vous m'aider ?
Code :
- Function RechercheColonne(numeroFeuille, colonneRecherchee)
- Dim numeroColonneRecherchee As Integer
- Do While colonneRecherchee <> Worksheets(numeroFeuille).Cells(1, numeroColonneRecherchee).Value
- numeroColonneRecherchee = numeroColonneRecherchee + 1
- Loop
- RechercheColonne = numeroColonneRecherchee
- End Function
|
Voici également l'appel de ma fonction:
Code :
- Do While Worksheets(compteurFeuille).Cells(i, RechercheColonne(compteurFeuille, Worksheets(1).Cells(5, j).Value)).Value <> ""
- Worksheets(1).Cells(k, j).Value = Worksheets(compteurFeuille).Cells(i, RechercheColonne(compteurFeuille, Worksheets(1).Cells(5, j).Value)).Value
- k = k + 1
- i = i + 1
- Loop
|
Merci d'avance pour votre aide ---------------
L’impossible est déjà fait, pour les miracles prévoir un délai.
|