Composé un numéro spécial en VBA

cp4 à dit:

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.

Cliquez pour agrandir...

laurent950 à dit:

Bonsoir

VB:

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

Cliquez pour agrandir...

Jacky67 à dit:

Bonjour,
Essaye
Pour la formule
=TEXTE(B3;"0000-")&B4
Pour le vba

Cliquez pour agrandir...

Sub Bouton1_Cliquer()
dl = Sh2.Range("b" & Rows.Count).End(xlUp).Row + 1
Feuil2.[b5] = Format(Feuil1.[B3], "0000-") & Feuil1.[B4]
End Sub

cp4 à dit:

Merci beaucoup. J'ai adapté ton code ainsi

VB:

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.

Cliquez pour agrandir...

Modeste geedee à dit:

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-") & Feuil1.[B4]
End Sub

Cliquez pour agrandir...

cp4 à dit:

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.

Cliquez pour agrandir...