Discussion :

[mekap]

Bonjour,

Ya t'il une façon, en VB, de limiter l'effet de la fonction de propagation de formule (petit carré noir en bas à droite de la cellule) pour que seule la valeur des cellules de destination soit changée ? (et donc en particulier que la mise en forme soit conservée) ???

Exemple :
les lignes paires d'excel sont vertes, les lignes impaires bleues
si je propage vers le bas une formule définie en A1, toutes les cellules de destination deviennent bleues.

merci d'avance si qqn a une solution ...

Mekap

[tototiti2008]

Bonjour mekap,

si tu veux utiliser la méthode autofill, il faut rajouter Type:=xlFillValues

par exemple

Code :

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

Range("A1").AutoFill Destination:=Range("A1:A21"), Type:=xlFillValues

[mekap]

Bonjour,

Merci de ta réponse, mais je me suis mal exprimé.

En fait la propagation va se faire par l'utilisateur qui manuellement va propager sa formule, et moi je voudrais imposer le type:=Xlfillvalues par défaut pour qu'il ne modifie pas la mise en forme.

Je ne sais pas si je suis clair lol ^^

en totu cas merci de ta réponse, je vais voir comment pouvoir utiliser cela ...

[Bugzy1963]

salut

Tu peux utiliser l'espace de la feuille pour écrire ton VBA sous le SUB Worksheet_Change()

Ainsi lorsqu'il y aura un changement sur cette feuille tu pourras recalculer le nombre de ligne qu'il ya des éléments et refaire le XlFillValues

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Worksheet_Change()
Dim NbLigne as Integer
Dim P as Object
 
 
NbLigne = Cells(Rows.Count, 1).End(xlUp).Row 
For i = 0 to NbLigne step 2
     Set P = Range(Cells(1+ i , 1), Cells(1+i, TonChoix))
    P.interior.color = VbBlue 'Ou tu peux utiliser le code RGB()
next i

[mekap]

Bonjour Bugzy,

Oui c'est effectivement ce que je pense faire au final, mais vu que cela coûte un peu en temps, j'essayais de voir s'il y avait d'autres solutions, mais j'ai beau chercher, je trouve pas.

merci de ta contribution

Mekap

[BenjGe]

si ta version est xp ou au delà tu peux aussi lui apprendre à utiliser la balise office qui apparaît après une recopie. L'option de recopie que tu cherches y est ("recopier les valeurs sans la mise en forme" qui en fait recopie la formule

[tototiti2008]

Bonjour à tous,

et pour compléter les propos de Benjîle () si ta version est antérieure à XP, tu peux recopier avec le bouton droit de la souris - Recopier les valeurs sans la mise en forme