Nommer un champ de cellules non adjacentes.

[kioups]

Bonjour,

je cherche à nommer différents champs de cellules non adjacentes.

J'en ai 380 à réaliser avec à chaque fois 50 cellules.
(enfin, 380... ça serait plutôt 380x3...).

J'ai donc voulu réaliser une macro.

Sub Remplissage()
Dim i As Integer, j As Integer, k As Integer

For i = 1 To 38
    For j = 1 To 10
        For k = 1 To 50
            ActiveWorkbook.Names.Add Name:="PronoDom"&i&"-"&j Refersto:=Cells(6+j-1+18*(i-1),15+3*(k-1))
        Next k
    Next j
Next i
End Sub

Mon but est pour que i = 1 et j = 1, les cellules prennent le nom PronoDom1-1
ainsi de suite jusqu'à PronoDom38-10

J'ai un souci ici : "PronoDom"&i&"-"&j

Par ailleurs, je me demande si ça prend beaucoup de place de rajouter des tonnes comme ça...

Merci beaucoup !

Kioups

 

[Monique]

Re : Nommer un champ de cellules non adjacentes.

Bonjour,

j'aimerai, en utilisant la fonction décaler avoir le résultat de la case O6 dans la case O13, le résultat de la case R6 dans la case P13, le résultat de la case U6 dans la case Q13.

A essayer

En O13 :
=SI(DECALER($O6;0;(COLONNES($O13:O13)-1)*3)="";"";DECALER($O6;0;(COLONNES($O13:O13)-1)*3))

En O19 :
=SI(DECALER($P6;0;(COLONNES($O19:O19)-1)*3)="";"";DECALER($P6;0;(COLONNES($O19:O19)-1)*3))

 

[kioups]

Re : Nommer un champ de cellules non adjacentes.

Merci Monique, ça donne tout à fait ce que je veux.

Je vais essayer d'adapter ça à mon vrai classeur, mais ça sera probablement pas avant lundi.

Je dois bien que je ne comprends vraiment pas bien comment fonctionne la fonction décaler !

Ah ben, je viens d'adapter, c'est bon ça semble fonctionner très bien !

Merci beaucoup !!!!