Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Traduire une macro

  • Initiateur de la discussion Initiateur de la discussion René du var
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

R

René du var

Guest
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
717
Réponses
4
Affichages
585
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…