Exécuter une macro à partir d'une séléction

Version imprimable

16/09/2017, 11h23
Kayzerovic

Exécuter une macro à partir d'une séléction

Bonjour,

Je suis ultra novice en macro,
j'essaie d'apprendre comment cela fonctionne, j'arrive à peu faire à faire ce que je veux (si petit soit il) mais je n'arrive à trouver comment on exécute une macro à partir d'une sélection.

Je voudrais sélectionner manuellement un certain nombre de cellule et à partir de là enclencher ma macro à partir de mon bouton.
merci de m'aider!
16/09/2017, 11h35
Invité

Citation:

Envoyé par Kayzerovic

Bonjour,

Que fait votre macro ?
16/09/2017, 11h50
unparia

Bonjour

Citation:

j'essaie d'apprendre comment cela fonctionne

Très bien.:applo: Mais alors : commencer par la compréhension des mots et mécanismes. Ainsi :

Citation:

je n'arrive à trouver comment on exécute une macro à partir d'une sélection

est une expression erronée. On n'exécute pas une macro "à partir" d'une sélection. On "applique" une macro à une sélection.
Pour répondre à ta question :
on crée une procédure (ta macro) à laquelle on passe la sélection en paramètre.
et c'est au sein de cette procédure, que l'on écrit les instructions que l'on veut appliquer aux cellules de la sélection
Ces instructions peuvent, selon le cas, traiter d'un bloc la sélection (par exemple en masquer la totalité) ou traiter les cellules une par une (dans une boucle de parcours des cellules de la sélection). Et cet aspect-là dépend de ce que TU veux faire.

Voilà.
Mais je ne vais pas aller plus loin car ce serait laisser penser que ce forum est un forum d'enseignement alors que sa vocation est autre : aide à la résolution d'une difficulté spécifique et parfaitement isolée rencontrée dans le cours d'un développement
Amitiés et bonne étude.
16/09/2017, 14h02
Kayzerovic

Merci de vouloir m'aider et veuillez m'excuser de mes expressions erronées.

Etant débutant je veux utiliser une macro pour une simple saisie.

je transfert un fichier csv dans excel et je voudrais donc, à partir d'une macro rediriger les données du fichier csv dans plusieurs classeur.
je sais le faire manuellement, mais mes données ne sont pas toujours dans les mêmes cellules...donc c'est pour cela que je voulais appliquer ma macro à partir d'une sélection de cellules sélectionnées manuellement.

Ne connaissant pas encore le langage, j'ai créée la macro à partir de l'enregistrement.

Voici ce que la macro donne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Heures_mois()
'
' Heures_mois Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+M
'
    Sheets("Feuil1").Select
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Range("E4:J34").Select
    Selection.Copy
    Sheets("Septembre").Select
    Range("C2:H32").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("Feuil1").Select
    Range("N4:N34").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Septembre").Select
    Range("I2:L32").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

16/09/2017, 14h05
Invité

Citation:

Envoyé par Kayzerovic

Indiquez sur quoi vous butez.

Mettez votre code entre balises #
16/09/2017, 14h15
Kayzerovic

je voudrais appliquer cette même macro en sélectionnant au préalable les cellules que je voudrais déplacer.
par exemple cette macro me permet de déplacer 2 semaines de données, 04 septembre au 16 septembre, seulement si je veux faire la même en octobre les jours ne sont plus les mêmes donc plus dans les mêmes cellules...
d'où mon envie de sélectionner les jours (cellules) désirés puis appliquer la macro

Citation:

Envoyé par Kayzerovic

Feuil1 correspond à votre fichier CSV ?
Pourquoi supprimer la colonne J ?

Ce que vous souhaitez faire pourrait sans doute être optimisé. Il vaudrait mieux ouvrir le fichier CSV et importer directement les données. Mais, sans voir vos modèles source et cible, on ne peut pas se rendre compte.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Explicit
 
Sub Heures_moisV2(ByVal FeuilleSource As Worksheet, ByVal FeuilleCible As Worksheet)
 
    With FeuilleSource
         '.Columns("J:J").Delete Shift:=xlToLeft
         .Range("E4:J34").Copy
         FeuilleCible.Range("C2").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
         .Range("N4:Q34").Copy
         FeuilleCible.Range("I2").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
    End With
 
