SELECTION CELLULES NOMMEES

[SHINTRA]

BONJOUR TOUT LE MONDE


Je seche sur un probleme, peut etre que qq un aura une silution

J'ai des cellule nommé ( ex: A1 = test , A15 = test1; A25= test2)
je souhaiterais selectionner (par un code VBA ) chaque cellule nomme de nom classeur + Un nombre de cellule Definie ( ex +5 ligne +5 colonnes )

Ex : selection avec Test A1:E5 test 2 A15:E20, ...etc


est ce que vous pouvez m aider SVP

Merci d'avance

 

[SHINTRA]

Avec un exemple peut etre un peu plus parlant ?

merci
[file name=Shintra.zip size=6099]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Shintra.zip[/file]

 

[SHINTRA]

Re hello

Une piste que j ai commencer a suivre mais sans resultats

sniff
sniff

count =0
For i= 1 to 'Name trouve dans le fichier '.count
If 'Name trouve dans le fichier '<> '' then 
set x = 'Name trouve dans le fichier '(i)
range( x , cells(x+5,x+5)).slect
selection .clearcontents

 

[Hervé]

Bonsoir

un début de piste avec se code :

Public Sub toto()
Dim noms
Dim plage As Range
Dim i As Integer

Set noms = ActiveWorkbook.Names

For i = 1 To noms.Count
    Set plage = Range(noms(i).RefersToRange.Address(0, 0))
    Range(Cells(plage.Row, plage.Column), Cells(plage.Row + 4, plage.Column + 4)).Select
    With Selection
    'ici le code que tu veux utiliser pour ta sélection
    End With
Next i
End Sub

salut

 

[SHINTRA]

Merci Bcp Hervé

le code que m a donner est super
C'est le type de fonction que je cherchais il ne fonction pas en l'etat mais grace a toi j'ai le noms des fonctions a utiliser donc je devrais pouvoir trouver ?

de que c'esr fait je PM

Encore Merci

Ps (le Pb ce citue apparament dans l'identification des noùms de plages )

 

[Hervé]

bonjour le forum, shintra

si si le code fonctionne en l'état, mais comme je ne savais pas ce que tu voulais faire avec, j'ai juste sélectionner les plages, 🙂

petites précisions :

noms(i).RefersToRange.Address(0, 0)=te donne la référence de la cellule auquelle est attaché le nom (A1,A15,....)

noms(i).name = te donne le nom du nom ( 😱 ) (Test, test1,...)

Par exemple, ce code, va tester les noms, si celui-ci commence par test. , sélectionne a partir de la cellule de référence, 4 colonnes et 4 lignes, et colorie le tout en rouge.

Public Sub toto()
Dim noms
Dim plage As Range
Dim i As Integer

Set noms = ActiveWorkbook.Names

For i = 1 To noms.Count
    If Left(noms(i).Name, 4) = 'test' Then
        Set plage = Range(noms(i).RefersToRange.Address(0, 0))
        Range(Cells(plage.Row, plage.Column), Cells(plage.Row + 4, plage.Column + 4)).Select
        With Selection
        .Interior.ColorIndex = 3
        End With
    End If
Next i
End Sub

En espérant que ceci te sera utile.

Salut

 

[SHINTRA]

Merci Encore Hervé


Je devais etre fatigué hier car effectivement tout marche comme prévu

c'est moi qui deconne ( buuuuuuuuuu )

encore merci

Bonne journée

shintra