Discussion :

[fidecourt]

bonjour le forum,

je tourne en rond avec une macro pour laquelle je n'arrive pas à trouver le code correct

Col.A Col.B Col.C



je voudrais faire la chose suivante :

si cellule A3=A2

alors copie valeur cellule B3 dans cellule B2

jusqu'à la fin du fichier

voici le code de ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Cposte As Range
For Each Cposte In Sheets("TriPostes").Range("A2:A" & Sheets("TriPostes").Range("A65536").End(xlUp).Row) 'catégorie
        i = i
 If Cposte(i - 1) = Cposte Then
 Cposte(i + 1, 2).Copy Cposte(i - 1, 2)
 End If
 Next

1 - la macro commence par la cellule A10 et non par la cellule A3

2 - pas de copie des valeurs comme voulu en Bx - 1 quand Ax = Ax-1

Où est l'erreur, j'avoue que je nage complètement

d'avance merci pour votre aide