XL 2013 suppression de lignes = formules et plages modifiées

Yurperqod

XLDnaute Occasionnel

• 4 Septembre 2017

• #2

Bonjour à tous

Est-ce que cette formule en F2 en remplacement de la tienne peut te convenir ?
=SOUS.TOTAL(9;F:F)/2

Et pour la plage nommée base, tu peux utiliser une macro qui recrée le nom

VB:

Sub MacroTest()
ActiveWorkbook.Names.Add Name:="base", RefersToR1C1:="=Feuil1!R3C6:R102C6"
End Sub

Il faut penser à remplacer Feuil1 par le vrai nom de la feuille.

 

Dernière édition: 4 Septembre 2017

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2017

• #3

Bonjour Ce lien n'existe plus,

Merci de m'avoir répondu et aussi vite.
Malheureusement, la formule semble ne pas fonctionner car excel m'indique une référence circulaire.
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 4 Septembre 2017

• #4

Et avec cette formule ?
=SOUS.TOTAL(9;INDIRECT("F3:F102"))

Et la macro, tu as testé ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2017

• #5

Re-Bonjour,

ça marche super. je vais continuer de tester mais c'est bon. 😉

Sauriez-vous faire la même chose pour définir (nommer) une plage avec votre formule ?
INDIRECT("F3:F1048576"))

Mais déjà un grand merci,
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 4 Septembre 2017

• #6

Voici la macro modifiée

VB:

Sub MacroTest2()
Dim Lignes As String
Lignes = Application.Rows.Count
ActiveWorkbook.Names.Add Name:="base", RefersToR1C1:="=Feuil1!R3C6:R" & Lignes & "C6"
End Sub

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2017

• #7

Je n'avais pas vu la macro. Mon fichier de travail est gros et avec un monbre de macros très importants.
LOL, moins j'en ajoute et mieux je me porte.

Est-il possible de le faire directement dans le gestionnaire de nom avec une formule ?

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 4 Septembre 2017

• #8

Avec une formule, en cas de suppression de lignes , la référence des cellules change dans la plage nommée.
Voila une formule pour nommée une plage de manière dynamique
=DECALER(Feuil1!$F$3;0;0;NBVAL(Feuil1!$F$3:$F$102);1)

mais comme je disais, si on supprime des lignes, la référence change.

C'est pour ca que je suis passé par une macro pour nommer la plage.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2017

• #9

Merci pour ta gentillesse et pour ta volonté de m'aider.
Tu m'as déjà donné une formule qui fonctionne et c'est déjà beaucoup.

Concernant la définition de la plage, j'en ai tellement dans mon fichier que je préfère éviter les macros.
Je vais continuer à chercher une solution pour cela.
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2017

• #10

LOL, je n'avais pas vur ton message précédent ..... je regarde

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2017

• #11

Super, cette formule dans la sélection d'une plage fonctionne à merveille.
(=DECALER(Feuil1!$F$3;0;0;NBVAL(Feuil1!$F$3:$F$102);1))

Voilà un grand service que tu me rends.
Je t'en remercie vraiment 😉
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2017

• #12

Plage nommée
J'ai re-testé la formule : =DECALER(Feuil1!$F$3;0;0;NBVAL(Feuil1!$F$3:$F$1048576);1)
En supprimant des tas de lignes = pas de changement de formule
En ajoutant des tas de lignes = pas de changement de formule
🙂

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2017

• #13

Oui, je verrai à l'usage.

D'autre part, il y a ce code ".End(xlUp)" qui semble aussi sollutionner le souci de suppression ou d'ajout de lignes mais je n'arrive pas à le mettre dans les formules.

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 4 Septembre 2017

• #14

Si vraiment tu veux utiliser End(xlUp) pour ta formule, il faut passer par une macro

VB:

Sub MacroTest3()
Dim Ligne As Long
Ligne = Cells(Rows.Count, "F").End(xlUp).Row
ActiveWorkbook.Names.Add Name:="base", RefersToR1C1:="=OFFSET(Feuil1!R3C6,0,0,COUNTA(Feuil1!R3C6:R" & Ligne & "C6),1)"
End Sub

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 4 Septembre 2017

• #15

OK merci beaucoup pour cette information.
🙂

 

Vote positif 0 Vote négatif