planning

Re : planning

bonjour,

Pas sûr de bien comprendre
Si tu veux l'imputbox pour chaque type d'absence, dans le module ClasseBoutons tu :

mets une aspostrophe (') devant : If choixb = "M" Then (pour le désactiver)

met une apostrophe (') devant un des End if situé après

a+

Re : planning

Merci pour la réponse,
Oui c'est bien ce que je veux, est cette manipulation suffit pour ce que je marque sur inputbox affichera ensuite sur là planning? Sinon comment je peux procéder pour le faire?
Merci encore

Re : planning

A priori oui
Par contre (par exemple) si tu cliques sur PLD, l'imputbox remplacera l'expression PLD qui était, avant, mentionné sur le planning

a+

Re : planning

bonsoir CHALET53,

il me mis erreur de compilations (Bloc If sans End if),


cordialement

Re : planning

Un seul End if à désactiver

Re : planning

Merci CHALET53 pour l'aide,

deux dernières questions si sa te dérange pas, je souhaite ajouter quelques lignes au dessus la ligne du jour et quelque colonnes est ce que je peux le faire sans percussion sur les macros?!
quand j'efface les absences je souhaite remettre les cellules comme elle étaient à l'origine c'est fusable?

merci encore pour ton aide et désolé pour le dérangement
cordialement

Re : planning

si tu insères des lignes (entre la 4 et la 5 si j'ai bien compris) il faut en tenir compte dans cette procédure et faire les modifications nécessaires (n° de ligne : remplacer le +7 par 7+ le nb de lignes rajoutées et sans doute d'autres éléments)
Procéder par test

Private Sub CommandButton1_Click()
' ACCEDER A LA DATE
Dim Colonne, diff
Dim Colonne1
If Not IsDate(Me.TextBox1) Or Not IsDate(Me.TextBox3) Then
MsgBox "dates non conformes"
ElseIf CDate(Me.TextBox1) < Range("E5") Then
MsgBox "Date de départ hors limite"
ElseIf CDate(Me.TextBox3) > Cells(5, Columns.Count).End(xlToLeft) Then
MsgBox "Date de fin hors limite"
ElseIf CDate(Me.TextBox1) > CDate(Me.TextBox3) Then
MsgBox "La date de départ doit être inférieure ou égale à la date de fin"
ElseIf Me.ComboBox1.ListIndex = -1 Then
MsgBox "Veuillez choisir un nom"
Else
L = Me.ComboBox1.ListIndex + 7
diff = CDate(Me.TextBox1) - CDate(Range("E5"))
Colonne = 5 + diff * 2
If Me.OptionButton2 = True Then Colonne = Colonne + 1
diff = CDate(Me.TextBox3) - CDate(Range("E5"))
Colonne1 = 5 + diff * 2
If Me.OptionButton1 = True Then ' Matinée
Colonne1 = Application.Max(Colonne, Colonne1 - 1)
Else
Colonne1 = Colonne1 + 1
End If

Range(Cells(L, Colonne), Cells(L, Colonne1)).Select

UserForm1.TextBox1 = Me.ComboBox1 'Cells(L, 1).Value 'Correspond la cellule active de la colonne A
UserForm1.Label2 = L
UserForm1.Label3 = J
Unload Me

UserForm1.Show vbModeless
End If
End Sub



a+

Re : planning

oui c'est bien ça ce que je veux, j'ai essayer d'ajouter quelque mais j'ai rencontrer un problème au niveau du formulaire du date il me mis : date de fin hors limite!!

merci encore d'avoir pris le temps de m'aidez

Re : planning

bonjour,

J'ai rajouté 2 lignes entre la 4 et la 5 et j'ai modifié les deux procédures suivantes :

Private Sub CommandButton1_Click()
' ACCEDER A LA DATE
Dim Colonne, diff
Dim Colonne1
'Stop
If Not IsDate(Me.TextBox1) Or Not IsDate(Me.TextBox3) Then
MsgBox "dates non conformes"
ElseIf CDate(Me.TextBox1) < Range("E7") Then
MsgBox "Date de départ hors limite"
ElseIf CDate(Me.TextBox3) > Cells(7, Columns.Count).End(xlToLeft) Then
MsgBox "Date de fin hors limite"
ElseIf CDate(Me.TextBox1) > CDate(Me.TextBox3) Then
MsgBox "La date de départ doit être inférieure ou égale à la date de fin"
ElseIf Me.ComboBox1.ListIndex = -1 Then
MsgBox "Veuillez choisir un nom"
Else
L = Me.ComboBox1.ListIndex + 9
diff = CDate(Me.TextBox1) - CDate(Range("E7"))
Colonne = 5 + diff * 2
If Me.OptionButton2 = True Then Colonne = Colonne + 1
diff = CDate(Me.TextBox3) - CDate(Range("E7"))
Colonne1 = 5 + diff * 2
If Me.OptionButton1 = True Then ' Matinée
Colonne1 = Application.Max(Colonne, Colonne1 - 1)
Else
Colonne1 = Colonne1 + 1
End If

Range(Cells(L, Colonne), Cells(L, Colonne1)).Select

UserForm1.TextBox1 = Me.ComboBox1 'Cells(L, 1).Value 'Correspond la cellule active de la colonne A
UserForm1.Label2 = L
UserForm1.Label3 = J
Unload Me

UserForm1.Show vbModeless
End If
End Sub

et la procédure suivante :

Private Sub UserForm_Initialize()
With ActiveSheet
ComboBox1.List = .Range("A9:A" & .Range("A65536").End(xlUp).Row).Value
End With
'Me.TextBox1 = "04/01/2016"
'Me.TextBox3 = "15/01/2016"
ComboBox1 = ActiveCell
L = ActiveCell.Row
'ActiveCell.Offset(1, 0).Activate
TextBox2.Visible = False
Me.OptionButton3 = True
End Sub

Re : planning

bonjour
Je t'ai envoyé un message privé...
Va voir.

Re : planning

J'ai vu votre message merci pour les conseil je l'ai pris en compte pour l'avenir
Cordialement