Couleur onglet macros

Le 22/01/2013 à 12:16

(Re)Bonjour,

Voila mon petit probléme, j'ai recupérer sur internet un fichier génial qui va me permettre de gérer mes locations, en revanche je ne suis pas assez douer pour créer un fichier aussi génial que celui-ci avec macros et compagnie, mais je voudrai modifier les couleurs des cellules lorsque ma cellule s'ouvre. Exemple je clique sur propriétaire(s), un onglet s'ouvre avec des critéres à remplir exemple (Nom prénom etc), mais cet onglet et d'une couleur, comment puije la modifier?

Sachant que j'ai réussi à modifier la page de base (titre, fond etc) de la couleur de mon choix en enlevant la protection du fichier.

Je suis très peu caler en excel, merci de vos futurs conseils.

A bientôt,

Mélissa

Le 22/01/2013 à 13:11

Bonjour

Par macro (XL 2003)

Sub test()
  Sheets("Feuil2").Tab.ColorIndex = 3
End Sub
Le 22/01/2013 à 13:47

Comment ca? Quand je vais dans macros, modifier, j'ai cette liste....

eclare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _

(ByVal hwnd As Long, ByVal lpOperation As String, _

ByVal lpFile As String, ByVal lpParameters As String, _

ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Clic

Sub CreerProprio()

Proprio.Show

End Sub

Sub CreerLoc()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("A2") = "" Then

MsgBox "Il n'y a pas de propriétaire(s)", vbInformation, "Mauvaise Manip"

Worksheets("Accueil").Activate

ElseIf Range("AG2") = "" Then

MsgBox "Il n'y a pas de location(s)", vbInformation, "Mauvaise Manip"

Worksheets("Accueil").Activate

Else

Loc.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub CreerLocation()

Locations.Show

End Sub

Sub VoirProprietaire()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AF2") = "" Then

MsgBox "Il n'y a pas de locataire !!!", vbInformation, "Mauvaise Manip"

Else

VoirLocataire.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub ModifProprietaire()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("I2") = "" Then

MsgBox "Il faut créer au moins un propriétaire !!!", vbInformation, "Mauvaise Manip"

Else

Clic = "Supprimer"

RechercheProprietaire.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub ModifLocataire()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AF2") = "" Then

MsgBox "Il faut créer au moins un(e) locataire !!!", vbInformation, "Mauvaise Manip"

Else

Clic = "Supprimer"

RechercheLocataire.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub ModifLocation()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AG2") = "" Then

MsgBox "Il faut créer au moins une location !!!", vbInformation, "Mauvaise Manip"

Else

Clic = "Supprimer"

RechercheLocation.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub SuppProprietaire()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("I2") = "" Then

MsgBox "Il faut créer au moins un propriétaire !!!", vbInformation, "Mauvaise Manip"

Else

Clic = ""

RechercheProprietaire.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub SuppLocation()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AG2") = "" Then

MsgBox "Il faut créer au moins une location !!!", vbInformation, "Mauvaise Manip"

Else

Clic = ""

RechercheLocation.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub SuppLocataire()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AF2") = "" Then

MsgBox "Il faut créer au moins un(e) locataire !!!", vbInformation, "Mauvaise Manip"

Else

Clic = ""

RechercheLocataire.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub AjouterPaiement()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AF2") = "" Then

MsgBox "Il n'y a pas de locataire !!!", vbInformation, "Mauvaise Manip"

Else

Clic = ""

InscriptionPaiement.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub ModifierPaiement()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AF2") = "" Then

MsgBox "Il n'y a pas de locataire !!!", vbInformation, "Mauvaise Manip"

Else

Clic = "Modifier Paiement"

ModificationPaiement.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub SuppPaiement()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AF2") = "" Then

MsgBox "Il n'y a pas de locataire !!!", vbInformation, "Mauvaise Manip"

Else

Clic = "Supprimer Paiement"

ModificationPaiement.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub EditerBaux()

EditeurBaux.Show

End Sub

Sub EditerQuittance()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AF2") = "" Then

MsgBox "Il n'y a pas de locataire !!!", vbInformation, "Mauvaise Manip"

Else

EditeurQuittances.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub EditerDivers()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AF2") = "" Then

MsgBox "Il n'y a pas de locataire !!!", vbInformation, "Mauvaise Manip"

Else

EditeurCourriersDivers.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub SupprimerFichierTampon()

On Error Resume Next

Kill "C:\GestionLocataires\Courriers\FichierTampon.doc"

End Sub

Sub VisualiserPaiement()

Application.ScreenUpdating = False

Worksheets("BD").Select

If Range("AF2") = "" Then

MsgBox "Il n'y a pas de locataire !!!", vbInformation, "Mauvaise Manip"

Else

Clic = "Voir Paiement"

ModificationPaiement.Show

End If

Worksheets("Accueil").Select

Application.ScreenUpdating = True

End Sub

Sub AlerteLoyer()

Application.ScreenUpdating = False

Dim DateDuJour As Date

Dim DateEcheance As Date

On Error Resume Next

Worksheets("BD").Select

Range("AF2").Select

For Compteur = 1 To 50

NomLocataire = ActiveCell

If ActiveCell = "" Then

Worksheets("Accueil").Select

Exit Sub

End If

Mem1 = ActiveCell.Offset(0, -1).Value

Mem2 = Date

Mem1 = Left(Mem1, Len(Mem1) - 7) & Right(Mem2, 7)

DateDuJour = Mem2

DateEcheance = Mem1

NbJours = DateDuJour - DateEcheance

If NbJours = 0 Then

MsgBox "Echéance du loyer de " & NomLocataire & " aujourd'hui"

ElseIf NbJours <= 5 Then

MsgBox "Echéance du loyer de " & NomLocataire & " dans " & -NbJours & " jour(s)"

End If

ActiveCell.Offset(1, 0).Select

Next Compteur

Application.ScreenUpdating = True

End Sub

Sub AlerteAMH()

Application.ScreenUpdating = False

Dim DateDuJour As Date

Dim DateEcheance As Date

On Error Resume Next

Worksheets("BD").Select

Range("AF2").Select

For Compteur = 1 To 50

NomLocataire = ActiveCell

If ActiveCell = "" Then

Worksheets("Accueil").Select

Exit Sub

End If

Mem1 = ActiveCell.Offset(0, -4).Value

Mem2 = Date

Mem1 = Left(Mem1, Len(Mem1) - 5) & Right(Mem2, 5)

DateDuJour = Mem2

DateEcheance = Mem1

NbJours = DateDuJour - DateEcheance

If NbJours = 0 Then

MsgBox "Echéance d'A.M.H de " & NomLocataire & " aujourd'hui"

ElseIf NbJours >= -30 Then

MsgBox "Echéance d'A.M.H de " & NomLocataire & " dans " & -NbJours & " jour(s)"

End If

ActiveCell.Offset(1, 0).Select

Next Compteur

Application.ScreenUpdating = True

Le 22/01/2013 à 14:54

Bonjour

Je pense que tu veux modifier la couleur de l'onglet "BD"

Tu pourrais faire ceci

Sub CreerLoc()
Application.ScreenUpdating = False

Worksheets("BD").Select
Sheets("BD").Tab.ColorIndex = 3

' la suite de ton code

Mais tu peux le faire manuellement

Clic droit sur l'onglet que tu veux --->Couleur d'onglet et choisis la couleur

Le 22/01/2013 à 15:10
sans titre

Voila ce que j'ai, c'est l'onglet (enfin si on peu appeler ça onglet) "propriétaire ou je veut modifier la couleur etc...

Le 22/01/2013 à 15:31

Bonjour

Tu veux modifier la bordure de l'Userform ?

Si c'est cela moi je ne sais pas, et je ne le crois pas possible (mais impossible n'est pas Excel)

