Bonjour,
J’ai créé le code suivant (rechercher dernière cellule d’une plage et la nommer) qui fonctionne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Dim DerLigTaux As Long
TauxSheetName = "ModeOp" 'NOM DE FEUILLE
    LigTxDebut = 2
    ColTxDevise = "A"
With Sheets(TauxSheetName)
    DerLigTaux = .[A2].End(xlDown).Row
    .Range(ColTxDevise & LigTxDebut & ":" & ColTxDevise & DerLigTaux).Name = "Devise"
End With
Ensuite, je souhaiterais utiliser une variable à la place de la valeur de départ fixe (« A2 »). J’ai légèrement modifié le code ligne 7:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Dim DerLigTaux As Long
TauxSheetName = "ModeOp" 'NOM DE FEUILLE
    LigTxDebut = 2
    ColTxDevise = "A"
With Sheets(TauxSheetName)
    DerLigTaux = .[ColTxDevise & LigTxDebut].End(xlDown).Row
    .Range(ColTxDevise & LigTxDebut & ":" & ColTxDevise & DerLigTaux).Name = "Devise"
End With
L’erreur d’exécution 424 s’affiche. Selon l’aide, il s’agit d’un problème de qualificateur d’objet.
J’ai donc tenté de déclarer mes variables, exemple :
Dim ColTxDevise as String
Dim LigTxDebut as Long
Etc….
Mais cela ne fonctionne toujours pas.

Auriez-vous une idée ?

NB : J’aimerais trouver une solution sans utiliser le « .select »

Merci par avance pour votre aide.