Forums XLPages

Tous les messages (Mytå)

« 1 ... 14 15 16 17 18 »
Re: Macro et touche entrée
#161
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 07-09-2011 01h28
 Salut le forum

Deux possibilités

Commencer par Outils > Macro > Nouvelle macro
Choisir le nom ,les touches de raccourci (type Ctrl+a) et OK
Ta macro qui sera accessible par le raccourci, ici Ctrl + a

Directement en redéfinissant une touche
Private Sub Workbook_Open()
' F2 provoquera l'appel de la macro
Application.OnKey '{F2}', 'Nom_de_la_macro'
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' F2 redevient la touche d'édition
Application.OnKey '{F2}'
End Sub
Pour voir la liste des touches faire F1 sur SendKeys en VBA.

Quelques exemples
 
AIDE {HELP}
ORIGINE {HOME}
INSERTION {INSERT} ou {INS}
GAUCHE {LEFT}
VERR.NUM {NUMLOCK}
PG.SUIV {PGDN}
PG.PRÉC {PGUP}
IMPR. ÉCRAN {PRTSC}
DROITE {RIGHT}
ARRÊT.DÉFIL {SCROLLLOCK}
TAB {TAB}
HAUT {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
Mytå
Hors Ligne
 Rapport   Haut 

Re: selection cellule suivant contenu dans boucle IF
#162
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 07-09-2011 01h06
Salut le forum

Jean-Marie, la syntaxe Cells( i, "G") est acceptée dans VBA

Pour les dates ces solutions seront acceptées :

 "31/7/1960", "31/07/1960", "31/7/60","31 juillet 1960", "31-juil-1960" et "31 juil 1960"
L'année doit être à 4 chiffres.

Mytå
Hors Ligne
 Rapport   Haut 

Re: double condition sur l'expression "If not intersect"
#163
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 13-07-2011 03h30
Salut le forum

Pour le Intersect
If Not (Intersect(Target, [N6:O25]) Is Nothing) And Target.Interior.ColorIndex = xlNone Then

Mytå
Hors Ligne
 Rapport   Haut 

Re: aide sur un commentaire dynamique
#164
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 16-08-2009 21h24
Salut le forum

Bienvenue comme nouveau membre

Maherom, le code vérifie le point-virgule(;) et les guillemets(")

Pour contourner le problème en T20 ta formule
Code:
=ET(E21<>"";E21<N12)*1

Et dans ta mise en forme conditionelle
Code:
="mDF($T$20=1;Salut Maher, ça te convient ?)"

Le format reconnu par la macro est
Code:
"mDF(Condition;Message)"

Tu fais la même chose pour les autres avec une cellule intermédiaire.

Mytå
Hors Ligne
 Rapport   Haut 

Re: Appel à TRADUCTEURS pour mDF XLcalendar !
#165
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 09-03-2009 02h15
Salut le forum

Bravo pour les interprètes

A tous :
En d'autres lieux, il existe des Salons de discussions... Ce n'est pas le cas sur XLpages. La messagerie privée reste toutefois disponible pour vos messages personnels.

Désolé de polluer ton forum, mais ...........................

Oki, j'ai compris, ne venez pas trainer ici pour rien.

Bonne continuation avec ton forum MDF.

Si j'ai bien compris : Si tu n'as rien à faire, ne vient pas le faire ici !

Edité par Mytå le 11/03/2009 00:23:15
Hors Ligne
 Rapport   Haut 

Re: Désactiver l'instruction application.ontime
#166
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 15-07-2008 23h39
Salut le forum

Au début du code d'un module
Option Explicit
'Variable déclarer en Public pour conserver les valeurs
Public Time_Opening As Date
Public Apres40minutes As Date
et le code dans ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Arret du processus
On Error Resume Next
Application.OnTime TimeValue(Apres40minutes), "'Fermeture """ & Time_Opening & """'", , False
End Sub

Private Sub Workbook_Open()
    Worksheets("Weekly").Select
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim Compteur As Integer

'..... je vous passe les instructions qui n'ont aucun rapport

'workbook closed after 40'
'J'ai supprimer les deux Dim pour les déclarer en Public
Time_Opening = Format(Time, "HH:MM:SS")     'Init Time opening
Apres40minutes = Now + TimeValue("00:00:10")
Application.OnTime TimeValue(Apres40minutes), "'Fermeture """ & Time_Opening & """'"            'Syntaxe de Myta

   
'----- réinit other events -----------
Worksheets("Weekly").Select
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Et sans passer par une cellule qui pourrait être problématique
Mytå

P.S. J'ai mis le temps à 10 secondes pour faire les tests, 
remplacer TimeValue("00:00:10") par TimeValue("00:40:00")





Pièce jointe:
xls Mira57_V1.xls   [ Taille: 29.50 Ko - Téléchargements: 786 ]
Edité par Mytå le 15/07/2008 23:59:30
Hors Ligne
 Rapport   Haut 

Re: syntaxe VBA sur l'instruction application.ontime avec paramètres
#167
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 07-07-2008 23h53
Salut le forum

Merci Mira57(Michel) d'avoir mis la ficelle en mode résolu.

Au plaisir de se croiser, sur une autre ficelle.

Jean-Rock Gauthier
(Alias Mytå)

P.S. Un petit bonjour à @Cathy comme nouvelle adepte du forum


Hors Ligne
 Rapport   Haut 

Re: syntaxe VBA sur l'instruction application.ontime avec paramètres
#168
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 05-07-2008 18h43
Salut le forum

Mira57, j'ai créer un classeur avec les codes fournies, les seules erreurs rencontrées : la double virgule et les macros non-incluse.

Mytå

Pièce jointe:
xls mira57.xls   [ Taille: 28.50 Ko - Téléchargements: 788 ]
Hors Ligne
 Rapport   Haut 

Re: syntaxe VBA sur l'instruction application.ontime avec paramètres
#169
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 05-07-2008 01h11
Salut le forum

Il ne faut pas abandonner aussi vite, pourquoi ne pas
mettre ton code complet au-lieu de juste une ligne qui
ne fera jamais avancer la résolution de ton problème.

Il faut deviner ta façon de voir la chose et nous ne sommes
pas encore des Devins.

Au plaisir de te relire.
Mytå
Hors Ligne
 Rapport   Haut 

Re: syntaxe VBA sur l'instruction application.ontime avec paramètres
#170
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 03-07-2008 23h59
Salut le forum

Le plus simple aurait été de mettre un fichier exemple.
essaye cette procédure elle fonction pour moi.
Option Explicit
Public RunWhen As Variant
Public Time_opening As Date

Sub LanceMessage()
'Départ du processus
RunWhen = TimeValue(Now + TimeSerial(0, 0, 15))
Time_opening = "23:59:59"
Application.OnTime RunWhen, "'Fermeture """ & Time_opening & """'"

End Sub

Sub StopMessage()
'Arrêt du processus
On Error Resume Next
Application.OnTime RunWhen, "'Fermeture """ & Time_opening & """'", , False
End Sub

Sub Fermeture(Time_opening As Date)
MsgBox Time_opening
Call LanceMessage
End Sub
Mytå
Hors Ligne
 Rapport   Haut 

« 1 ... 14 15 16 17 18 »