Bonjour,
Merci d'avance pour vos réponses.
Je vous explique mon problème,
Je souhaite créer une macro qui pourra m'aider à comparer deux éléments et agir en conséquence.
Je vous donne un exemple :
Colonne A : Evenement A
Colonne B: Evenement B
Colonne C : Données lié à B
Colonne D: Données lié à B
Je souhaite donc une macro qui :
1) Comparer les infos en A et B,
2) Si A = B alors passer à la ligne et refaire la comparaison.
3) Si A =/ B alors supprimer les cellules ( vers le haut ) en C et D correspondantes à la ligne.
Pour effectuer cela je suis parti sur ce type de macro :
Avec ceci, la macro supprime bien les infos en C et D mais suppriment également toutes les infos qui suivent dans ces colonnes mais le " décalage " des cellules vers le haut ne s'effectue pas. Et du coup ça ne vérifie pas " ligne par ligne ".
Pouvez-vous m'apporter une suggestion?
Bien cordialement,
Merci d'avance pour vos réponses.
Je vous explique mon problème,
Je souhaite créer une macro qui pourra m'aider à comparer deux éléments et agir en conséquence.
Je vous donne un exemple :
Colonne A : Evenement A
Colonne B: Evenement B
Colonne C : Données lié à B
Colonne D: Données lié à B
Je souhaite donc une macro qui :
1) Comparer les infos en A et B,
2) Si A = B alors passer à la ligne et refaire la comparaison.
3) Si A =/ B alors supprimer les cellules ( vers le haut ) en C et D correspondantes à la ligne.
Pour effectuer cela je suis parti sur ce type de macro :
Sub suppr()
'la boucle generale
For a = 1 To 31
'premiere boucle comparaison
effacer = False
i = a
Do While effacer = False And Cells(i, 1).Value <> ""
If Cells(i, 1).Value <> Cells(i, 2).Value Then
Cells(i, 2).Value = ""
effacer = True
End If
i = i + 1
Loop
'Seconde boucle qui fait les decalages
Do While Cells(i, 6).Value <> ""
Cells(i, 2).Value = Cells(i + 1, 2).Value
Loop
'Bonus : couleur cellules si cellules en A = cellules en B
Cells(a, 1).Interior.ColorIndex = 4
Next a
End Sub
Avec ceci, la macro supprime bien les infos en C et D mais suppriment également toutes les infos qui suivent dans ces colonnes mais le " décalage " des cellules vers le haut ne s'effectue pas. Et du coup ça ne vérifie pas " ligne par ligne ".
Pouvez-vous m'apporter une suggestion?
Bien cordialement,