Discussion :

[Kayzerovic]

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!

[Invité]

Bonjour,

Que fait votre macro ?

[unparia]

Bonjour

j'essaie d'apprendre comment cela fonctionne

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

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.

[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.

[Kayzerovic]

Voici ce que la macro donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Indiquez sur quoi vous butez.

Mettez votre code entre balises #

[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

[Invité]

j

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Invité]

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.

[Kayzerovic]

ok sur quel site préférez vous?

[Invité]

ok sur quel site préférez vous?

Vous avez la possibilité de mettre des pièces jointes dans un message sur ce site.

[Kayzerovic]

voici le fichier

[Kayzerovic]

par contre il n'accepte pas mon fichier csv

[Invité]

par contre il n'accepte pas mon fichier csv

Il faut le ziper.

[Kayzerovic]

je vous ai rajouté le fichier csv en feuille 1 pour vous montrer comment il s'importe.

[Kayzerovic]

désolé pour mon amateurisme

[Invité]

Pouvez-vous m'envoyer votre fichier .rar en .zip ? Clic droit sur le fichier dans l'explorateur et Envoyer vers dossier compressé.

[Kayzerovic]

ah oui mauvaise habitude du rar

[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 ?