Bonjour à tous,
Je suis nouvelle sur ce forum, et cela fait deux jours que j'essaye de comprendre mon problème en allant sur les différents forum.
Alors j'ai un classeur excel, dans lequel je souhaite récupérer les données d'un autre classeur. Pour cela dans le classeur 1 feuille 1 j'ai en A1 la valeur 3. Je souhaite mettre dans A2 les différentes cellules qui ont la valeur 3 du classeur 2. Un peu comme la fonction rechercheV mais avec toutes les cases qui ont la valeur 3. J'ai donc créé une macro, qui fonctionne quand je recherche dans le même classeur, mais pas quand c'est pour l'autre classeur.
Voici ma macro :
Function RechTous(v, champRech As Range, ChampRetour As Range, separateur)
a = champRech
temp = ""
For i = 1 To champRech.Count
If a(i, 1) = v Then
temp = temp & ChampRetour(i) & separateur
End If
Next i
RechTous = Left(temp, Len(temp) - 1)
End Function
Dans la cellule A3 je met : =RechTous(A1;'[Classeur2.xls]Feuil1'!B6:B60;'[Classeur2.xls]Feuil1'!E6:E60;",")
Et quand je valide, cela m'affiche #valeur!
En vous remerciant par avance Apolline
Je suis nouvelle sur ce forum, et cela fait deux jours que j'essaye de comprendre mon problème en allant sur les différents forum.
Alors j'ai un classeur excel, dans lequel je souhaite récupérer les données d'un autre classeur. Pour cela dans le classeur 1 feuille 1 j'ai en A1 la valeur 3. Je souhaite mettre dans A2 les différentes cellules qui ont la valeur 3 du classeur 2. Un peu comme la fonction rechercheV mais avec toutes les cases qui ont la valeur 3. J'ai donc créé une macro, qui fonctionne quand je recherche dans le même classeur, mais pas quand c'est pour l'autre classeur.
Voici ma macro :
Function RechTous(v, champRech As Range, ChampRetour As Range, separateur)
a = champRech
temp = ""
For i = 1 To champRech.Count
If a(i, 1) = v Then
temp = temp & ChampRetour(i) & separateur
End If
Next i
RechTous = Left(temp, Len(temp) - 1)
End Function
Dans la cellule A3 je met : =RechTous(A1;'[Classeur2.xls]Feuil1'!B6:B60;'[Classeur2.xls]Feuil1'!E6:E60;",")
Et quand je valide, cela m'affiche #valeur!
En vous remerciant par avance Apolline