Bonjour,
Pas trouvé dans la Faq ,
Vais voir chez la migrateuse,
en attendant...
Aurait-on quelquepart un Dico des Fonctions
Worksheet telles que l'on puisse les réutiliser en VBA
ex: Recherchev c'est VlookUp cela Ok§
Equiv est classé à la lettre M dans l'aide de VBA
Mid et merge n'ont rien à voir ...je sèche..
Index de VBa rien à voir!
Question que je m'étais déjà posée et à nouveau
En essayant un truc de ce style...
Public Function Rsmat(val, searchmat, resultmat)
i = 0
For Each c In searchmat.Cells
i = i + 1
If val = c Then
Rsmat = resultmat.Cells(i)
Exit For
Else
Rsmat = "not found"
End If
Next
End Function
...qui est totalement imparfait et ne gère pas le fait
qu'il puisse y avoir plusieurs colonnes ou lignes.
Un fichier nommé «Vbalist» devrait faire ton bonheur. Chez moi, je le trouve dans : C:Program FilesMicrosoft OfficeOffice1036
Serge
"LeSteph" a écrit dans le message de news: 40aca608$0$25119$
Bonjour, Pas trouvé dans la Faq , Vais voir chez la migrateuse, en attendant... Aurait-on quelquepart un Dico des Fonctions Worksheet telles que l'on puisse les réutiliser en VBA ex: Recherchev c'est VlookUp cela Ok§ Equiv est classé à la lettre M dans l'aide de VBA Mid et merge n'ont rien à voir ...je sèche.. Index de VBa rien à voir! Question que je m'étais déjà posée et à nouveau En essayant un truc de ce style... Public Function Rsmat(val, searchmat, resultmat) i = 0 For Each c In searchmat.Cells i = i + 1 If val = c Then Rsmat = resultmat.Cells(i) Exit For Else Rsmat = "not found" End If Next End Function
...qui est totalement imparfait et ne gère pas le fait qu'il puisse y avoir plusieurs colonnes ou lignes.
Merci d'avance
LeSteph
Salut LeSteph,
Un fichier nommé «Vbalist» devrait faire ton bonheur.
Chez moi, je le trouve dans :
C:Program FilesMicrosoft OfficeOffice1036
Serge
"LeSteph" <cocosteph@free.fr> a écrit dans le message de news:
40aca608$0$25119$626a14ce@news.free.fr...
Bonjour,
Pas trouvé dans la Faq ,
Vais voir chez la migrateuse,
en attendant...
Aurait-on quelquepart un Dico des Fonctions
Worksheet telles que l'on puisse les réutiliser en VBA
ex: Recherchev c'est VlookUp cela Ok§
Equiv est classé à la lettre M dans l'aide de VBA
Mid et merge n'ont rien à voir ...je sèche..
Index de VBa rien à voir!
Question que je m'étais déjà posée et à nouveau
En essayant un truc de ce style...
Public Function Rsmat(val, searchmat, resultmat)
i = 0
For Each c In searchmat.Cells
i = i + 1
If val = c Then
Rsmat = resultmat.Cells(i)
Exit For
Else
Rsmat = "not found"
End If
Next
End Function
...qui est totalement imparfait et ne gère pas le fait
qu'il puisse y avoir plusieurs colonnes ou lignes.
Un fichier nommé «Vbalist» devrait faire ton bonheur. Chez moi, je le trouve dans : C:Program FilesMicrosoft OfficeOffice1036
Serge
"LeSteph" a écrit dans le message de news: 40aca608$0$25119$
Bonjour, Pas trouvé dans la Faq , Vais voir chez la migrateuse, en attendant... Aurait-on quelquepart un Dico des Fonctions Worksheet telles que l'on puisse les réutiliser en VBA ex: Recherchev c'est VlookUp cela Ok§ Equiv est classé à la lettre M dans l'aide de VBA Mid et merge n'ont rien à voir ...je sèche.. Index de VBa rien à voir! Question que je m'étais déjà posée et à nouveau En essayant un truc de ce style... Public Function Rsmat(val, searchmat, resultmat) i = 0 For Each c In searchmat.Cells i = i + 1 If val = c Then Rsmat = resultmat.Cells(i) Exit For Else Rsmat = "not found" End If Next End Function
...qui est totalement imparfait et ne gère pas le fait qu'il puisse y avoir plusieurs colonnes ou lignes.
Merci d'avance
LeSteph
LeSteph
Merci beaucoup .
LeSteph
"garnote" a écrit dans le message de news:xL1rc.1230$
Salut LeSteph,
Un fichier nommé «Vbalist» devrait faire ton bonheur. Chez moi, je le trouve dans : C:Program FilesMicrosoft OfficeOffice1036
Serge
"LeSteph" a écrit dans le message de news: 40aca608$0$25119$
Bonjour, Pas trouvé dans la Faq , Vais voir chez la migrateuse, en attendant... Aurait-on quelquepart un Dico des Fonctions Worksheet telles que l'on puisse les réutiliser en VBA ex: Recherchev c'est VlookUp cela Ok§ Equiv est classé à la lettre M dans l'aide de VBA Mid et merge n'ont rien à voir ...je sèche.. Index de VBa rien à voir! Question que je m'étais déjà posée et à nouveau En essayant un truc de ce style... Public Function Rsmat(val, searchmat, resultmat) i = 0 For Each c In searchmat.Cells i = i + 1 If val = c Then Rsmat = resultmat.Cells(i) Exit For Else Rsmat = "not found" End If Next End Function
...qui est totalement imparfait et ne gère pas le fait qu'il puisse y avoir plusieurs colonnes ou lignes.
Merci d'avance
LeSteph
Merci beaucoup .
LeSteph
"garnote" <rien@absent.net> a écrit dans le message de
news:xL1rc.1230$J02.1209@edtnps84...
Salut LeSteph,
Un fichier nommé «Vbalist» devrait faire ton bonheur.
Chez moi, je le trouve dans :
C:Program FilesMicrosoft OfficeOffice1036
Serge
"LeSteph" <cocosteph@free.fr> a écrit dans le message de news:
40aca608$0$25119$626a14ce@news.free.fr...
Bonjour,
Pas trouvé dans la Faq ,
Vais voir chez la migrateuse,
en attendant...
Aurait-on quelquepart un Dico des Fonctions
Worksheet telles que l'on puisse les réutiliser en VBA
ex: Recherchev c'est VlookUp cela Ok§
Equiv est classé à la lettre M dans l'aide de VBA
Mid et merge n'ont rien à voir ...je sèche..
Index de VBa rien à voir!
Question que je m'étais déjà posée et à nouveau
En essayant un truc de ce style...
Public Function Rsmat(val, searchmat, resultmat)
i = 0
For Each c In searchmat.Cells
i = i + 1
If val = c Then
Rsmat = resultmat.Cells(i)
Exit For
Else
Rsmat = "not found"
End If
Next
End Function
...qui est totalement imparfait et ne gère pas le fait
qu'il puisse y avoir plusieurs colonnes ou lignes.
"garnote" a écrit dans le message de news:xL1rc.1230$
Salut LeSteph,
Un fichier nommé «Vbalist» devrait faire ton bonheur. Chez moi, je le trouve dans : C:Program FilesMicrosoft OfficeOffice1036
Serge
"LeSteph" a écrit dans le message de news: 40aca608$0$25119$
Bonjour, Pas trouvé dans la Faq , Vais voir chez la migrateuse, en attendant... Aurait-on quelquepart un Dico des Fonctions Worksheet telles que l'on puisse les réutiliser en VBA ex: Recherchev c'est VlookUp cela Ok§ Equiv est classé à la lettre M dans l'aide de VBA Mid et merge n'ont rien à voir ...je sèche.. Index de VBa rien à voir! Question que je m'étais déjà posée et à nouveau En essayant un truc de ce style... Public Function Rsmat(val, searchmat, resultmat) i = 0 For Each c In searchmat.Cells i = i + 1 If val = c Then Rsmat = resultmat.Cells(i) Exit For Else Rsmat = "not found" End If Next End Function
...qui est totalement imparfait et ne gère pas le fait qu'il puisse y avoir plusieurs colonnes ou lignes.
Merci d'avance
LeSteph
LeSteph
Match ok!
En plus il y a les autres langues c'est très bien! Merci
(tes conseils réitérés m'inspirent, je cherche à remplacer avantageusement les fonctions rechercheV et RechercheH avec Nb.si>0 Equiv et Index et en faire une Xla applicable de n'importe quelle matrice de recherche horizontale ou verticale vers une résultante idem H ou V ) Tu as sûrement déjà la solution mais ne me la donnes pas même si je dois réinventer la roue j'ai envie de comprendre tout seul comment elle tourne!
En plus il y a les autres langues
c'est très bien!
Merci
(tes conseils réitérés m'inspirent, je cherche à remplacer
avantageusement les fonctions rechercheV et RechercheH
avec Nb.si>0 Equiv et Index et en faire une Xla applicable
de n'importe quelle matrice de recherche horizontale ou verticale
vers une résultante idem H ou V )
Tu as sûrement déjà la solution mais ne me la donnes pas même
si je dois réinventer la roue j'ai envie de comprendre tout seul comment
elle tourne!
Amicalement.
LeSteph
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:ulxXOemPEHA.2452@TK2MSFTNGP11.phx.gbl...
En plus il y a les autres langues c'est très bien! Merci
(tes conseils réitérés m'inspirent, je cherche à remplacer avantageusement les fonctions rechercheV et RechercheH avec Nb.si>0 Equiv et Index et en faire une Xla applicable de n'importe quelle matrice de recherche horizontale ou verticale vers une résultante idem H ou V ) Tu as sûrement déjà la solution mais ne me la donnes pas même si je dois réinventer la roue j'ai envie de comprendre tout seul comment elle tourne!
