Nommer une plage par VBA
Résolu/Fermé
A voir également:
- Nommer une plage de cellule variable vba
- Aller à la ligne dans une cellule excel - Guide
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image d’ours polaire sur une image de plage. retrouvez l'image originale de la plage. que cache l'ours polaire ? - Forum Loisirs / Divertissements
- Excel compter cellule couleur sans vba - Guide
- Affecter la valeur d'une cellule à une variable vba ✓ - Forum Bureautique
- Si cellule contient texte alors ✓ - Forum Excel
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
28 mars 2012 à 17:29
28 mars 2012 à 17:29
Bonjour
essaies
essaies
Dim fin As String
fin = Cells.Find("*", , , , , xlPrevious).Address
Sheets(1).Names.Add Name:="lazone", RefersTo:=" =$A$1:" & fin
Bonjour, j'ai essayé votre proposition, mais sans succès. Aucun message d'erreur, la plage n'est cependant pas nommé.
Merci de m'aider svp.
Merci de m'aider svp.
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
29 mars 2012 à 06:01
29 mars 2012 à 06:01
Désolé, mais comme d'habitude,j'avais testé avant d'envoyer une proposition et la zone était bien nommée
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 29/03/2012 à 06:45
Modifié par michel_m le 29/03/2012 à 06:45
il n(y a pas besoin de sélectionner au préalable par current;region d'autant plus qu'une règle de base de VBA déconseille formellement d'utiliser "select"
d'autre part "current.region " est assez piègée(colonne vide par ex) s'il y a des trous dans la zone à baptiser
"fin" donne l'adresse de la dernière cellule de la feuille ayant une donnée
si tu peux ou veux utiliser "current.region"
je viens de re-tester les 2 manières et c'est OK partout
d'autre part "current.region " est assez piègée(colonne vide par ex) s'il y a des trous dans la zone à baptiser
"fin" donne l'adresse de la dernière cellule de la feuille ayant une donnée
si tu peux ou veux utiliser "current.region"
Sub xxx()
Dim plage As String
plage = Range("A1").CurrentRegion.Address
Sheets(1).Names.Add Name:="coucou", RefersTo:=" =plage"
End Sub
je viens de re-tester les 2 manières et c'est OK partout
