1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

[excel] ActiveWorkbook.Names [Résolu]

Signaler
Messages postés
159
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
30 septembre 2011
 -
Messages postés
159
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
30 septembre 2011
 -
Bonjour,

Voici mon code:

ActiveWorkbook.Names.Add Name:="plage", RefersToR1C1:="=feuil1!R" & first_row & "C2:R" & last_row & "C21"

On Error Resume Next
    For Each cell In Selection
    cell.Value = Application.WorksheetFunction.VLookup(ActiveCell.Offset(0, -2), "plage", 3, False)
    MsgBox cell.Value
    Next cell
    On Error GoTo 0

Il semblerait que "plage" pose problème pour cette fonction.
Es-ce que quelqu'un peut m'aider?

Merci
Ludo
A voir également:

2 réponses

Réponse 1 / 2
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
 9
Salut,

remplace RefersToR1C1 par RefersTo

ActiveWorkbook.Names.Add Name:="plage", RefersTo:= "=feuil1!R" & first_row & "C2:R" & last_row & "C21"

A+
Réponse 2 / 2
Messages postés
159
Date d'inscription
jeudi 7 septembre 2006
Statut
Membre
Dernière intervention
30 septembre 2011
Ok, merci.
Répondre Posez votre question