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