macro copier cellule complexe Fermé

Question

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

f894009 · Answer

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

Utilisateur anonyme · Answer

Bonsoir
c'est aussi possible avec des formules sur 2 colonnes
https://www.cjoint.com/c/HFzrvRTKDM5 
 
Edit: le fichier doit être trié

Macro copier cellule complexe

2 réponses

Discussions similaires