Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Vba: code pour recopier couleur et formules de la ligne précedente

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Gouniaf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

Gouniaf

Guest
Bonjour à tous!
Débutant sous vba, j'ai crée un userform qui, une fois remplis, inscrit des valeurs sur une ligne d'un tableau excel.
Or je voudrais que soit appliqués à cette ligne les couleurs et les formules de la ligne précédente (fonction somme par exemple).
J'avais pensé à ça:
For i = 1 To y
Cells(irow - 1, i).FormulaR1C1 = Cells(irow, i).FormulaR1C1
Cells(irow - 1, i).Color = Cells(irow, i).Color
Next

Sauf que cela ne fonctionne que pour les formules, la couleur de la nouvelle ligne est différente de celle de la précédente.

Auriez-vous une idée?

Merci, bonne journée à tous!
 
Trier par date Trier par votes
Re : Vba: code pour recopier couleur et formules de la ligne précedente

Bonjour

Ne connaissant pas le contexte de ton fichier
Voici ce que j'ai trouvé

VB: 
Sub test()
Dim Y As Integer
Dim iRow As Long

  Y = 10
  iRow = 6
  
  For i = 1 To Y
    Cells(iRow, i).FormulaR1C1 = Cells(iRow - 1, i).FormulaR1C1
    Cells(iRow, i).Interior.ColorIndex = Cells(iRow - 1, i).Interior.ColorIndex
  Next
End Sub
 
Vote positif 0 Vote négatif
Re : Vba: code pour recopier couleur et formules de la ligne précedente

Bonjour,
Désolé mais ça ne fonctionne pas, je n'ai sûrement pas assez expliqué. Mon userform trouve la première ligne vide du tablea et rentre les données qui ont été saisies. Cependant, même s'il recopie correctement les formules, il persiste à vouloir mettre du vert en fond de cellule (un vert d'un goût douteux), alors que la couleur de la ligne précédente est différente (orange saumon, et là on ne critique pas la couleur!).
 
Vote positif 0 Vote négatif
Re : Vba: code pour recopier couleur et formules de la ligne précedente

Bonjour

Vérifies si tu n'as pas une MEFC qui te colorie en cette belle couleur verte

Sinon envoies un extrait de ton fichier (sans données personnelles)

A suivre
 
Vote positif 0 Vote négatif
Re : Vba: code pour recopier couleur et formules de la ligne précedente

Bonjour, j'ai finalement contourné le problème. J'ai enregistré une macro où je changeais la couleur d'une cellule puis j'ai copié celle-ci dans mon userform. Ca donne quelque chose de très lourd et pas très agréable à regarder mais ça marche:
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With

En tout cas merci pour votre réactivité et vos réponses!
Bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
183
deudecos
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
371
Cousinhub
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
571
Abi23
A
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
768
oguruma
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
675
Etoto
P
  • Question Question
XL 2021 dans une vba, la date automatique mais de la veille.
Réponses
6
Affichages
304
Patrick BRZ
P
W
  • Question Question
XL 2019 Changer la graisse et la taille avant le deuxième retour à la ligne dans une cellule
Réponses
6
Affichages
264
Webperegrino
W
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
441
AlCapone
R
  • Question Question
XL 2019 Demande à la macro de chercher et de remplir automatiquement jusqu'à la dernière valeur
Réponses
1
Affichages
615
Aya_flo
A
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
904
picc
P
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
700
fanch55
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
1 K
Rheeem
R
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
500
sylvanu
T
  • Question Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
652
Tophe2
T
N
  • Résolu(e)
XL 2021 addition de cellules ayant une couleur , peut importe la couleur.
2 3
Réponses
32
Affichages
1 K
natadom
N
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
456
sebastien176
S
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Question Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
775
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…