Code defaillant

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:

---

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èsPièce jointe 279452

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

:cristal:

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

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

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

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

j'ai un problème de pièce jointe !!
Pièce jointe 279836
:piou:

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

Bonjour,

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

Bonsoir eriiic

Code:

---

.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

????

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

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

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

bonjour,
Pièce jointe 280173
@+JP