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

[samchich]

Bonsoir eriiic

Code :

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

.Add Type:=xlValidateWhole, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=+(24-C11)+G11>0,5"

serait il possible svp d’avoirs un message box qui remplace cette ligne car je n'en vois le bout
merci d'avance

[eriiic]

????

Déjà c'est quoi l'intérêt de faire par macro ce que tu peux poser définitivement sur la feuille ?
Que ce soit une MFC ou une Validation.
eric

[samchich]

Re
je renseigne la cellule active a partir d'un userform donc la validation de donnee que je ne maitrise pas tres bien ne fonction pas quant je passe par l'userform pour remplir mes cellules
j'espere que mon explication est clair

[eriiic]

Bonjour,

et bien il faut contrôler tes saisies à la validation du formulaire.
Mais bon, si tu as repris le travail trop tôt ça ne te fera pas revenir dans le passé...
eric

[mjpmjp]

bonjour,

@+JP