XL 2010 Combobox avec couleur

[Dydou76]

Bonjours,

J'ai deux liste dans une feuil1 "nom" et une liste avec des "oui" et des "non" et j'aimerai que quand je sélectionne un nom dans ma combobox, qu'il s'affiche en rouge pour les "oui" et en vert pour les "non"
Est-ce possible SVP Merci d'avance

Denis

 

[Dydou76]

Bonjours, une autre question, j'envoi par mail le fichier avec un commandboutton, mais j'aimerai que le nom de ce fichier prenne le numéro qui se trouve dans une cellule d'une feuille ex: "B2" de la feuille "base" Est-ce possible ? Merci d'avance

 

[xUpsilon]

Bonjour,

Un fichier ouvert ne peut pas changer de nom pendant qu'il est ouvert. Au mieux, tu pourrais créer une copie dont le nom est celui que tu souhaites.

Bonne continuation

 

[Dydou76]

bonjour, xUpsilon
ça m'irai bien d'envoyer une copie du fichier. le but c'est que ce fichier soit commencé de remplir par une personne et ensuite envoyé a une autre personne qui poursuit le remplissage de ce fichier. et tu pourrai m'aider a faire ça ? le nom de la copie doit être celui d'une cellule.

 

[xUpsilon]

Bonjour,

Pour créer un autre fichier excel :

Dim NewDoc As Object

Set NewDoc = Workbooks.Add

Pour l'enregistrer sous et lui donner la valeur d'une cellule (prenons ici la valeur de A1) (il faut que tu modifies le chemin du fichier en fonction de où il est stocké)

NewDoc.SaveAs FileName:="C:\chemin\" & ThisDocument.Range("A1") & ".xlsx"

.xls / .xlsx / .xlsm en fonction de ta version de Excel et du type de document.

Ensuite il te suffit de copier coller ce que tu souhaites sur le nouveau document et de le sauvegarder et il est pret à être envoyé.

Bonne continuation,

 

[Dydou76]

Merci Beaucoup xUpsilon je vais tester ça... c'est sympa de m'aider

 

[Dydou76]

Bonjour,

Pour créer un autre fichier excel :

Dim NewDoc As Object

Set NewDoc = Workbooks.Add

Pour l'enregistrer sous et lui donner la valeur d'une cellule (prenons ici la valeur de A1) (il faut que tu modifies le chemin du fichier en fonction de où il est stocké)

NewDoc.SaveAs FileName:="C:\chemin\" & ThisDocument.Range("A1") & ".xlsx"

.xls / .xlsx / .xlsm en fonction de ta version de Excel et du type de document.

Ensuite il te suffit de copier coller ce que tu souhaites sur le nouveau document et de le sauvegarder et il est pret à être envoyé.

Bonne continuation,

Bonjour

Merci Beaucoup xUpsilon je vais tester ça... c'est sympa de m'aider

Bonjour xUpsilon,

Je n'ai pas encore testé l'envoi du fichier par mail (j'attend que mon chef me donne les tablettes qui servirons a mon programme pour faire les test.) en attendant, j'ai mis un InkPicture1 qui fonctionne dans mon userforme mais je ne trouve pas comment faire pour que la signature se copie dans une cellue. Peu tu m'aider stp ?

Merci d'avance

 

[BOISGONTIER]

Bonsoir,


Exemple de simulation de ComboBox couleur

Dim début, n
Dim Lbl(1 To 5) As New ClasseLabel

Private Sub UserForm_Initialize()
  n = 5: début = 1
  For b = 1 To n: Set Lbl(b).GrLabel = Me("Label" & b): Next b
End Sub

Sub Affiche()
  For i = 1 To n
    Me("label" & i).Caption = Range("liste").Cells(i + début - 1, 1)
    Me("label" & i).BackColor = Range("liste").Cells(i + début - 1, 1).Interior.Color
  Next i
End Sub

Private Sub ScrollBar1_Change()
  début = ScrollBar1
  Affiche
End Sub

Private Sub ComboBox1_DropButtonClick()
  Me.Frame1.Visible = True
  Me.ScrollBar1.Visible = True
  Me.ScrollBar1.Min = début
  Me.ScrollBar1.Max = [liste].Count - n + 1
  Affiche
  SendKeys "{down}"
End Sub

Module de classe
Public WithEvents GrLabel As Msforms.Label
Private Sub GrLabel_click()
  p = Val(Mid(GrLabel.Name, 6))
  For i = 1 To 5: UserForm1("label" & i).BorderStyle = 0: Next i
  p2 = ((p - 1) Mod 5) + 1
  UserForm1("label" & p2).BorderStyle = 1
  UserForm1.TextBox1 = UserForm1("label" & p2).Caption
  p3 = Val(UserForm1.ScrollBar1.Value) + p2 - 1
  UserForm1.TextBox2 = Range("liste").Offset(, 1)(p3)
End Sub

Boisgontier

 

[Dydou76]

Bonsoir,


Exemple de simulation de ComboBox couleur

Dim début, n
Dim Lbl(1 To 5) As New ClasseLabel

Private Sub UserForm_Initialize()
  n = 5: début = 1
  For b = 1 To n: Set Lbl(b).GrLabel = Me("Label" & b): Next b
End Sub

Sub Affiche()
  For i = 1 To n
    Me("label" & i).Caption = Range("liste").Cells(i + début - 1, 1)
    Me("label" & i).BackColor = Range("liste").Cells(i + début - 1, 1).Interior.Color
  Next i
End Sub

Private Sub ScrollBar1_Change()
  début = ScrollBar1
  Affiche
End Sub

Private Sub ComboBox1_DropButtonClick()
  Me.Frame1.Visible = True
  Me.ScrollBar1.Visible = True
  Me.ScrollBar1.Min = début
  Me.ScrollBar1.Max = [liste].Count - n + 1
  Affiche
  SendKeys "{down}"
End Sub

Module de classe
Public WithEvents GrLabel As Msforms.Label
Private Sub GrLabel_click()
  p = Val(Mid(GrLabel.Name, 6))
  For i = 1 To 5: UserForm1("label" & i).BorderStyle = 0: Next i
  p2 = ((p - 1) Mod 5) + 1
  UserForm1("label" & p2).BorderStyle = 1
  UserForm1.TextBox1 = UserForm1("label" & p2).Caption
  p3 = Val(UserForm1.ScrollBar1.Value) + p2 - 1
  UserForm1.TextBox2 = Range("liste").Offset(, 1)(p3)
End Sub

Boisgontier

Merci beaucoup Boisgonter
Merci pour ton aide c'est sympa, aurait tu une idée pour un system de signature ? j'utilise un InkPicture qui fonctionne mais je n'arrive pas a ce que la signature se copie dans une cellule de la feuille.
Merci d'avance