Macro copier cellule complexe

Excel33 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
 Utilisateur anonyme -
Bonjour,

Quelqu'un sait comment faire pour copier dans la cellule à coté un mot jusqu'à qu'il y est une différence.
Par exemple:
A B
12 C001
12 C001
12 C001
12 C001
C001
12 C001
15 C002
15 C002
14 C003
Voilà donc mettre un mot dans la cellule B, dans l'exemple "C001" mais a partir du moment ou dans la cellule A il à une différence (dans l'exemple quand ca passer de 12 à 15) me mettre un autre mot genre "C001"+1 et ainsi de suite.

Je pense qu'il faut crée une macro, sachant qu'il à plein de ligne.

Votre me sera d'une grande utilité svp

Merci

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    une facon de faire: 

    Sub test()
    With Worksheets("feuil1")
        i = 1: n = 1        'initialisation pointeurs ligne et numero
        Do      'boucle ligne
            If i > 1 Then       'a partir de ligne 2
                If .Cells(i - 1, 1) <> .Cells(i, 1) Then        'si  dif entre cellule en cours et precedente
                    n = n + 1
                    .Cells(i, 2) = "C" & Format(n, "000")       'num plus 1
                Else
                    .Cells(i, 2) = .Cells(i - 1, 2)     'meme num
                End If
            Else        'ligne 1
                .Cells(i, 2) = "C" & Format(n, "000")       'numero 1
            End If
            i = i + 1
        Loop Until .Cells(i, 1) = ""
    End With
End Sub
    0