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

MON CODE NE FONCTIONNE PAS

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion chich
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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

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

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

Vote positif 0 Vote négatif
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
Pardon voici le fichier j'espere que se sera claire
merci de votre patience
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
D
  • Résolu(e)
Microsoft 365 Validation des données avec formule + liste déroulante dans la même cellule
Réponses
8
Affichages
1 K
de_hanstrapp
D
  • Question Question
XL 2016 concerne la validation des données avec vba !?
Réponses
8
Affichages
888
Staple1600
  • Résolu(e)
Microsoft 365 Code ne fonctionne pas en double clic
Réponses
9
Affichages
1 K
Usine à gaz
Excel: "Validation des données" en Vba
Réponses
13
Affichages
2 K
Gégé-45550
A
  • Question 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 Question
XL 2013 VBA - Indirect - Validation de données
Réponses
11
Affichages
3 K
FGV
F
N
  • Question Question
XL 2016 Mettre un nombre égal de caractères dans textbox
Réponses
12
Affichages
1 K
NadJP
N
B
  • Résolu(e)
XL 2016 Sélection dernière ligne, création de liste déroulante X fois, macro vba
Réponses
8
Affichages
3 K
BARNS
B
T
  • Résolu(e)
XL pour MAC lenteur du vba
2
Réponses
16
Affichages
3 K
Bernard_XLD
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
T
  • Question Question
XL 2019 probleme dans une macro
Réponses
3
Affichages
982
mapomme
M
  • Question Question
XL 2010 probleme de validation par liste avec vba
Réponses
2
Affichages
1 K
moialbert2
M
  • Question Question
XL 2016 validation de donnees dans cellule
Réponses
2
Affichages
909
KTM
F
Fab007
Réponses
0
Affichages
426
Fab007
F
  • Question Question
XL 2016 Validation de données
Réponses
2
Affichages
927
KTM
I
  • Question Question
XL 2016 listes dépendante d'un autre résultat VBA
Réponses
1
Affichages
919
inconnu
I
P
  • Résolu(e)
XL 2016 Liste déroulantes VBA trop longues
Réponses
7
Affichages
2 K
fanch55
  • Question Question
Validation de listes de données
Réponses
2
Affichages
719
KTM
O
  • Question Question
XL 2016 Erreur VBA
Réponses
3
Affichages
704
ozzii
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…