1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Composé un numéro spécial en VBA

Discussion dans 'Forum Excel' démarrée par cp4, 5 Décembre 2018.

  1. cp4

    cp4 XLDnaute Occasionnel

    Inscrit depuis le :
    7 Novembre 2015
    Messages :
    420
    "J'aime" reçus :
    19
    Utilise:
    Excel 2010 (PC)
    Bonsoir:),

    Pour aider un membre, je sollicite votre aide.
    Dans le fichier ci-joint, en feuil1 saisir un chiffre ou un nombre en B3 et des lettres en en B4.
    ex: en B3=1 et B4=ABC

    le résultat sur la feuil2 en B5-------> 0001-ABC

    Et ce en codage; ça parait simple mais je nage. non je coule.

    Merci beaucoup.
     

    Pièces jointes:

  2. Chargement...

    Discussions similaires - Composé numéro spécial Forum Date
    Numerotation composée Forum Excel 29 Mars 2006
    Excel compose un numéro de téléphone Forum Excel 10 Juin 2005
    XL 2016 VBA: fermer un classeur dont le nom se compose d'une valeur et d'une variable Forum Excel 16 Janvier 2018
    XL 2016 Composer une référence externe avec INDIRECT() Forum Excel 30 Novembre 2017
    XL 2013 décomposer l'écart entre deux dates en année/jour restant/heure restant/minute restant/seconde resta Forum Excel 2 Novembre 2017

  3. Modeste geedee

    Modeste geedee XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mars 2012
    Messages :
    6475
    "J'aime" reçus :
    791
    Sexe :
    Masculin
    Utilise:
    Excel 2007 (PC)
    en VBA :
    [B5]=Format([B3],"0000")&"-"&Application.Trim([B4])
     
  4. Jacky67

    Jacky67 XLDnaute Accro

    Inscrit depuis le :
    12 Juin 2016
    Messages :
    1158
    "J'aime" reçus :
    167
    Utilise:
    Excel 2007 (PC)
    Bonjour,
    Essaye
    Pour la formule
    =TEXTE(B3;"0000-")&B4
    Pour le vba
    Code (Visual Basic):
    Sub Bouton1_Cliquer()
    Feuil2.[b5] = Format(Feuil1.[B3], "0000-") & Feuil1.[B4]
    End Sub
     
    cp4 aime votre message.
  5. laurent950

    laurent950 XLDnaute Impliqué

    Inscrit depuis le :
    11 Janvier 2009
    Messages :
    684
    "J'aime" reçus :
    32
    Sexe :
    Masculin
    Bonsoir

    Code (Visual Basic):

    Option Explicit

    Sub Bouton1_Cliquer()
    Dim Sh1 As Worksheet, Sh2 As Worksheet
    Set Sh1 = Worksheets("Feuil1")
    Set Sh2 = Worksheets("Feuil2")

    Sh2.Range(Sh2.Cells(5, 2), Sh2.Cells(5, 2)).NumberFormat = "@": Sh2.Cells(5, 2) = "000" & Sh1.Cells(3, 2) & "-" & Sh1.Cells(4, 2)

    MsgBox "Eurêka !", vbExclamation, "Super....."
    End Sub
     
     
    Dernière édition: 5 Décembre 2018
  6. cp4

    cp4 XLDnaute Occasionnel

    Inscrit depuis le :
    7 Novembre 2015
    Messages :
    420
    "J'aime" reçus :
    19
    Utilise:
    Excel 2010 (PC)
    Bonsoir Modeste:), Jacky67:), Laurent950:),

    Merci beaucoup. J'ai trop simplifié le problème. En fait, les codes se rajoutent en feuille2 en colonne B au fur et à mesure.
    J'essaie d'adapter l'un de vos codes.
    Encore merci. Bonne soirée.;)
     
  7. cp4

    cp4 XLDnaute Occasionnel

    Inscrit depuis le :
    7 Novembre 2015
    Messages :
    420
    "J'aime" reçus :
    19
    Utilise:
    Excel 2010 (PC)
    Ton code est bon. Mais, je n'avais pas précisé qu'il ne fallait pas plus de 4 chiffres.
    Merci quand même, j'apprécie ton aide.
    Bonne soirée.;)
     
  8. cp4

    cp4 XLDnaute Occasionnel

    Inscrit depuis le :
    7 Novembre 2015
    Messages :
    420
    "J'aime" reçus :
    19
    Utilise:
    Excel 2010 (PC)
    Merci beaucoup. J'ai adapté ton code ainsi
    Code (Visual Basic):
    Sub Bouton1_Cliquer()
    dl = Sh2.Range("b" & Rows.Count).End(xlUp).Row + 1
    Feuil2.[b5] = Format(Feuil1.[B3], "0000-") & Feuil1.[B4]
    End Sub
    Encore merci. Bonne soirée.:)
     
  9. cp4

    cp4 XLDnaute Occasionnel

    Inscrit depuis le :
    7 Novembre 2015
    Messages :
    420
    "J'aime" reçus :
    19
    Utilise:
    Excel 2010 (PC)
    Désolé, de revenir vers vous je viens de tester dans le véritable fichier.
    J'ai le petit triangle en haut à gauche de la cellule.
    Bizarre! car sur la fichier joint, tout se passe bien.
    Capture.JPG
     
  10. Modeste geedee

    Modeste geedee XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mars 2012
    Messages :
    6475
    "J'aime" reçus :
    791
    Sexe :
    Masculin
    Utilise:
    Excel 2007 (PC)
    utilité de dl ???
    plutôt comme ceci alors
    Sub Bouton1_cliquer
    Feuil2.Range("b" & Rows.Count).End(xlUp).Offset(1, 0) = Format(Feuil1.[B3], "0000-") & Ucase(Feuil1.[B4])
    ' Feuil1.Range("B3") = Feuil1.Range("B3") + 1
    End Sub
    upload_2018-12-5_20-0-25.png
     
    Dernière édition: 5 Décembre 2018
    cp4 aime votre message.
  11. cp4

    cp4 XLDnaute Occasionnel

    Inscrit depuis le :
    7 Novembre 2015
    Messages :
    420
    "J'aime" reçus :
    19
    Utilise:
    Excel 2010 (PC)
    Merci beaucoup. Sur le fichier, ça fonctionne très bien. Par contre, sur le fichier original le petit triangle en haut à gauche de la cellule apparait (voir image post#8.
     
  12. Modeste geedee

    Modeste geedee XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mars 2012
    Messages :
    6475
    "J'aime" reçus :
    791
    Sexe :
    Masculin
    Utilise:
    Excel 2007 (PC)
    Bonsour®
    upload_2018-12-5_22-36-53.png
     

Partager cette page