XL 2010 Combobox avec couleur

xUpsilon à dit:

Bonjour,

Pour créer un autre fichier excel :

VB:

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é)

Code:

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,

Cliquez pour agrandir...

Dydou76 à dit:

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

Cliquez pour agrandir...

BOISGONTIER à dit:

Bonsoir,


Exemple de simulation de ComboBox couleur

VB:

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

Cliquez pour agrandir...