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