Résultats pour "automatiser execution macro heure fixe"

10'161 résultats pour cette recherche

automatiser l’exécution d'une macro a heure fixe 2 fois par jour c'est possible?

J'ai trouvé pour la qu'on pouvait la faire exécuté de façons temporisé toute les x seconde(, minutes, heures,...) par VBA

du genre ceci:

VbaSélectionnez

Sub LaMacro_V03()

'tempo 1 seconde

Application.Wait (Now + TimeValue("0:00:01"))

MsgBox "test"

End Sub

Mais j'aurais aimer pouvoir le faire a 8h00 AM et a 12h00 PM a tout les jours.

Bonjour,

J'essaye de créer une feuille de présence des bénévoles pour l'asso ou je suis.

J'ai réussi mon tableau et les calculs sauf, un calcul qui me pose problème.

Sur la semaine les bénévoles ne doivent pas dépasser 15h par semaine et c'est la que je bloque...

imprime ecran 15h

J'ai rechercher sur la toile et je n'ai pas trouver de réponse sur la formule à employer.

Est ce que quelqu'un aurrait la solution à mon problème???

Par avance merci beaucoup à celui qui à la solution

PS: Mon fichier Excel

Bonjour,

le titre n'est peut être pas clair alors on va détailler direct:

Au départ

1269.33 est le résultat d'un nombre de jour: 272 multiplié par un nombre d'heure par jour: 4.67 qui est un nombre d'heure au format décimal. Au départ je voulais mettre le résultat sous la forme heures:minutes.

Donc

je trouve cà (=(TRONQUE(B43))+((ARRONDI(((B43-TRONQUE(B43))*60);2))/100) avec B43=1269.33 sur le net mais çà ne marche pas toujours. Pour ce cas là c'est bon car on un résultat de 1269 h et 20 min.

Mais

mon collègue de boulot, qui fait sa convertion de son côté, trouve 1247 h et 26 min, en utilisant clic droit sur la cellule/format de cellule/nombre/catégorie:personnalisée/type[h]:mm. Il me dit que la multiplication entraîne un trop grand nombre d'heures à cause de la décimale.

Bref

dans le flou total, je cherche un truc qui marche à tous les coups.

Merci d'avance, si c'est pas clair, dites moi

Au passage si il existe une formule pour aller dans l'autre sens je suis preneur.

Bonjour,

Je souhaiterai trouver la formule pour calculer le nombre de jours d'absences pour des congés,

Exemple :

Je suis absent du 01/01/2019 à ma fin de travail qui est à 17H00 et je reprends le 03/01/2019 à 8H00,

Le nombre de jour d'absence doit être de 1.

Je joins un fichier pour exemple.

36conges.zip (11.46 Ko)

Bonjour,

je voudrais pouvoir effacer plusieurs cellules d'un fichier tous les jours à 5h du matin ,quelle macro puis je mettre en place, merci

bonjour je cherche a imprimer une feuille excel tous les matin a 7h00

merci pour vos reponse

Bonjour,

je souhaiterais qu'à une heure fixe tous les jours, par exemple 21h30, mon fichier excel réalise un print screen et copie le résultat dans une fenêtre.

J'ai vu quelques trucs dans ce style sur des forums anglais mais je ne trouve rien en français.

Qui aurait une idée ?

Salut à tous

je lance un coucou à tous les membres de ce forum.

Merci pour tout ce que vous faites et ferai pour la bonne cause du forum.

J'ai un petit soucis avec une macro.

En effet, je souhaiterai qu'on automatise l'exécution de la macro ci-dessous:

Sub copier()

Dim fin&, cel As Range, cel1 As Range, cel2 As Range, cel3 As Range, cel4 As Range

Set cel = Feuil11.Range("F:F").Find(Feuil1.Range("F20"))

Set cel1 = Feuil11.Range("C:C").Find(Feuil1.Range("B41"))

Set cel2 = Feuil11.Range("D:D").Find(Feuil1.Range("B5"))

Set cel3 = Feuil11.Range("E:E").Find(Feuil1.Range("B17"))

Set cel4 = Feuil11.Range("F:F").Find(Feuil1.Range("E9"))

If cel Is Nothing Then

If cel1 Is Nothing Then

If cel2 Is Nothing Then

If cel3 Is Nothing Then

If cel4 Is Nothing Then

With Feuil1

If .Range("E9") <> "" Then

fin = Feuil11.Range("B" & Rows.Count).End(xlUp).Row + 1

Feuil11.Cells(fin, 2) = .Range("F20")

Feuil11.Cells(fin, 3) = .Range("B41")

Feuil11.Cells(fin, 4) = .Range("B5")

Feuil11.Cells(fin, 5) = .Range("B17")

Feuil11.Cells(fin, 6) = .Range("E9")

End If

End With

End If

End If

End If

End If

End If

End Sub

Je suis obliger d'executer la macro manuellement.

Je souhaite que son exécution soit automatisée. je ne veut pas passer par un bouton ni par une touche de raccourci pour que ma macro se s'exécute.

j'espère m'avoir bien fais comprendre sinon je reste à votre disposition pour les cas d'éclaircissements.

11classeur1.xlsx (11.51 Ko)

Bonjour, j'ai extrait des données par annee mois semaine avec un nombre heure.

Mon objectif cumuler par semaine le nombre heure dans un tableau séparé.

Voir piece jointe pour plus info.

Merci d'avance de votre réponse.

Bonjour, j'ai extrait des données par annee mois semaine avec un nombre heure.

Mon objectif cumuler par semaine le nombre heure dans un tableau séparé.

Voir piece jointe pour plus info.

Merci d'avance de votre réponse.

49classeur1.xlsx (11.51 Ko)

Salut à tous,

J'aimerai trouver le code VBA qui changerai le nom de ma feuille excel par "OD transféré le 08.03.20 à 18h56"

J'arrive a faire "OD transféré le 08 Mars 2020" mais par le reste !!!

Je vous met le code actuel

Sheets("Transfert OD").Select

Dim dte As Date

Dim dte1 As String

dte = Now()

dte1 = Format(dte, "[$-40C]d mmmm yyyy;@")

ActiveSheet.Name = "OD transféré le " & dte1

Merci à vous!!

Bonjour,

Je suis assez débutant en macro et j'aurais besoin de votre aide pour résoudre un de mes problème .

Dans mon fichier en PJ il y a une petite macro sur la Feuil1. Je voudrais que cette macro s'exécute automatiquement tous les jours à la même heure en sachant que le fichier est en permanence ouvert (le fichier n'est pas ouvert et fermé tous les jours).

