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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
Réponse 2 / 2
Utilisateur anonyme
 
Bonsoir
c'est aussi possible avec des formules sur 2 colonnes
https://www.cjoint.com/c/HFzrvRTKDM5

Edit: le fichier doit être trié

0

Discussions similaires

dessin avec symbole clavier
JSS -
Adraen -

79 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses