none
For each C in selection et copie de données d'une cellule à l'autre RRS feed

  • Question

  • 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 :

    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


    FiDSDF

    mardi 26 janvier 2016 14:20

Réponses

  • Bonjour,

    Dim Cposte As Range
    For Each Cposte In Sheets("TriPostes").Range("A3:A" & Sheets("TriPostes").Range("A65536").End(xlUp).Row) 'catégorie
     If Cposte.Offset(-1) = Cposte Then
      Cposte.Offset(, 1).Copy Cposte.Offset(-1, 1)
     End If
    Next
    

    Cordialement.

    Daniel

    • Marqué comme réponse FiDSDF mardi 26 janvier 2016 18:17
    mardi 26 janvier 2016 15:16

Toutes les réponses

  • Bonjour,

    Dim Cposte As Range
    For Each Cposte In Sheets("TriPostes").Range("A3:A" & Sheets("TriPostes").Range("A65536").End(xlUp).Row) 'catégorie
     If Cposte.Offset(-1) = Cposte Then
      Cposte.Offset(, 1).Copy Cposte.Offset(-1, 1)
     End If
    Next
    

    Cordialement.

    Daniel

    • Marqué comme réponse FiDSDF mardi 26 janvier 2016 18:17
    mardi 26 janvier 2016 15:16
  • merci Daniel pour tes lumières !

    bonne soirée


    FiDSDF

    mardi 26 janvier 2016 18:18