Merci d'avance pour votre aide !

Bonjour le forum

Je viens solliciter vos lanternes sur deux macros:

  • la 1ère dans la fin du module 1 me permet de masquer les lignes vides de mon tableau.
  • la 2è macro dans thisworkbook définit l'heure à laquelle le masque des lignes vides doit se réaliser.
Voici mes observations sur lesquelles je viens vers vous:

* Normalement, à chaque 18h00 (lundi à vendredi) et 13h pour les samedi, la macro masqueligne devrait s'exécuter mais tel n'est pas le cas. mais si je procède manuellement ca fonctionne.

Comment faire pour qu'elle fonctionne conformement au temps définit.

Je voulais ajouter des conditions :

Je veux que chaque jour (08H00), le tableau se réinitialise c'est à dire que les données du jour précédent doivent être effacées et les lignes masquées doivent s'afficher. donc j'ai à nouveau un tableau vide prêt à recevoir les données du jour j.

Je reste à votre disposition pour des éclaircissements.

Bonjour a tous,

Je débute dans l'utilisation des Macro (et en VBA j'ai le niveau 0) j'ai un document a mettre en page. J'ai réalisé une macro que je voudrais répéter toutes les trois ligne vers le bas... En gardant une seul case qui soit fixe pour la sélection (celle en J)... J’espère que je suis clair...Merci d'avance pour votre aide je joins le code:

Sub Macro5()
'
' Macro5 Macro
'

'
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A3").Select
    Selection.Copy
    Range("A4").Select
    ActiveSheet.Paste
    Range("J1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B4").Select
    ActiveSheet.Paste
    Range("E3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C4").Select
    ActiveSheet.Paste
    Range("D3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D4").Select
    ActiveSheet.Paste
    Range("A7").Select
End Sub

Bonjour,

Est-ce que quelqu'un serait en mesure de modifier le code ci-dessous pour que les photos affiches soient proportionnel a l'image original et quelle soit maximum la hauteur de 3,57cm et largeur de 6,03cm svp

Sub ChargeTrombinoscope()
    Dim Chemin As String, Fichier As String
    Dim Nom, Prénom As String
    Dim splitArr() As String
    Dim Ligne As Integer
    Worksheets("Pix").Activate

    'Définit le répertoire contenant les fichiers
    Chemin = "C:\test-20160928\MyPH\"
    'Boucle sur tous les fichiers du répertoire (photos).
    Ligne = 3
    Fichier = Dir(Chemin & "*")
    Do While Len(Fichier) > 0
        'Extraction prénom
         splitArr = Split(Fichier, ".")
         Prénom = splitArr(0)
         Range("H" & Ligne).Value = Prénom
         'insertion de la photo dans la colonne C
          Largeur = ActiveSheet.Cells(Ligne, 11).Width
        Hauteur = ActiveSheet.Cells(Ligne, 11).Height
        GaucheI = ActiveSheet.Cells(Ligne, 11).Left
        HautI = ActiveSheet.Cells(Ligne, 11).Top
        ActiveSheet.Shapes.AddPicture Chemin & Fichier, False, True, GaucheI, HautI, Largeur, Hauteur
        'Fichier suivant
        Fichier = Dir()
        Ligne = Ligne + 1
    Loop
