Encore faudrait-il que je le connaisse pour le rajouter et surtout de toujours mettre cette celulle dans celui-ci
Peux tu me le communiquer pour que je le rajoute
N oublies pas de valider ma réponse c est un plus appréciable
Merci
re pas de non spécifique c’est feuil1
je clic ou pour valider, sur solution ou sur le cœur
dans la réponse
Ton fichier avec l’ajout du nom de l’onglet « Feuil1 » (Attention à ne pas le modifier)
Pour valider c’est à ce niveau comme cette copie d’écran (en vert Solution) :
Tu as les instructions clairement détaillées dans les consignes du forum ici :
La petite côche verte
Merci
re je vois pas le fichier modifier
Pourquoi refaire une demande alors que Mimimathy t’as donnée un fichier fonctionnel ici même sur ce forum
Merci ça fonctionne
je vais terminer mon le fichier dans lequel je vais tenter d’intégrer cette macro
j’espère y arriver
Merci
Bonjour
Je reste disponible pour toute difficulté que tu pourrais rencontrer
Au plaisir
bonjour FFO et bonjour a tous
merci beaucoup pour ton aide cela m’a permis de créer et de finaliser mon fichier cependant il
me reste encore une étape a franchir : la cellule i7 indique l’heure de départ que je rentre au clavier
les cellules k10 a p10 sont les heures a laquelle ce déclenche les macros, j’ai tenu compte de tes précieux conseilles et ajouté le thisworkbook et ça marche .
j’en viens donc a ma demande est t’il possible de modifier automatiquement ou par le biais d’une box,
les heures du déclenchement contenues dans la macro
merci encore
amicalement
MALIKA TESTE Evolutioncotes OK.xlsm (51,9 Ko)
Bonjour
« j’en viens donc a ma demande est t’il possible de modifier automatiquement ou par le biais d’une box,
les heures du déclenchement contenues dans la macro »
Les heures de déclenchement ne sont pas dans la macro mais dans les cellules dont elle fait référence :
K10
L10
M10
N10
O10
P10
Donc c’est au niveau de ces cellules qu’il faut agir et non dans les lignes de codes qui en font usage
Que souhaites tu comme modification à réaliser concernant ces cellules peut tu préciser (leur nombre leur importance le contexte précis de cette mise à jour)
Bonjour FFO
et merci pour t’as diligence
voila K10 L10 M10 N10 O10 P10 ce calcule en fonction de I7
et le contenu de c’est cellule déclenche les macros contenues dans la feuils1
soit
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range(« k10 »)) Is Nothing Then
If Target.Text = « 17:05 » Then Call Turf1
End If
If Not Application.Intersect(Target, Range(« L10 »)) Is Nothing Then
If Target.Text = « 17:10 » Then Call Turf2
End If
If Not Application.Intersect(Target, Range(« M10 »)) Is Nothing Then
If Target.Text = « 17:15 » Then Call Turf3
End If
If Not Application.Intersect(Target, Range(« N10 »)) Is Nothing Then
If Target.Text = « 17:17 » Then Call Turf4
End If
If Not Application.Intersect(Target, Range(« O10 »)) Is Nothing Then
If Target.Text = « 17:18 » Then Call Turf5
End If
If Not Application.Intersect(Target, Range(« P10 »)) Is Nothing Then
If Target.Text = « 17:19 » Then Call Turf6
End If
donc si je modifie I7 les heures de K10 L10 M10 N10 O10 P10 ce recalcule en fonction de cette nouvelle donnée et je dois également modifier les heures dans la macro. Simon il ce passe rien
s’il existe une autre façon de faire je suis preneur mais je vois pas il m’a déjà fallu 15 Jours pour arriver a ce résultat
merci pour ton attention
Mais tu n’utilises pas le code dans le ThisWorkbook :
Private Sub Workbook_Open()
If Sheets(« Feuil1 »).Range(« k10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« k10 »))), « Turf1 »
End If
If Sheets(« Feuil1 »).Range(« L10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« L10 »))), « Turf2 »
End If
If Sheets(« Feuil1 »).Range(« M10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« m10 »))), « Turf3 »
End If
If Sheets(« Feuil1 »).Range(« N10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« N10 »))), « Turf4 »
End If
If Sheets(« Feuil1 »).Range(« O10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« O10 »))), « Turf5 »
End If
If Sheets(« Feuil1 »).Range(« P10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« P10 »))), « Turf6 »
End If
Merci de m’éclairer car je ne comprends pas c’est 2 procédures ne font-elles pas doublon ?
A l’ouverture du fichier celle que je t’ai mis en place suffit au déclenchement de l’ensemble des procédures inutile de garder celles que tu me cites elle fait double emploi
re dans thisworkbook il y a
Option Explicit
Private Sub Workbook_Open()
If Sheets(« Feuil1 »).Range(« k10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« k10 »))), « Turf1 »
End If
If Sheets(« Feuil1 »).Range(« L10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« L10 »))), « Turf2 »
End If
If Sheets(« Feuil1 »).Range(« M10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« m10 »))), « Turf3 »
End If
If Sheets(« Feuil1 »).Range(« N10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« N10 »))), « Turf4 »
End If
If Sheets(« Feuil1 »).Range(« O10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« O10 »))), « Turf5 »
End If
If Sheets(« Feuil1 »).Range(« P10 ») <> « » Then
Application.OnTime TimeValue(CDate(Sheets(« Feuil1 »).Range(« P10 »))), « Turf6 »
End If
End Sub
mais je pense a une autre façon d’aborder le problème
dans feuil1 de la macro serait’il possible de prendre en compte le contenu de I7 quel qu’il soit, déduit le contenu des cellules K6 qui donne K10 …tec de K6 a P6
Quel intérêt de cette approche que cherches tu à realiser par cette mise en place
Merci de m éclairer sur tes intentions
Ta macro est inutile il faut la supprimer
je vois pas ton fichier réponse
l’ intérêt du fichier en 1er lieu est de ne pas rester planté devant l’ordi et de ne pas louper les heures de déclenchement des macros successives
et en 2ém pouvoir utiliser la macro en changement l’heure sans modifier les données interne a la macro
La macro du ThisWorkbook réalise tout celà sans intervention humaine tests à l appui
Seul nécessité si modification des heures de déclenchement d enregistrer le fichier de le fermer et le rouvrir pour une prise en compte des nouveaux horaires ni plus ni moins
Aucunement besoin de la macro de la feuille tu peux la supprimer
ok
je test de suite merci
de ton aide précieuse
amicalement
Donnes moi des nouvelles
ça marche merci encore.
c’est super
a bientôt
Au plaisir et bonne utilisation