Erreur 1004 VBA

Erreur 1004 VBA - VB/VBA/VBS - Programmation

Marsh Posté le 24-08-2010 à 17:10:52    

Voila j'ai une erreur 1004 sur cette fonction VB et je ne sais d'ou elle vient ...
 
Pouvez vous m'aider ?
 

Code :
  1. Function RechercheColonne(numeroFeuille, colonneRecherchee)
  2.     Dim numeroColonneRecherchee As Integer
  3.     Do While colonneRecherchee <> Worksheets(numeroFeuille).Cells(1, numeroColonneRecherchee).Value
  4.         numeroColonneRecherchee = numeroColonneRecherchee + 1
  5.     Loop
  6.     RechercheColonne = numeroColonneRecherchee
  7. End Function


 
Voici également l'appel de ma fonction:
 

Code :
  1. Do While Worksheets(compteurFeuille).Cells(i, RechercheColonne(compteurFeuille, Worksheets(1).Cells(5, j).Value)).Value <> ""
  2.             Worksheets(1).Cells(k, j).Value = Worksheets(compteurFeuille).Cells(i, RechercheColonne(compteurFeuille, Worksheets(1).Cells(5, j).Value)).Value
  3.             k = k + 1
  4.             i = i + 1
  5.         Loop


 
Merci d'avance pour votre aide


---------------
L’impossible est déjà fait, pour les miracles prévoir un délai.
Reply

Marsh Posté le 24-08-2010 à 17:10:52   

Reply

Marsh Posté le 25-08-2010 à 08:19:56    

au 1er passage dans ta boucle, tu vérifie si la valeur passé en argument est différent de la valeur de la colonne 0, c'est de la que vient l'erreur. Juste avant la boucle met que numeroColonneRecherche = 1

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed