Copie de valeur d'une cellule à l'autre sur sélection via macro

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
Pièce jointe 199126


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:

---

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

Bonjour,

C'est ton i qui pose problème...
A aucun moment tu l'initiales (sauf avec lui-même).
Je pense que tu cherches un

Code:

---

i = cposte.row -1

---

Ta ligne pour copier, je pense que tu as un problème d'indice de ligne sauf si j'ai mal compris l'énoncé.

Cordialement,

Il y a plusieurs erreurs dans ton code, non seulement le renseignement du i mais aussi les Cposte indicés. 8O

Pourquoi s'embêter avec un For Each alors qu'un simple For to est beaucoup plus pratique :

Code:

---

1 2 3 4 5 6

Dim Cposte As Long With Sheets("TriPostes") For Cposte = 2 to .Cells(Rows.Count,1).End(xlUp).Row If .Cells(Cposte-1,1) = .Cells(Cposte,1) Then .Cells(Cposte-1,2) = .Cells(Cposte,2) Next Cposte End With

---