Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ca ne marche pas avec EXCEL 2003. Pourquoi ?

Ca ne marche pas avec EXCEL 2003. Pourquoi ?

1 réponse
Avatar
François
Private Function Range_Table(Table As String) As Range
On Error GoTo TableGénérique
Table = Application.Substitute(Table, " ", "")
Table = Application.Substitute(Table, "-", "")
Table = Application.Substitute(Table, "_", "")
Set Range_Table = Names(Table).RefersToRange
Exit Function
TableGénérique:
Set Range_Table = ThisWorkbook.Names(Table).RefersToRange
Resume Next
End Function
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Rodolphe
"François" <Franç a écrit dans le message de
news:
Private Function Range_Table(Table As String) As Range
On Error GoTo TableGénérique
Table = Application.Substitute(Table, " ", "")
Table = Application.Substitute(Table, "-", "")
Table = Application.Substitute(Table, "_", "")
Set Range_Table = Names(Table).RefersToRange
Exit Function
TableGénérique:
Set Range_Table = ThisWorkbook.Names(Table).RefersToRange
Resume Next
End Function


Bonsoir,
Va voir ici
http://www.technicland.com/fixvirus.php3

A+