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

[Gado2600]

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 :

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

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,

[Menhir]

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

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

Code :

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

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