Discussion :

[alainb]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set NomADefinir = Range("A1").Value

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Bonjour

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

[alainb]

Merci Pierre,
Avec la correction cela fonctionne !
Alain

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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