End Sub
 
Sub TestHeures_moisV2()
 
    'Sheets("Septembre").Cells.Clear
    Heures_moisV2 Sheets("Feuil1"), Sheets("Septembre")
 
End Sub

16/09/2017, 14h47
Kayzerovic

oui c'est ce que je voulais faire mais je ne sais pas le faire...

je supprime la colonne J car les données qui s'y trouve ne m'intéresse pas.
oui la feuille 1 correspond au fichier csv que j'ai importé dans mon classeur
16/09/2017, 14h51
Invité

Citation:

Envoyé par Kayzerovic

Si vous souhaitez qu'on regarde, mettez vos fichiers csv et xlsm en ligne sans données confidentielles et indiquez vos règles d'importation.
16/09/2017, 15h02
Kayzerovic

ok sur quel site préférez vous?
16/09/2017, 15h04
Invité

Citation:

Envoyé par Kayzerovic

ok sur quel site préférez vous?

Vous avez la possibilité de mettre des pièces jointes dans un message sur ce site.
16/09/2017, 15h10
Kayzerovic

1 pièce(s) jointe(s)

voici le fichier
16/09/2017, 15h10
Kayzerovic

par contre il n'accepte pas mon fichier csv
16/09/2017, 15h12
Invité

Citation:

Envoyé par Kayzerovic

par contre il n'accepte pas mon fichier csv

Il faut le ziper.
16/09/2017, 15h19
Kayzerovic

2 pièce(s) jointe(s)

je vous ai rajouté le fichier csv en feuille 1 pour vous montrer comment il s'importe.
16/09/2017, 15h20
Kayzerovic

1 pièce(s) jointe(s)

désolé pour mon amateurisme
16/09/2017, 15h25
Invité

Citation:

Envoyé par Kayzerovic

Pouvez-vous m'envoyer votre fichier .rar en .zip ? Clic droit sur le fichier dans l'explorateur et Envoyer vers dossier compressé.
16/09/2017, 15h27
Kayzerovic

1 pièce(s) jointe(s)

ah oui mauvaise habitude du rar
16/09/2017, 16h12
Invité

Quel est l'intérêt de présenter les semaines de cette manière ?
Ca ne serait pas plus simple de mettre toutes les informations concernant une journée sur la même ligne ?
16/09/2017, 16h14
Kayzerovic

ce serait beaucoup plus simple en effet mais malheureusement c'est mon patron qui le souhaite...
16/09/2017, 16h42
Invité

Citation:

Envoyé par Kayzerovic

Je vous tiens au courant.
16/09/2017, 16h45
Kayzerovic

super merci!
17/09/2017, 07h33
Invité

Citation:

Envoyé par Kayzerovic

Le fichier a été quelque peu modifié....

Après avoir défini le répertoire du fichier et le nom du fichier à récupérer, un clic sur le bouton Importer Csv met à jour les onglets "Import Csv", "Transports effectués" et l'onglet du mois en cours.
Pour la mise à jour du mois en cours, seuls les jours non traités sont mis à jour.
Pièce jointe 312359

Pièce jointe 312357
17/09/2017, 12h42
Kayzerovic

sacré boulot!
Merci de vous êtes donné autant de mal pour moi!
ça va me demander du temps pour comprendre votre macro...
Les semaines ne se remplissent pas, vous ne savez pas le faire ou ce n'est pas possible ou vous n'aviez pas le temps? (c'est juste à titre d'information car je suis conscient du travail effectué)
17/09/2017, 13h38
Invité

Citation:

Envoyé par Kayzerovic

Seul votre patron peut répondre.....:scarymov:
17/09/2017, 13h51
Kayzerovic

:ptdr:

merci de votre réponse, je ne sais pas faire ce que je demandais mais vous avez fait mieux! merci beaucoup
17/09/2017, 14h04
Invité

Citation:

Envoyé par Kayzerovic

L'organisation de vos semaines me paraît trop complexe et nécessite trop de développement. Vous pourriez vous servir du dernier onglet "Transports effectués" que j'ai ajouté pour réaliser une vue par semaine avec un simple TCD. Il vous suffirait ensuite d'ajouter votre calcul de km et les deux dernières colonnes de vos onglets semaine.

Pièce jointe 312426