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

histoire de couleur

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 !

jeannot68

XLDnaute Occasionnel
Bonjour a tous

Une petite qustion:

Actuellement j'ai un bouton "AJOUTER LIGNES" qui me permet d'ajouter une ligne avec des numérotation automatique mon seul probleme c'est que si la ligne au dessus est en couleur alors la nouvelle ligne reprend cette couleur alors que je souhaite quel reste blanche sauf les cellule des colonne I et J qui doivent rester jaune
Pareil si je mets un lien hypertexte l'ecriture de la cellule devient rouge et souligné.

Si quelqu'un a une petite idée??
Merci de votre aide et a bientot
 

Pièces jointes

Re : histoire de couleur

autre question
Quand je clique sur le bouton "CONTRATS" il recopie les cellules "I2:S4" de l'onglet Informations et la je souhaite garder exactement les meme couleur de toutes ces cellule

Encore merci
 
Re : histoire de couleur

Bonsoir jeannot68,

Vois si le fichier modifié te convient.
J'ai un doute sur la compréhension de ta 1ère question, à savoir la couleur des colonnes I et J : si celà ne convient pas, alors supprime ou modifie la ligne en bleu.
De même, la ligne en rouge est inutile, tu peux la supprimer.

Code:
Private Sub CommandButton1_Click()
[COLOR="Red"]fin = 3[/COLOR]
fin = Feuil2.Range("B1").End(xlDown).Row + 1
Feuil2.Rows(fin).Insert: Cells(fin, 1) = Cells(fin - 1, 1) + 1: Cells(fin, 2) = Cells(fin - 1, 2) + 1
Cells(fin, 9).FormulaR1C1 = "=SUM(RC[-1]*RC[-2])"
Cells(fin, 10).FormulaR1C1 = "=SUM(RC[-1]+RC[-5]+RC[-4])"
Cells(fin, 13).FormulaR1C1 = "=SUM(RC[-8]*1.31-RC[-8])"
Range("A" & fin & ":M" & fin).Interior.ColorIndex = xlAutomatic
[COLOR="RoyalBlue"]Range("I" & fin & ":J" & fin).Interior.ColorIndex = 6[/COLOR]
With DEVIS
  .ComboBox10.ControlSource = "DEVIS!K" & fin
  .ComboBox12.ControlSource = "DEVIS!C" & fin
  .TextBox1 = Feuil2.Cells(fin, 1)
  .TextBox2 = Feuil2.Cells(fin, 2)
  .Show
End With
DEVIS.Show
End Sub

Espérant t'avoir aidé.

Cordialement.

NB : pour améliorer l'aspect visuel, j'ai masqué la dernière ligne du tableau de la feuille DEVIS, ce qui ne gêne pas le bon déroulement du programme.
 

Pièces jointes

Re : histoire de couleur

Je reviens sur ce sujet

comment faire en sorte que les valeurs des cellules H2; H3; H4 soit recopié avec le reste avec mon bouton AJOUTER CONTRATS mais que la numérotation reprenne la ligne en dessous par rapport a celle de la ligne au dessus des ligne de contrats

exemple
1 831
2 832
3 782
4 783
5 784
6 833
7 834

merci de votre aide
 

Pièces jointes

- 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

Discussions similaires

Réponses
3
Affichages
445
Réponses
17
Affichages
1 K
Réponses
0
Affichages
433
Réponses
4
Affichages
630
Réponses
0
Affichages
556
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…