Définir un nom sous VBA

Version imprimable

Bonsoir,
Cette sub me retourne l'erreur "Objet requis" à la ligne

Code:

Set NomADefinir = Range("A1").Value

Avez-vous une idée de ce qui cloche?
Alain

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub DefinirNom()
'
' Définir un nom
'
Dim DerniereLigne As Integer
Dim ColonneNom As String
Dim NomADefinir As String
Dim PlageNomADéfinir As Range
 
Set NomADefinir = Range("A1").Value
Set DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Set PlageNomADéfinir = Range("A2:A" & DerniereLigne & "")
 
    ' Définir le nom
    ActiveWorkbook.Names.Add Name:=NomADefinir, RefersToR1C1:=Range("A2:A" & DerniereLigne & "")
 
    ' Afficher le résultat
    MsgBox nom
End Sub

15/06/2010, 20h19
Pierre Fauconnier

Bonjour

Pour les variables simples (variables qui ne pointent pas vers des objets), il ne faut pas utiliser SET devant la variable

Merci Pierre,
Avec la correction cela fonctionne !
Alain

Code:

1
2
3
NomADefinir = Range("A1").Value
DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Set PlageNomADéfinir = Range("A2:A" & DerniereLigne & "")