Suite numérique

Résolu
dmat71 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
 dmat71 -
Bonjour,
Dans Excel, j'ai une colonne où je fais la liste de mes dépenses, avec numéro de chèque par endroit. Exemple:
Colonne A
Ligne A1, j'inscris CB (carte bancaire)
Ligne A2, j'inscris CB
Ligne A3, j'inscris Ch 0321244 (chèque bancaire)
Ligne A4, j'inscris CB
Ligne A5, je veux inscrire Ch 0321245 (suite liste de chèque).
Comment faire pour éviter de recopier systématiquement le nouveau numéro de chèque?
Existe-t-il une solution pour que le numéro suivant s'inscrive automatiquement?
Merci. Sincères salutations


A voir également:

3 réponses

Réponse 1 / 3
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

Existe-t-il une solution
Il y a souvent des solutions mais il ne faut pas non plus que la solution complexifie le classeur. Comment doit-on faire si au lieu du 0321245 c'est le 0321246 qui doit arriver car l'autre est en retard ?
Ensuite comment insérer le manquant ?
Ne serait-ce pas plus simple de saisir les 7 chiffres ?
0
Réponse 2 / 3
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,
salut bg,

une proposition par double-clic sur la cellule. 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim derlig As Long, c As Range, rep As Long
    If Target.Column <> 1 Or Target <> "" Then Exit Sub
    Cancel = True
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    rep = MsgBox("Chèque ?", vbQuestion + vbYesNoCancel, "Chèque-CB")
    Select Case rep
    Case vbYes
        Set c = [A:A].Find("Ch ", after:=Cells(derlig + 1, 1), LookIn:=xlValues, lookat:=xlPart, SearchDirection:=xlPrevious)
        If c Is Nothing Then
            Target = "Ch "
        Else
            Cancel = True
            Target = "Ch " & Format(Split(c, " ")(1) + 1, "0000000")
            Target.Offset(, 1).Select
        End If
    Case vbNo
        Cancel = True
        Target = "CB"
        Target.Offset(, 1).Select
    End Select
End Sub

https://www.cjoint.com/c/EBoklbhpSdu
eric
0
Réponse 3 / 3
dmat71 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Oui, bonjour bg c'est bien, mais en français ça dit quoi?
Merci
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonsoir dmat71, Éric,

"en français" il me semble que c'était compréhensible, mais Éric t'as mis une macro avec le classeur exemple et la macro il faut qu'elle soit en anglais car c'est sa langue natale !
Si tu n'as jamais utilisé je comprends ta surprise ;-)
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Je voulais dire gb, pas bg. Mais il s'est reconnu :-)
dmat il faut cliquer sur le lien bleu pour télécharger le fichier.
Ensuite un clic-droit sur le nom d'onglet, puis 'visualiser le code...' si tu veux l'éditer.
eric
0
dmat71 > eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour,
Merci pour tout.
Bonne continuation
Dmat71
0

Discussions similaires

caractères speciaux sans pavé numérique
zorlig -
Utilisateur anonyme -

7 réponses
2 orientations de page dans un meme doc word
MissM64 -
MissM64 -

2 réponses