mois auto dans un textbox

Efgé

XLDnaute Barbatruc

• 10 Juin 2010

• #2

Re : mois auto dans un textbox

Bonjour nikkyb,
Peut être:

Code:

textbox1.Value = Format(Date;"mmmm")

Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Juin 2010

• #3

Re : mois auto dans un textbox

Bonjour,

devrait mieux passé avec une virgule :

Code:

textbox1.Value = Format(Date,"mmmm")

bon après midi
@+

 

Vote positif 0 Vote négatif

N

nikkyb

Guest

• 10 Juin 2010

• #4

Re : mois auto dans un textbox

Merci beaucoup ca marche nickel

Jen profite pour une autre question :

Voici un code :

Code:

   '''''''''''''' compta depense par mois
                    Set cel = Sheets("janvierD", "FevrierD").Columns(1).Find(ComboBoxnumero, LookIn:=xlValues, lookat:=xlWhole)
   If cel Is Nothing Then GoTo erreur
   With cel
       .Cells(1, 8) = CCur(TextBox1)
 End With

Vous remarquerez qu'aprés JanvierD j'ai ajouté FevrierD car j'aimerais qu'il recherche dans 12 feuil un numéro qui n'apparaitra que dans l'une d'elle

En fait imaginons que j'ai rentré une facture en janvier, si je la paie en mars il faudra bien que excel recherche toute les feuil du mois pour retrouver le numéro et valider le paiement .

C'est donc ce petit bout :

Code:

Set cel = Sheets("janvierD", "FevrierD").Columns(1).

que je doit remettre d'un autre manière

Merci par avance

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Juin 2010

• #5

Re : mois auto dans un textbox

Re,

regarde si ceci peut t'aider :

Code:

Dim t() As Variant, i As Byte
t = Array("JanvierD", "FevrierD")
For i = 0 To UBound(t)
    Set cel = Sheets(t(i)).Columns(1).Find(ComboBoxnumero, LookIn:=xlValues, lookat:=xlWhole)
Next i

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 10 Juin 2010

• #6

Re : mois auto dans un textbox

Bonjour Pierrot🙂 ,nikkyb
Nikkyb est-ce que tu as ouvert ton fichier d'hier que je t'ai envoyé?
tes mois sont déjà dans les combobox1 et comboboxmois
a+
papou 🙂

 

Vote positif 0 Vote négatif

N

nikkyb

Guest

• 10 Juin 2010

• #7

Re : mois auto dans un textbox

SLT Paritec,

Oui je l'ai déja récuperé et ca fonctionne parfaitement, je te remercie.

Maintenant je bloque sur ce ptit bout de code mais peut serait il mieux que je mette un fichier lol

Allé je le prépare tout de suite

A++

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 10 Juin 2010

• #8

Re : mois auto dans un textbox

Re Pierrot nikkyb
cela fonctionne parfaitement mais sur l'autre post tu ne le dis même pas !!!!
drole de manière de faire mon cher nikkyb
a+
papou 🙂

 

Vote positif 0 Vote négatif

N

nikkyb

Guest

• 10 Juin 2010

• #9

Re : mois auto dans un textbox

Re

Si tu regarde l'autre post, tu constateras que je l'ai dis.......

 

Vote positif 0 Vote négatif

N

nikkyb

Guest

• 10 Juin 2010

• #10

Re : mois auto dans un textbox

Voici le fichié



J'ai mis des explication à l'interieur

1 quand on créé une entrée 2 ligne se créé 1 dans dépense, 1 dans le mois concerné (ces 2 lignes doivent avoir le meme numéro en 1ere colonne)

2 ensuite on paie donc dans dépense et il faut retrouver le numéro parmi les feuil du mois

Voila en gros, ca me semble assez compliqué quand meme lol

merci beaucoup

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Juin 2010

• #11

Re : mois auto dans un textbox

Re,

as tu vu et testé mon code de 16h13 ??

 

Vote positif 0 Vote négatif

N

nikkyb

Guest

• 10 Juin 2010

• #12

Re : mois auto dans un textbox

Salut pierrot,

Oui j'ai essayé mais sans succés, ca me met une erreur

Voila pourquoi j'ai mis le fichié en ligne 😀

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Juin 2010

• #13

Re : mois auto dans un textbox

Re

peux pas aller voir ton fichier, mais le code proposé fonctionne chez moi....

 

Vote positif 0 Vote négatif

N

nikkyb

Guest

• 10 Juin 2010

• #14

Re : mois auto dans un textbox

Re pierrot voici mon code :

Code:

Private Sub cmdvalidereglement_Click()
If txtdate = "" Then
msgbox (" indiquer la date ")
Exit Sub
End If

If msgbox("Êtes-vous sûr de vouloir valider le paiement ?", vbYesNo, "Validation  définitif") = vbYes Then
    If sup = vbCancel Then Exit Sub
    
    Dim t() As Variant, i As Byte
t = Array("JanvierD", "FevrierD")
For i = 0 To UBound(t)
    Set cel = Sheets(t(i)).Columns(1).Find(txtnumero, LookIn:=xlValues, lookat:=xlWhole)
.Cells(1, 8) = txtmontantréglé
Next i

 Dim cel As Range
 Set cel = Sheets("Dépense").Columns(1).Find(txtnumero, LookIn:=xlValues, lookat:=xlWhole)
   If cel Is Nothing Then GoTo erreur
   With cel
     .Cells(1, 9) = ComboBoxmois
    .Cells(1, 7) = txtmontantréglé
    .Cells(1, 8) = txtdate
If OptionButton14 = True Then
TextBoxcheque.Visible = True
ElseIf OptionButton14 = False Then
TextBoxcheque.Visible = False
End If
Unload Me
End With

Exit Sub
erreur:
End If
End Sub

J'y ai donc integré ton code mais il ne le prend pas en compte et me fait une erreur de type : Référence incorecte...

As tu une tite idée ?

Merci d'avance

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 10 Juin 2010

• #15

Re : mois auto dans un textbox

Bonjour au fil,
le fichier:
Cordialement

 

Pièces jointes

• nikkyb(2)I.zip

  30.4 KB · Affichages: 32

Vote positif 0 Vote négatif