Discussion :

[samchich]

Bonjour a la communauté
j’essaye de me débrouiller avec l'enregistreur de macro mais la je bute un coup de main serais le bienvenu
merci d’avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub ToggleButton3_Click()
Application.ScreenUpdating = False
Selection.Validation
ActiveCell.EntireRow.Delete
Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertWarning, Operator _
:=xlBetween, Formula1:="=MOD(M11>Q11;1)>=0,5"
ActiveCell.FormulaR1C1 = " : "
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=RC[-1]>TIME(12,00,0)"
ActiveCell.Offset(0, -4).Select
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Amplitude"
.InputMessage = ""
.ErrorMessage = _
" ATTENTION " & Chr(10) & "Veuillez respecter les amplitudes horaires" & Chr(10) & ""
.ShowInput = True
.ShowError = True
ActiveCell.FormulaR1C1 = "10:00"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=RC[-1]+TIME(7,00,0)"
ActiveCell.Offset(0, 4).Select
Load UserForm2
End Sub


j’espère que ma demande sera plus claire avec le fichier j' ai essaye de bidouillé quelque chose avec l'enregistreur de macro sans succèsdemo.xlsx

[Jean-Philippe André]

Salut,

je ne peux pas ouvrir les fichiers Excel (securite), mais si tu nous dis un peu plus sur ce que tu veux faire avec ton code et a quel niveau ca bloque, on pourra te proposer des pistes de solutions.

Sans plus de details, ca va etre difficile



A priori deja tu as vire des blocs With End With (pourquoi ?)

[samchich]

je souhaite faire un suivi de mon temps de travail le plus automatisé possible
il faudrais que la macro renvoie un message d'attention a l'amplitude horaire qui est de 12heures entre chaque prise de poste
si G11 contien un prise de poste qui ne respecte pas l'amplitude de 12heures par raport a C11 alors message d'attention
INFO Je renseigne ma cellule active a partire d un ToggleButton3_Click() dans un userform
MERCI POUR VOTRE PATIENCE

[mjpmjp]

bonjour,
j'ai un problème de pièce jointe !!


DIM
case B4 14:00
case C4 20:00
case D4 =C4-B4 --> 06:00

LUN
case G4 06:00
case H4 20:00
case I4 =H4-G4 --> 14:00

L'amplitude est de : =(24-C4)+G4 --> 10:00

Amplitude trop Faible --> résultat de --> =SI((1-VALEURNOMBRE(C4))+VALEURNOMBRE(G4)>=0,5;"";"Amplitude trop Faible")
1 --> pour 24
0,5 --> pour 12 --> logique
@+JP

[mjpmjp]

j'ai un problème de pièce jointe !!

[samchich]

Bonjour
merci pour votre interet
sa ne fonctionne pas (NOM?)

Bonsoir a tous
help je ram j'ai une ligne qui cause soucis
merci d'avance

[eriiic]

Bonjour,

ta formule a une ( non fermée, ça gène...
eric