Discussion :

[renaud49]

Bonjour au forum,
J'ai une feuille de calcul qui est un journal compta (fichier joint) sur laquelle je saisis dates, libellé et numéro de pièce comptable en colonne C du fichier joint. Les valeur de cette colonne commence soit par un "R" pour "recette" suivi d'un numéro d'ordre à 3 chiffres , soit par un "D" pour dépense suivi d'un numéro d'ordre à 3 chiffres. Les numéros d'ordre sont propres à chaque catégorie. Je souhaiterais automatiser la saisie des cellules de cette colonne afin d'avoir le résultat suivant :
- lorsque je tape un R je voudrais avoir le numéro d'ordre séquentiel de tous les R qui ont été saisis cest à dire que si je suis au R015 il faudrait que en tapant R j'ai automatiquement R016 ; idem pour les D, si je suis au D029 comme sur le fichier joint je voudrais que dès la saisie du D j'ai automatiquement "030"qui s'incrémente. il y a bien la solution du "glisser" de la cellule vers le bas qui incrémenteles valeur mais je voudrais que ce soit automatisé par du code , macro ou fonction. Merci de votre retour,
renaud49

[Tête de chat]

Bonjour

tu peux déjà utiliser une formule pour calculer le prochain numéro, par exemple avec 365 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=H1&TEXTE(MAX(FILTRE(DROITE($C$1:$C$22;3);GAUCHE($C$1:$C$22;1)=H1)+0)+1;"000")

Après il va falloir un peu de VBA pour mettre ça au bon endroit au bon moment.

Comment vois-tu les choses (d'un point de vue ergonomie) ? À quel moment la cellule est-elle renseignée ? Comment sait-on si c'est un D ou un R ?

[Tête de chat]

Re,

exemple de code avec saisie R ou D + Double-clic

SaisiePiece.xlsm

[renaud49]

Bonjour,
merci du retour,
Pour déterminer le numéro suivant de R ou D j'ai trouvé une solution via NB.SI. Ce que je souhaite au niveau ergonomie c'est que :
lorque je saisie dans une cellule de la colonne "Pièce" le 1er caractère "D" ou "R" il s'affiche ensuite le numéro d'ordre complet ,soit le rang à la suite du "R" ou du "D" soit lea valeur de la cellule qui a été préalablement déterminée dans ton onglet"Paramètres". Le code sur double-click ne fonctionne pas . Est-il possible de mettre ce code sur un évènement "touche relachée" avec un controle du code ASCII correspondant au "D" ou "R".
Merci
Renaud49

[Franc]

Bonjour, teste ceci. J'utilise l'évènement Change de la feuille. Dès que tu quittes une cellule de la colonne C après avoir encodé D ou R, le numéro est incrémenté de 1.

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim cell As Range
    Dim maxNum As Integer
    Dim num As Integer
 
    Set KeyCells = Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row)
 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
 
        If Left(Target.Value, 1) = "R" Or Left(Target.Value, 1) = "D" Then
            maxNum = 0
            Application.EnableEvents = False
            For Each cell In KeyCells
                If cell.Value Like Left(Target.Value, 1) & "*" Then
                    If IsNumeric(Mid(cell.Value, 2, 3)) Then
                        num = CInt(Mid(cell.Value, 2, 3))
                        If num > maxNum Then maxNum = num
                    End If
                End If
            Next cell
            Target.Value = Left(Target.Value, 1) & Format(maxNum + 1, "000")
            Application.EnableEvents = True
        End If
 
    End If
End Sub

[Tête de chat]

Bonjour,

j'ai trouvé une solution via NB.SI.

Attention avec une NB.Si s'il y a à un moment donné des trous dans la numérotation, tu auras un problème. Si tu as par exemple D002 et D003 (D001 supprimé ou disparu...) le prochain numéro sera D003.

Le code sur double-click ne fonctionne pas

Il se passe quoi ? Les formules dans paramètres fonctionnent ? Tu as quelle version d'Excel ?

[renaud49]

Bonjour et merci Franc,
Ton code fonctionne parfaitement sur Excel 2016.
je clos la discussion.
A bientot sur le forum.
Renaud49

Bonjour, teste ceci. J'utilise l'évènement Change de la feuille. Dès que tu quittes une cellule de la colonne C après avoir encodé D ou R, le numéro est incrémenté de 1.

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim cell As Range
    Dim maxNum As Integer
    Dim num As Integer
 
    Set KeyCells = Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row)
 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
 
        If Left(Target.Value, 1) = "R" Or Left(Target.Value, 1) = "D" Then
            maxNum = 0
            Application.EnableEvents = False
            For Each cell In KeyCells
                If cell.Value Like Left(Target.Value, 1) & "*" Then
                    If IsNumeric(Mid(cell.Value, 2, 3)) Then
                        num = CInt(Mid(cell.Value, 2, 3))
                        If num > maxNum Then maxNum = num
                    End If
                End If
            Next cell
            Target.Value = Left(Target.Value, 1) & Format(maxNum + 1, "000")
            Application.EnableEvents = True
        End If
 
    End If
End Sub