Discussion :

[RHTI_excel]

Bonjour à toutes et à tous

ma problématique consiste à:
j'ai un onglet excel où j'ai appliqué un mise en forme conditionnelle sur une plage bien définie: =$A$1:$O$20
j'ai un besoin reccurent d'insérer des lignes à partir d'un autre onglet par le biais d'un macro VBA,
par contre j'aimerais que la plage de mon MFC suit cette insertion,exemple: si j'insère 3 ligne au dessus de la ligne 5; je veux que le champs "S'applique à " devient =$A$1:$O$23 et non égale à =$A$1:$O$4;$A$8:$O$23

Merci d'avance pour votre aide

[Kimy_Ire]

Bonjour RHTI_excel,

Logiquement, tu insères ta/tes ligne(s) grâce à .Insert Shift:=xlDown.

Rajoute la propriété suivante .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove et ça devrait bien se passer !

Cordialement,
Kimy

[RHTI_excel]

Bonjour Kimy_Ire
et merci pour la réponse rapide.
effectivement j'ai cru que cela devrait faire l'affaire; hélas toujours pas.
Voici le code que j'utilise pour insérer les 3 lignes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Ajout_ressource_DT()
 
Dim l As Integer
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim i, nb As Integer
 
Application.ScreenUpdating = False
    Sheets("Légende").Select
    Rows("12:14").Select
    Selection.Copy
    Sheets("Planification").Select
    l = ActiveCell.Row
    Rows(l + 7).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
     Cells(l + 7, 1).Select
 
End Sub

[PierrotMfff]

[XL-2010] J'up ce sujet, je rencontre le même problème, la solution de Kimy_Ire ne fonctionne pas pour moi non plus... des idées?
Par exemple est-ce possible dans ma macro après l'insertion de la ligne de supprimer la mise en forme conditionelle et dans la foulée d'en créer une qui convient, automatiquement ?

D'avance merci, PierrotMfff

[Kimy_Ire]

Bonjour,

Je pense que la seule manière est de réappliquer les MFC à la feuille dans la macro afin de "reseter" les MFC sur l'ensemble des plages.
Mais peut-être qu'un expert aura une autre solution.

Cordialement,
Kimy

[PierrotMfff]

Oui... Merci !
Je pensais à un moyen de supprimer, modifier, ajouter des règles de MFC via VBA, je ne trouve rien sur le net

1h plus tard: multiples tests avec l'enregistreur de macro pendant l'édition d'une règle de MFC, la macro est vide

[PierrotMfff]

Sous la lumière d'insosama, j'ai trouvé la solution, merci à lui !

Voilà comment il faut faire:

Imaginons la MFC de la plage A1:H20
Après avoir éditer sa règle de MFC, au lieu de laisser la formule:

Code :

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

=$A$1:$H$20

Il faut mettre:

Code :

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

=DECALER($A$1;0;0;NBVAL($A:$A);8)

ou $A$1 est la cellule le plus en haut à gauche de ta table.
ou 8 est le nombre de colonne de ta table
et surtout NBVAL(A:A) retourne le nombre de cellule de la colonne A, qui évoluera en phase avec les insertions ! (Même si une ligne est insérée, et que la cellule fraîchement crée de la ligne insérée et de la colonne A est vide, ça marche quand même )

ainsi, lors d'un insertion de ligne (VBA ou manuelle)
La formule renvoie bien: =$A$1:$H$21.

Encore un grand merci à insosama

[RHTI_excel]

Merci PierrotMfff

j'ai tester votre proposition; hélas ça fonctionne pas toujours.

j'ai remplacé =$T$4:$VO$1072 par =DECALER($T$4;0;0;NBVAL($T:$T);568).
deux soucis:
1) en cliquant sur ok de la fenêtre MFC et en revérifiant tout de suite la formule change en: =$T$4:$VO$188 !!

2) et en insérant mes lignes avec macro; la formule MFC devient: =$T$4:$VO$14;$T$18:$VO$191 !!

analysant votre proposition ; elle me semble pertinente ; par contre ça marche chez moi!!
merci encore une fois

[PierrotMfff]

Bonjour,

1) en cliquant sur ok de la fenêtre MFC et en revérifiant tout de suite la formule change en: =$T$4:$VO$188 !!

c'est normal ça me le fait aussi, la formule reste implicite, mais la range pointée par celle ci est explicite

2) et en insérant mes lignes avec macro; la formule MFC devient: =$T$4:$VO$14;$T$18:$VO$191 !!

En utilisant cette méthode, pour moi ça marche nickel sauf lorsque ma ligne est en dernière position de ma plage!
imaginons la mise en forme lignes 1,2,3 ; si j'insère en 1,2,3 ça marche, mais pas en 4... Même si dans ma formule j'ai mis

Code :

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

 =DECALER($A$1;0;0;NBVAL($A:$A)+2;8)

Je cherche encore pour gérer le cas de la dernière ligne...

[PierrotMfff]

J'ai lâché l'affaire, désormais je met en forme sur changement des valeurs de ma feuille !

[Promethee25]

Bonjour,

Il ne faut pas "insérer des cellules copiées" mais insérer de nouvelles lignes "vierges" (sans avoir copié les cellules) avant de copier par valeur ou par formule sur ces nouvelles lignes. Il ne faut pas faire un collage normal car cela applique la mise en forme des cellules sources au lieu de conserver la mise en forme de destination.

Pour résoudre le problème de la mise en forme qui ne s'applique pas aux lignes insérées après le tableau, le plus simple serait d'utiliser un tableau structuré (menu Insertion -> Tableau) qui résoudra le problème de lui-même.


Au passage, les .select = pas bien!