un peu d'aide sur un bouton en VBA

[milaerdo]

Bonjour au Excelien,
Je n'ai que très très peu de connaissance et je voudrais réaliser une fonction lié à un bouton. la fonction est sur la cellule A1 de mon exemple EN PJ mais je ne sais pas l'éxrie en VBA affecter à un bouton

Merci d'avance et A+
Milaerdo

 

[wamme]

Salut
une petite macro vite faite à améliorer
mais qui répond à ce que tu veux


Sub Numero()
jjj = Format(Date, "yyyy")
kkk = Format(Date, "mm")
lll = kkk & "00"
Range("A1").Value = jjj & lll
End Sub


A+

 

[Hervé]

Bonjour

une proposition :

Private Sub CommandButton1_Click()
ActiveCell = Format(Now, "yyyymm") & Format(ActiveCell.Offset(0, -1), "00")
End Sub

Tu te places sur la cellule ou tu veux mettre ton numéro de facture et tu appuis sur le bouton.


Le dernier numéro, est trouvé en allant chercher la valeur de la cellule ce trouvant à droite de la cellule sélectionnée.

Salut
Hervé

 

[Abel]

Bonjour milaerdo,

Essaie :

If Month(Date) < 10 Then
Mois = "0" & Month(Date)
Else
Mois = Month(Date)
End If
Range("a1") = Year(Date) & Mois & "00"

En espérant que cela te dépanne.

Abel.

 

[Abel]

Re,

Ah !

Voilà une entrée au Zop (arf !).

Essaie plutôt :

If Month(Date) < 10 Then
Mois = "0" & Month(Date)
Else
Mois = Month(Date)
End If
NbFacture = Range("a21").End(xlDown).Row - 21 + 1
If NbFacture < 10 Then NumFacture = "0" & NbFacture + 1 Else NumFacture = NbFacture + 1
If NbFacture > 99 Then MsgBox ("Maximum autorisé par la convention international des facturiers atteint")
Range("b" & 21 + NbFacture) = Year(Date) & Mois & NumFacture

Ce code sous entend que la liste de facture ne contient que des numéros uniques.

Abel.

 

[milaerdo]

Comme toujours sur le fil des Mec super
MERCI A TOUS