MON CODE NE FONCTIONNE PAS

[chich]

Bonjour a la communauté
j’essaye de me débrouillé avec l'enregistreur de macro mais la je but un cou de main serais le bien venu
merci d’avance
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

 

[cathodique]

Bonjour Chich
Bienvenue sur XLD

Avec un petit fichier, ça serait mieux. Une explication assez claire, d'où tu pars et surtout ce que tu veux obtenir.

@+

 

[chich]

merci pour l’accueil et pour votre interet
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 sucée

 

[chich]

hello un coup de main svp je n'arrive pas a monté mon code
merci

 

[job75]

Bonjour chich, cathodique,

A priori ce problème se règle, comme vous l'avez compris, par des validations de données dans chacune des 8 cellules de chaque tableau.

Il n'y a pas besoin de VBA pour cela.

Mais pour établir les formules de validation il faut savoir exactement quelles cellules il faut comparer et là vous n'avez pas du tout été clair.

Reprenez votre fichier en y mettant plusieurs exemples montrant des cas où les données sont correctes et des cas où il faut un message d'erreur, en expliquant bien pourquoi.

A+

 

[phlaurent55]

Bonjour à tous,

un code qui fonctionne uniquement pour la comparaison faite sur les cellules C11 & G11
à adapter pour les autres cellules

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G11")) Is Nothing Then
cellule = Target.Address
Application.EnableEvents = False
If 1 - [C11] + [G11] <= 0.5 Then
    MsgBox "L'amplitude de 12 heures n'est pas respectée"
    Target = ""
    Range(cellule).Select
End If
End If
Application.EnableEvents = True
End Sub

à+
Philippe

 

[chich]

Bonjour chich, cathodique,

A priori ce problème se règle, comme vous l'avez compris, par des validations de données dans chacune des 8 cellules de chaque tableau.

Il n'y a pas besoin de VBA pour cela.

Mais pour établir les formules de validation il faut savoir exactement quelles cellules il faut comparer et là vous n'avez pas du tout été clair.

Reprenez votre fichier en y mettant plusieurs exemples montrant des cas où les données sont correctes et des cas où il faut un message d'erreur, en expliquant bien pourquoi.

A+

Bonjour merci pour votre interet et entraide
j'ai modifier mon fichier demo qui j'espere sera plus claire
INFO Je renseigne ma cellule active a partir d' un bouton ToggleButton3_Click() dans un userform
merci

 

[phlaurent55]

Re,

j'ai modifier mon fichier demo qui j'espere sera plus claire
INFO Je renseigne ma cellule active a partir d' un bouton ToggleButton3_Click() dans un userform
merci

Dans le fichier joint à cette dernière réponse, il n'y a pas de macro, pas d'userform

à+
Philippe

 

[chich]

Bonjour à tous,

un code qui fonctionne uniquement pour la comparaison faite sur les cellules C11 & G11
à adapter pour les autres cellules

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G11")) Is Nothing Then
cellule = Target.Address
Application.EnableEvents = False
If 1 - [C11] + [G11] <= 0.5 Then
    MsgBox "L'amplitude de 12 heures n'est pas respectée"
    Target = ""
    Range(cellule).Select
End If
End If
Application.EnableEvents = True
End Sub

à+
Philippe

Bonjour merci pour votre interet et entraide
le code que vous me proposez ne fonctionne pas et il faudrait que le code s'execute pour n'importe quel cellule que je sélectionne 
j'ai modifier mon fichier demo qui j'espere sera plus claire
INFO Je renseigne ma cellule active a partir d' un bouton ToggleButton3_Click() dans un userform
merci

 

[phlaurent55]

Re,

Bonjour merci pour votre interet et entraide
le code que vous me proposez ne fonctionne pas et il faudrait que le code s'execute pour n'importe quel cellule que je sélectionne

Le code fichier que j'ai joint à ma réponse fonctionne pour la cellule G11, il suffit de l'adapter pour les autres cellules

............. par contre le fichier joint à la réponse #9 ne contient toujours pas de macro, d'userform non plus et encore moins de Togglebutton

à+
Philippe

 

[chich]

Re,



Le code fichier que j'ai joint à ma réponse fonctionne pour la cellule G11, il suffit de l'adapter pour les autres cellules

............. par contre le fichier joint à la réponse #9 ne contient toujours pas de macro, d'userform non plus et encore moins de Togglebutton

à+
Philippe

Pardon voici le fichier j'espere que se sera claire
merci de votre patience

 

[chich]

Bonjour merci pour votre interet et entraide
j'ai modifier mon fichier demo qui j'espere sera plus claire
INFO Je renseigne ma cellule active a partir d' un bouton ToggleButton3_Click() dans un userform
merci

voici le fichier j'espere que se sera claire

 

[phlaurent55]

Re,

le fichier en retour
à vérifier

à+
Philippe

 

[chich]

Re,

le fichier en retour
à vérifier

à+
Philippe

SUPER merci mais il ne tien pas compte du jour precedant qui peux etre vide

 

[chich]

Regarde la pièce jointe 990584 Regarde la pièce jointe 990585
SUPER merci mais il ne tien pas compte du jour precedant qui peux etre vide

Il y a aussi un souci avec le changement de jours ( le passage de minuit )