Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Cellules nommées non contigües NOMS et VB

Cellules nommées non contigües NOMS et VB

4 réponses
Avatar
dcq
Comment faire pour nommer des cellules en y ajoutant une cellule de plus

je voudrais pouvoir écrire quelque chose du genre

Pour ajouter une cellule :

ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:= "toto"+C1


mais également en enlevant une cellule :

ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:= "toto"-C1
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bon{j,s}o{u,i}r®
Tu peux essayer :

Sub ajoutatoto()
'ajoute la plage g26 : g29 à toto et colorie le résultat
ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:=Union(Range("toto"), Range("g26:g29"))
For Each c In Range("toto")
c.Interior.ColorIndex = 22
Next c
End Sub

Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"dcq" a écrit dans le message de news:cdo67a$lik$
Comment faire pour nommer des cellules en y ajoutant une cellule de plus

je voudrais pouvoir écrire quelque chose du genre

Pour ajouter une cellule :

ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:= "toto"+C1


mais également en enlevant une cellule :

ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:= "toto"-C1




Avatar
dcq
Merci mille fois, cela correspond à ma premiere question.
Reste simplement la seconde, comment enlever une cellule dans une plage
nommée

"Philippe.R" a écrit dans le message de
news:OV9r2h%
Bon{j,s}o{u,i}r®
Tu peux essayer :

Sub ajoutatoto()
'ajoute la plage g26 : g29 à toto et colorie le résultat
ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:=Union(Range("toto"),
Range("g26:g29"))

For Each c In Range("toto")
c.Interior.ColorIndex = 22
Next c
End Sub

Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"dcq" a écrit dans le message de
news:cdo67a$lik$

Comment faire pour nommer des cellules en y ajoutant une cellule de plus

je voudrais pouvoir écrire quelque chose du genre

Pour ajouter une cellule :

ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:= "toto"+C1


mais également en enlevant une cellule :

ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:= "toto"-C1








Avatar
AV
Ta question ne serait-elle pas "comment définir une plage dynamique" ?

AV
Avatar
dcq
Ce n'est pas impossible, mais en toute franchise mes incompétences excel
sont nombreuses, et je ne sais pas ce qu'est une plage dynamique.

En fait, je veux pouvoir ajouter ou enlever une cellule à une plage, lors de
l'exécution d'une macro qui ajoute un score, ou qui en enleve un. Sachant
qu'un score faut 8 lignes sur une trentaine de colonnes. Je sais juste, que
pour passer de la plage(toto) à la plage (toto_nouveau) il faudra enlever
ou ajouter une cellule qui se situera 8 cases au dessus de la plage
précédente.

Merci d'avance.



"AV" a écrit dans le message de
news:%23FONQD$
Ta question ne serait-elle pas "comment définir une plage dynamique" ?

AV