Discussion :

[AimeDija]

Bonjour,

N'étant pas encore un expert VBA , je cale sur un petit probléme ;

Je cherche à multiplier les nombres d'une colonne (colonne B , feuille Andre Data) par une cellule contenant un taux de change (C44 , feuille Devises converter Data) présent dans un tableau exporté d'internet et actualisable au fil du temps dans une autre feuille du même workbook.

Mon but est de pouvoir créer des Macro pour chaque devises et activable sur différentes colonnes, pour le moment j'utilise le code ci-dessous qui doit être changer chaque jour en fonction du taux de la devise ;

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
 
 
Option Explicit
 
Sub Multiplier()
Dim m As Range
Dim ws1 As Worksheet
 
Set ws1 = Sheets("Andre Data")
 
For Each m In Range("B2:B30")
m = m / 25.8241
 
Next
End Sub

Pourriez-vous m'indiquer comment je peux fixer la soustraction du m par une cellule fixe et plus un nombre?

Veuillez trouver-ci joint le fichier exemple en xlsm.
Merci d'avance

[MarcelG]

Bonjour,

Comme qui dirait, il faut penser Excel avant VBA.
(Je crois que l'auteur n'est pas loin, çà fait "bien" de le citer)

Sérieux.
Tu souhaites effectuer un collage spécial d'une cellule sur un ensemble de cellules, avec opération.
Sachant cela, tu peux le traduire en VBA

[AimeDija]

Bonjour,

Comme qui dirait, il faut penser Excel avant VBA.
(Je crois que l'auteur n'est pas loin, çà fait "bien" de le citer)

Sérieux.
Tu souhaites effectuer un collage spécial d'une cellule sur un ensemble de cellules, avec opération.
Sachant cela, tu peux le traduire en VBA

Bonjour MarcelG,

Merci pour l'intérêt que tu porte à ma question, je vois ce que tu veux dire et en effet cela est plutôt simple sur Excel mais étant donner le nombre élevé de lignes je recherche vraiment à programmer une série de devises afin qu'un novice en excel puisse exécuter l'opération sans soucis.

Bien à toi,

[MarcelG]

(Salut et Merci, Pierre, content de te retrouver)

AimeDija,

Je voulais te signifier ceci.
Tu penses d'abord à l'action que tu veux réaliser, comme si tu te plaçais sur une feuille de travail.
Et c'est ensuite que tu la traduis en VBA.
Eventuellement, tu peux utiliser l'enregistreur de macro à condition de l'épurer ensuite (notamment en supprimant tous les "Select").
Essaie et reviens si nécessaire.

[MarcelG]

Et le nombre important de cellules ne change rien. Tu ne vas pas en effectuer le balayage.
Il te faut juste définir la cellule par laquelle tu veux multiplier toutes les autres.
Définir les cellules destinataires de ton opération (multiplication, soustraction...)
Exécuter ton collage spécial.
Essaie déjà d'effectuer un collage spécial, via l'enregistreur, sur un nombre fixe de cellules.
Reviens avec un code épuré. Nous verrons ensuite comment redéfinir ce champ.
A plus donc.

[AimeDija]

Bonjour MarcelG,

Merci pour ton aide, j'ai réussi à générer le code suivant qui fonctionne assez bien et me permets de sélectionner une cellule pré-définis :

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
 
 
Sub Multiplier()
Dim m As Range
Dim ws1 As Worksheet
Dim ws2 As Worksheet
 
 
Set ws1 = Sheets("Andre Data")
Set ws2 = Sheets("Devises converter Data")
 
For Each m In ws1.Range("B2:B30")
m = m / ws2.Range("C44").Value
 
Next
End Sub

Pourrais-tu m'indiquer la marche à suivre si je souhaite adapter ce code afin qu'en fonction de la company (colonne A) , je puisse appliquer un taux de conversion différent dans la même colonne ?

Exemple : si company = Andre > appliquer taux CZK
si company = Alain > appliquer taux SEK
si company = Pierre > appliquer taux NOK

bien à toi,

[Pierre Fauconnier]

Salut Marcel,

Je n'ai pu que te