1ère Programmation VBA

Bonjour tout le monde,

Je suis entrain de débuter sur VBA et je suis entrain de réaliser ma première macro, seulement voilà je bloque et je me suis dis qu'en échangeant avec vous j'apprendrai plus facilement que si je tournais en rond tout seul dans mon coin ::D

Voilà j'ai un tableau avec des opérations d'apport ou de retrait en espèce ou en titres
Chaque fois que dans la colonne M il y a un 1 cela veut dire qu'il faut copier la valeur de la colonne G et la coller dans la colonne C à partir de la ligne 16 pour le compte correspondant

Chaque fois que dans la colonne N il y a un 1 cela veut dire qu'il faut copier la valeur dans la colonne G et la coller dans la colonne D à partir de la ligne 16 pour le compte correspondant

J'ai donc compris qu'il fallait créer une boucle et aussi créer une condition

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 25 26 27

Sub Macro2()   Range("M2").Select Do While Columns("M") <> "" If Columns("M") = 1 Then Range("G2").Select Selection.Copy Range("C16").Select ActivateSheet.Paste   End If   Loop   Range("N2").Select Do While Columns("N") <> "" If Columns("N") = 1 Then Range("G2").Select Selection.Copy Range("C16").Select ActivateSheet.Paste   End If   Loop   End Sub

---

Mon problème est que je ne sais pas comment indiquer à Excel d'actualiser les lignes c'est à dire de copier la valeur G2 puis G3 ect dans la cellule C16 puis C17 ou D16 D17 en fonction de l'opération. Je pense qu'il s'agit avant tout de logique et pour le moment je manque de logique dans ma programmation mais ça viendra !

Vous trouverez le fichier en pièce jointes, je vais continuer à essayer de mon côté bien évidemment et comprendre mon erreur !
Merci pour votre temps.

Bonjour Romuald42,

C'est une macro que vous souhaitez écrire, Attention !! vous n'êtes plus sous Excel qui vous prends par la main pour vous guider.

VBA est une langue qu'il faut apprendre à parler avant de pouvoir dialoguer avec Excel.

Un règle de base : on ne fait pas deux fois la même chose :weird:, faites une procédure qui va appeler une procédure avec un passage de paramètre

par exemple : (utiliser la balise code)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Traitement (Colonne as string)   Range(Colonne&"2").Select Do While Columns(Colonne) <> "" If Columns(Colonne) = 1 Then Range("G2").copy Range("C16").Paste End If Loop End Sub     Sub Principal Call Traitement("M") Call Traitement("N") End Sub

---

la même que vous, mais en plus clair ;) mais cela ne fonctionne pas mieux :aie:
Que voulez-vous faire exactement ?

Christophe

J'espère que tu fais ça juste pour t'entrainer.
Parce que si c'est "pour de vrai", il est bien plus simple de faire ça avec des fonctions Excel.

Déjà, premier conseil : évite les Select / Selection.
La plupart du temps, il est possible de faire sans. Ca ne fait que compliquer le code et ralentir l'exécution.

Second conseil : déclare tes variables.

Code:

---

1 2 3 4 5 6

Sub Macro2() Dim Lig As Long For Lig = 1 To ActiveSheet.UsedRange.Rows.Count If Range("M" & Lig).Value = 1 Then Range("C" & Lig).Value = Range("G" & Lig).Value If Range("N" & Lig).Value = 1 Then Range("D" & Lig).Value = Range("G" & Lig).Value Next Lig

---

Un peu plus efficace :

Code:

---

1 2 3 4 5

Sub Macro2() Dim CC As Range For Each CC In Intersect(ActiveSheet.UsedRange, Columns("M:N")) If CC.Value = 1 Then CC.Offset(0, -10).Value = Range("G" & CC.Row).Value Next CC

---

Merci beaucoup à vous deux ! Oui c'est uniquement pour m'entrainer, une prise en main en quelques sorte ;)