PB erreur 1004 - VBA et INDEX, EQUIV
Bonjour le forum
d'après l'aide de Excel, on peut faire appel aux fonctions des feuilles de calcul de Excel par le VBA, en utilisant
Mais j'ai un problème quand j'utilise la fonction EQUiV dans ma macro :
En fait il plante en disant que le quantificateur Application n'est pas adapté. Alors une fois enlevé, il envoie une nouvelle erreur :
Erreur d'éxécution '438'
Propriété ou méthode non générée par cet objet
Je sollicite donc les ames bienveillantes, qui jusqu'ici m'ont toujours véritablement aidé dans ce projet de gestion
Bonjour le forum
d'après l'aide de Excel, on peut faire appel aux fonctions des feuilles de calcul de Excel par le VBA, en utilisant
Code:
Application.WorksheetFunction.[I]lafonction[/I]
Mais j'ai un problème quand j'utilise la fonction EQUiV dans ma macro :
Code:
Dim NumLigneRecherche As Variant
Dim PlageRecherche As Range
Set PlageRecherche = Range(Cells(1, 2), Cells(LigneSuivante, 2))
NumLigneRecherche = Application.WorksheetFunction.EQUIV(NbDevis, PlageRecherche, 0)
If WorksheetFunction.ESTNA(NumLigneRecherche) = True Then
If DateReception = Cells(5, NumLigneRecherche).Value Then
Cells(LigneSuivante, 7).Value = "En cours"
Else
Cells(LigneSuivante, 7).Value = "Réouvert"
End If
End If
En fait il plante en disant que le quantificateur Application n'est pas adapté. Alors une fois enlevé, il envoie une nouvelle erreur :
Erreur d'éxécution '438'
Propriété ou méthode non générée par cet objet
Je sollicite donc les ames bienveillantes, qui jusqu'ici m'ont toujours véritablement aidé dans ce projet de gestion
Dernière édition: