Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
bonsoir,
une fonction capilotractée comme dirait Pierrejean ...
Code:
Function ATCHOUM(r As Range)
Dim feuille$, colR As Byte, valeur$
feuille = Left(r, 1)
colR = Asc(Right(r, 1)) - 62
valeur = Left(r, Len(r) - 1)
With Sheets(feuille)
x = Application.Index(.Columns(colR), Application.Match(valeur, .Columns(2), 0))
End With
If Not IsError(x) Then ATCHOUM = x
End Function
1/ sur le classeur 2 ouiverture cela semble fonctionner
2/ si je recopie cette macro dans 2 classeurs cela ne marche # valeurs
3/ dans mon classeur qui est important mes onglets se nomment x adresses / n adresses...
est ce une cause que la formule ne marche pas? il m'indique nom
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD