MON CODE NE FONCTIONNE PAS

chich

XLDnaute Occasionnel
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
 

chich

XLDnaute Occasionnel
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
 

Pièces jointes

  • demo.xlsx
    14.3 KB · Affichages: 52

job75

XLDnaute Barbatruc
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

Nous a quittés en 2020
Repose en paix
Bonjour à tous,

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

Code:
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

XLDnaute Occasionnel
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
 

Pièces jointes

  • demo.xlsx
    366.4 KB · Affichages: 24

chich

XLDnaute Occasionnel
Bonjour à tous,

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

Code:
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
 

Pièces jointes

  • demo.xlsx
    366.4 KB · Affichages: 35

phlaurent55

Nous a quittés en 2020
Repose en paix
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

XLDnaute Occasionnel
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
 

Pièces jointes

  • demo.xlsm
    408.9 KB · Affichages: 32

chich

XLDnaute Occasionnel
debogage.GIF
debogage2.GIF
Re,

le fichier en retour
à vérifier

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

Discussions similaires

Statistiques des forums

Discussions
312 911
Messages
2 093 509
Membres
105 744
dernier inscrit
laure.mg