Traduire une macro

[René du var]

Bonsoir le forum,

Cette macro compare la colonne C et G et copie les données de C dans la colonne M qui ne se trouvent pas dans G.

J'aimerai pouvoir mettre un commentaire sous chaque ligne de cette macro

merci de m'aider

René du var


Sub CompareTwoColumns()

Dim rngC As Range
Dim rngG As Range

Set rngC = Range(Cells(1, "C"), Cells(Rows.Count, "C").End(xlUp))
Set rngG = Range(Cells(1, "G"), Cells(Rows.Count, "G").End(xlUp))


For Each cell In rngC
If Not IsError(Application.Match(cell.Value, rngG, 0)) Then
Cells(cell.Row, "M").Value = 0

End If
Next
End Sub

 

[Rénato]

bonjour René,

Pour insérer du commentaire dans ton script, il suffit de faire précéder ton texte du signe ' (apostrophe).

Cordialement

Rénato (ou René transalpin)

 

[CBernardT]

Bonjour René du var et Rénato

Je suppose que la question est : aidez moi à rédiger le commentaire sous les lignes de code et non pas comment rédiger un commentaire à l'intérieur d'une procédure ?

Dans ce cas, j'ai rajouté quelques commentaires sous chaque lignes de code.
Sub CompareTwoColumns()
'Titre de la procédure
Dim rngC As Range
Dim rngG As Range
Dim Cell As Range
'Déclaration de variables
Set rngC = Range(Cells(1, "C"), Cells(Rows.Count, "C").End(xlUp))
Set rngG = Range(Cells(1, "G"), Cells(Rows.Count, "G").End(xlUp))
'Définition des variables plages
Cells(1, "C").Select
rngC.Select
rngG.Select
For Each Cell In rngC
'Boucle sur les cellules de la variable plage rngC en colonne C
If Not IsError(Application.Match(Cell.Value, rngG, 0)) Then
'Début de condition si : s'il y a dans la plage rngG une position correspondante à la cellule alors :
Cells(Cell.Row, "M").Value = 0
'La valeur de la cellule en colonne "M" et sur la même ligne est mise à la valeur 0
End If
'Fin de condition
Next Cell
'Renvoie vers la prochaine cellule
End Sub

Cordialement

CBernardT