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