End Sub

Bonjour.

Je cherche à me faire un tableau de bord automatisé qui va me lister les taches que j'ai à faire et dans quel délai, avec des systèmes de priorité / urgence avec des affichages couleurs différents.

En gros :

Ma feuille 1 liste toutes les taches non encore accomplies de chaque mois.

Les feuilles 2 à 13 représentent chaque mois.

Chaque feuille de mois à une 50aine de lignes de liste de taches.

Quand je saisi une tache dans janvier, je dois cliquer sur un bouton 'Mise à jour' pour MaJ la feuille 1 récapitulative. La macro que j'ai faite copie donc la dernière ligne non vide du mois, pour la coller dans la dernière ligne vide du tableau récapitulatif.

Le système actuel recopie également les mises en forme conditionnelles pour les alertes couleurs donc pour ça tout va bien.

Mon problème :

Quand je clique sur le bouton Mise à jour je n'arrive pas à modéliser ce qui suit :

Verrouiller les cellules C, D, E et G de la dernière ligne non vide

Déprotéger les cellules C, D, E, F, G de la dernière ligne vide.

J'utilise l'application End(xlDown).Offset(0).Select mais ça ne fonctionne pas d'où mon problème. alors soit j'ai fais une faute de frappe soit ya un truc qui plante mais je ne sais pas quoi.

Pouvez vous m'aider svp?

Merci

Bonjour à tous,

Quand le résultat d'une formule me convient (et que je veux par exemple le copier dans Word), je fixe la valeur en la sélectionnant et en faisant : clique droit, copier, collage spécial, valeurs. C'est un peu long.

Dans le fichier joint (exemple fictif) qui comporte 3 onglets de 1 à 3, il y a 5 nombres aléatoires entiers entre 1 et 10.

Je souhaiterais faire une seule macro (valable pour les 3 onglets) qui ferait la chose suivante :

Si je travaille dans l'onglet i, je presse F9. Si par exemple, le 2ème nombre me satisfait, je le sélectionne et la macro me fixe ce nombre et si par exemple, les 3ème, 4ème et 5ème nombre me conviennent, je les sélectionne et la macro me fixe ces 3 nombres.

Je ne sais pas si cela est réalisable.

Quelqu'un aurait-il une piste?

Merci d'avance.

Michel

5fixevaleurs.xlsx (9.65 Ko)

Bonjour,

J’ai une macro relativement longue et j’aurais voulu qu’apparaisse un message du genre „La feuille est en cours de réactualisation, merci de patienter“ pendant que le code moulinerait en arrière-plan. A la fin de la macro, ce texte disparaîtrait automatiquement.

J’ai tenté le coup avec un UserForm sans bouton que j’aurais voulu ouvrir en début de macro avec UserFormX Show et refermer en fin de macro avec Unload UserFormX, mais bien entendu que le code reste bloqué après l’ouverture du UserForm et attend que quelqu’un le referme

Savez-vous s’il existe une solution de remplacement ?

Amicalement.

bonjour,

j'ai réussi à convertir mon format heure type 58h28 en format excell type 58:28 par la formule =(GAUCHE(C4;2)&":"&DROITE(C4;2))

Par contre, lorsque l'heure est négative type -11h30 la formule me converti -1:10

je ne comprend pas la raison.

Pouvez vous m'aider s'il vous plait?

Bonjour,

j'ai une formule en erreur avec un nombre négatif pour des format en heure, voici l'exemple:

=(GAUCHE(C10;2)&":"&DROITE(C10;2))*24

cette formule avec une heure type 58h28 calcul 58.46 sans problème. La difficulté se situ avec une nombre d'heure négatif comme si C10 est -11h30 , la formule est en #valeur!

Aurriez vous une aide à m'apporter ?

je vous remercie par avance.

Recherches récentes

calcul taux tva seul feuilleplanning horraircreer facturecreer facture word pdf partir base modeleextraire liste multiple critereextraire liste fonction multiple criterecopier coller entre fichiers nouvellement ouvertworkbooksworkbooks activatetresorerieajout ligneprevisionnel tresorerievba color plage date double conditioncolonne vbadimspin textspinmail graphiquesharepointsci