Bonjour,
la fonction "RechercheInfo(Siren As String) As String" a 1 paramètre et renvoie une valeur que l'on met dans une cellule.
Si l problème est un tout petit peu plus complexe, il faut changer d'approche. On peut appeler "RechercheInfo" qui mettra ses réponses dans plusieurs cellules.
Il suffit, par exemple, de lui passer le n° de la ligne en paramètre et la fonction rangera les infos dans les colonnes correspondantes.
Le proto de la fonction deviendra :
Function RechercheInfo(Siren As String, Ligne As Integer) As Boolean
en supposant, par exemple que la fonction renvoie VRAI si ça se passe bien et FAUX s'il y a une erreur.
Pour faire propre, tu peux déclarer les n° de colonnes en constantes.
1 2 3
| Const Col_Nom = 2
Const Col_Forme = 3
Const Col_Justice = 4 |
Ensuite pour écrire dans une cellule c'est facile :
1 2 3 4 5
| Cells (Ligne, Col_Nom) = LeNom
Cells (Ligne, Col_Forme = LaForme
Cells (Ligne, Col_Justice = LaJustice
RechercheInfo = True
Exit Function |
Ce ne sont que des exemples, à adapter.
Partager