IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

numérotation selon une critère


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Femme Profil pro
    Inscrit en
    Décembre 2012
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Tunisie

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1
    Par défaut numérotation selon une critère
    Bonjour

    Je cherche une formule dans Excel qui fait la numérotation de mes ligne selon une critère .

    exemple :

    N° dossier N°facture
    10A11 1
    10A12 2
    10A13 3
    10A11 1
    10A15 4
    10A13 3
    10A11 1
    10A11 1
    10A11 1
    1BZ333 5
    10A12 2


    la facture n°1 reçoit 1 ensuite sil le N° dossier se repete ecrire toujours 1 sinon ecrire 2 pour la valeur suivante , si cette dernierer se repete ecrire 2 et ainsi de suite ...

    Merci

  2. #2
    Membre Expert
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Novembre 2011
    Messages
    1 503
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Irlande

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : Novembre 2011
    Messages : 1 503
    Par défaut
    Bonsoir,

    Je te propose le code suivant :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    Sub Doublon()
    Dim test As Range
    Dim val As Integer
    Dim flag As Boolean
     
    With Worksheets("Feuil6")
        val = 0
        flag = True
        For i = 0 To .Range("A65536").End(xlUp).Row - 1
            Set test = .Range("A1").Offset(i, 0)
            If flag Then
                val = val + 1
            End If
            flag = False
     
            For j = 0 To .Range("A65536").End(xlUp).Row - 1 - i
                If test.Offset(j, 0) = test Then
                    If test.Offset(0, 1) = "" Then
                        If test.Offset(j, 1) = "" Then
                            test.Offset(j, 1) = val
                            flag = True
                        End If
                    Else
                        If test.Offset(j, 1) = "" Then
                            test.Offset(j, 1) = test.Offset(0, 1)
                        End If
                        If val <= test.Offset(0, 1) Then
                            val = test.Offset(0, 1)
                            flag = True
                        End If
                    End If
                End If
            Next j
        Next i
     
     
    End With
     
    End Sub
    Puisque tu n'as pas donné beaucoup de précision je me suis permi d'imaginer que tu pouvais ajouter des lignes après avoir executé une fois ta macro.

    Dis moi si celle-ci te conviens et si tu trouves dans bug dans son fonctionnement !

Discussions similaires

  1. Réponses: 1
    Dernier message: 30/07/2007, 19h37
  2. Réponses: 3
    Dernier message: 18/07/2007, 10h16
  3. Trie d'une liste selon un critère
    Par Albenejean dans le forum C++
    Réponses: 5
    Dernier message: 13/07/2007, 18h07
  4. Réponses: 3
    Dernier message: 11/07/2007, 13h47
  5. [SQL] Comment rechercher une donnée selon un critère !
    Par Il_TiRaNNo dans le forum PHP & Base de données
    Réponses: 12
    Dernier message: 09/05/2007, 14h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo