Discussion :

[bartez63]

Bonjour,
Je cherche, sans succès pour le moment, à modifier les références d'une plage nommée.

Une zone variable nommée "Salariés" retourne par exemple comme zone d'adresse $A$3:$E$10.

Je voudrais que quelque soit la zone retournée par ce nom, arriver à retirer systématiquement 1 ligne en haut et 1 ligne en bas pour ne trier que la zone $A$4:$E$9.

Merci de votre aide !

[Philippe Tulliez]

Bonjour,
En partant du fait que "maPlage" est le nom de la plage nommée et Rng est la variable objet représente sa zone courante
La ligne de code pour redéfinir une plage nommée existante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Names("maPlage").RefersTo = "=" & Rng.Address(External:=True)

Le code pour redimensionné cette plage (Rng) en prenant la ligne suivante et l'avant-dernière dernière est (Code à placer bien entendu avant de redimensionné la plage nommée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Rng
  Set Rng = .Offset(1).Resize(.Rows.Count - 2)
End With

[mfoxy]

Hello,

Il vous serait profitable de passer de range nommé à un tableau Structuré, vous pourriez ainsi plus aisément ne pas effectué de tris sur votre ligne de Total et Entête, avec les avantages lié aux listobject notamment celui de ne pas se soucier de la taille du tableau.

Un petit tuto sur le sujet : Fauconnier Pierre : tableaux structurés/
Un petit exemple de procédure de tris : Fauconnier Pierre : Sub Table_Sort

Bien à vous,

[bartez63]

Bonjour,
En partant du fait que "maPlage" est le nom de la plage nommée et Rng est la variable objet représente sa zone courante
La ligne de code pour redéfinir une plage nommée existante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Names("maPlage").RefersTo = "=" & Rng.Address(External:=True)

Le code pour redimensionné cette plage (Rng) en prenant la ligne suivante et l'avant-dernière dernière est (Code à placer bien entendu avant de redimensionné la plage nommée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Rng
  Set Rng = .Offset(1).Resize(.Rows.Count - 2)
End With

Merci pour cette ligne de code qui correspond exactement à ce que je recherchais.

[bartez63]

Hello,

Il vous serait profitable de passer de range nommé à un tableau Structuré, vous pourriez ainsi plus aisément ne pas effectué de tris sur votre ligne de Total et Entête, avec les avantages lié aux listobject notamment celui de ne pas se soucier de la taille du tableau.

Un petit tuto sur le sujet : Fauconnier Pierre : tableaux structurés/
Un petit exemple de procédure de tris : Fauconnier Pierre : Sub Table_Sort

Bien à vous,

Très intéressant. Je ne connaissais pas les tableaux Structurés mais à la lecture des explications données par Pierre Fauconnier je crois que je vais être obligé de m'y mettre. Ça semble effectivement très puissant et cela m'aurait évité bien des lignes de code et beaucoup de déboires. Merci pour ces informations.

[mfoxy]

Hello bartez63,

Content d'avoir pu te diriger vers de nouvelles connaissances, tu vas voir après y avoir gouté impossible de ne pas y adhérer :-)

Bonne journée,