Quelqu'un d'autre ?

Le 22/01/2013 à 15:35

Tu sais je le rappelle je suis absolument nulle alors tu me parle chinois .

En gros je veut modifier le fond jaune... et la couleur de ajouter et annuler...

Le 22/01/2013 à 16:02

Bonjour

Ah ça c'est plus facile

Dans l'éditeur VB, quand tu sélectionnes un Userform , tu as la liste des propriétés , et il faut modifier la propriété BackColor

Regardes sur cet exemple

userform backcolor

Ces modifications peuvent se faire aussi dans le code

La même propriété pour les boutons, tu sélectionnes d'abord le bouton et ensuite tu modifies la propriété

Si tu as des problèmes pour le faire, il faudrait poster ton fichier

Le 22/01/2013 à 16:18

J'ai essayé de te poster le fichier mais apparement il est trop gros.

Voila ce que j'ai moi, et pas de Userform...

sans titre
Le 22/01/2013 à 16:52

Bonjour

Melissa a écrit :

Voila ce que j'ai moi, et pas de Userform...

Oh que si tu en as des Userform (une vingtaine)

Double clic sur un nom en dessous de feuilles (exemple sur RechercheProprietaire) et tu auras la fenêtre propriétés comme celle que je t'ai indiqué dans le message précédent

Si toujours des difficultés, essaies de joindre ton fichier en passant par cjoint

http://cjoint.com/index.php

c joint
Le 22/01/2013 à 17:00

Génial, merci vraiment pour ton aide... et surtout ta patience. Je vais enfin pouvoir changer cette couleur horrible!

Encore merci beaucoup!

Bonne soirée!

Rechercher des sujets similaires à "couleur onglet macros"