Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

MON CODE NE FONCTIONNE PAS

C

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
 
Trier par date Trier par votes
C

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
Vote positif 0 Vote négatif

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+
 
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif
C

chich

XLDnaute Occasionnel
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
Vote positif 0 Vote négatif
C

chich

XLDnaute Occasionnel
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
Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020
Repose en paix
Re,

chich à dit:
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
Cliquez pour agrandir...

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
 
Vote positif 0 Vote négatif
C

chich

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

Pièces jointes

  • demo.xlsm
    408.9 KB · Affichages: 32
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Validation des données avec formule + liste déroulante dans la même cellule
Réponses
8
Affichages
727
de_hanstrapp
D
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
1 K
AtTheOne
G
  • Question
Microsoft 365 Aide pour formule qui ne fonctionne pas.
Réponses
8
Affichages
471
TooFatBoy
  • Question
XL 2016 concerne la validation des données avec vba !?
Réponses
8
Affichages
519
Staple1600
  • Résolu(e)
Microsoft 365 Code ne fonctionne pas en double clic
Réponses
9
Affichages
1 K
Usine à gaz
O
  • Question
Send ne fonctionne pas pour mon publipostage
Réponses
2
Affichages
421
OlivierHervé
O
  • Question
Microsoft 365 Code qui ne fonctionne pas sur Excel 365
Réponses
13
Affichages
593
Staple1600
A
  • Question
XL 2013 erreur 1004 définie par l'application ou par l'objet
2
Réponses
27
Affichages
2 K
adet ruireux
A
F
  • Question
XL 2013 VBA - Indirect - Validation de données
Réponses
11
Affichages
2 K
FGV
F
N
  • Question
XL 2016 Mettre un nombre égal de caractères dans textbox
Réponses
12
Affichages
1 K
NadJP
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…