Incrementer de 1 par lots de commande

Bonjour a tous,

En colonne A je reçois (d'une autre macro) chaque jours ou plusieurs fois par jour des numéros de commande. (id)

En B, j'aimerai que le numéro de session s'incrémente de 1 chaque fois que je reçois des lots de

commandes (dans une session de commande le nombre de celle ci est aléatoire), on incrémente de 1 par session, Comme dans l'exemple

En C, l'ideal serait en plus d'avoir la date JJ /MM/ AA HH:MM

Possible ? merci par avance

Bonjour,

En transformant votre tableau en tableau structuré (TableDesLots), testez ce code :

Sub MajDesLots()

Dim I As Integer, NumeroSession As Integer
Dim AireSessions As Range, AireDates As Range

    Set AireSessions = Range("TableDesLots[Session]")
    Set AireDates = Range("TableDesLots[Date]")
    NumeroSession = WorksheetFunction.Max(AireSessions) + 1

    For I = 1 To AireSessions.Count
        If AireSessions(I) = "" Then
           AireSessions(I) = NumeroSession
           With AireDates(I)
               .Value = Now
               .NumberFormat = "dd/mm/yyyy h:mm"
           End With
        End If
    Next I

    Set AireSessions = Nothing: Set AireDates = Nothing

End Sub

Bonjour,

Merci de ta réponse

De mon cote ca me donne cela comme résultat.

une idée ?, je n'ai pas de message d'erreur , la macro s'execute sans souci

Il faut d'abord ajouter les commandes à la fin du tableau existant.

Effectivement , je rajoute bien les nouvelles commandes, et le resultat est different

voici mon fichier

Il faut supprimer, au préalable, toutes les lignes en dessous de votre tableau actuel. Après cela fonctionnera.

Impecable !!!!