date et texbox en VBA

Bonjour,

..mais pourriez-vous me donner un exemple pour creer une userform qui
demande la date de commande en proposant la date du jour

Voici un exemple simple à adapter bien sur, au projet
http://www.cijoint.fr/cjlink.php?file=cj201109/cijjUVuAO0.xls
--
Salutations
JJ


"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
PdmdnYdYxOA9L-zT4p2dnAA@giganews.com...

Bonjour,
je débute en programmation VBA avec Excel. Ma question va parraitre un peu
bête, mais pourriez-vous me donner un exemple pour creer une userform qui
demande la date de commande en proposant la date du jour. C'est pour automatiser
un bon de commande.
Merci de votre aide et désolé si je parrais un peu néofite.

Jacky a écrit le 15/09/2011 à 10h27 :

Bonjour,

..mais pourriez-vous me donner un exemple pour creer une userform qui
demande la date de commande en proposant la date du jour

Voici un exemple simple à adapter bien sur, au projet
http://www.cijoint.fr/cjlink.php?file=cj201109/cijjUVuAO0.xls
--
Salutations
JJ


"man77" a écrit
dans le message de news:

Bonjour,
je débute en programmation VBA avec Excel. Ma question va parraitre un
peu
bête, mais pourriez-vous me donner un exemple pour creer une userform
qui
demande la date de commande en proposant la date du jour. C'est pour
automatiser
un bon de commande.
Merci de votre aide et désolé si je parrais un peu
néofite.

bonjour,
un grand merci pour rapidité et efficacite
bonne journée et @+

Re..
Pour avoir une date valide, format et calcul seront possible sur la feuille
remplacer
Feuil1.Cells(derlg, 1) = Me.TextBox1.Value
par
Feuil1.Cells(derlg, 1) = CDate(Me.TextBox1)
Format de cellule date au choix


Ps Ma souris et moi remercions les questionneurs de répondre au-dessus des messages (c'est la coutume sur ce
forum)
--
Salutations
JJ



"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
OpadnSaeBZG2JuzTRVn_vwA@giganews.com...

Jacky a écrit le 15/09/2011 à 10h27 :

Bonjour,

..mais pourriez-vous me donner un exemple pour creer une userform qui
demande la date de commande en proposant la date du jour

Voici un exemple simple à adapter bien sur, au projet
http://www.cijoint.fr/cjlink.php?file=cj201109/cijjUVuAO0.xls
--
Salutations
JJ


"man77" a écrit
dans le message de news:

Bonjour,
je débute en programmation VBA avec Excel. Ma question va parraitre un
peu
bête, mais pourriez-vous me donner un exemple pour creer une userform
qui
demande la date de commande en proposant la date du jour. C'est pour
automatiser
un bon de commande.
Merci de votre aide et désolé si je parrais un peu
néofite.

bonjour,
un grand merci pour rapidité et efficacite
bonne journée et @+

Jacky a écrit le 15/09/2011 à 11h01 :

Re..
Pour avoir une date valide, format et calcul seront possible sur la feuille
remplacer
Feuil1.Cells(derlg, 1) = Me.TextBox1.Value
par
Feuil1.Cells(derlg, 1) = CDate(Me.TextBox1)
Format de cellule date au choix


Ps Ma souris et moi remercions les questionneurs de répondre au-dessus
des messages (c'est la coutume sur ce
forum)
--
Salutations
JJ



"man77" a écrit
dans le message de news:

Jacky a écrit le 15/09/2011 à 10h27 :

Bonjour,

..mais pourriez-vous me donner un exemple pour creer une userform qui
demande la date de commande en proposant la date du jour

Voici un exemple simple à adapter bien sur, au projet
http://www.cijoint.fr/cjlink.php?file=cj201109/cijjUVuAO0.xls
--
Salutations
JJ


"man77" a écrit
dans le message de news:

Bonjour,
je débute en programmation VBA avec Excel. Ma question va parraitre
un
peu
bête, mais pourriez-vous me donner un exemple pour creer une userform
qui
demande la date de commande en proposant la date du jour. C'est pour
automatiser
un bon de commande.
Merci de votre aide et désolé si je parrais un peu
néofite.

bonjour,
un grand merci pour rapidité et efficacite
bonne journée et @+

petit soucis avec cette ligne :
derlg = Feuil1.Cells(Rows.Count, 1).End(3).Row + 1
merci de votre aide

Re..

derlg = Feuil1.Cells(Rows.Count, 1).End(3).Row + 1

Ceci donne la première ligne vide de la colonne A de la feuille dont le code name est Feuil1
Le code name est situé devant le nom de la feuille dans l'éditeur vba
Feuil1(Feuil1) ==>par défaut
Feuil1(LeNomDeLaFeuille)
Celui qui est entre parenthèse étant le nom visuel de la feuille( celui que l'on peut modifier directement sur
la feuille)
L'équivalent avec le nom visuel de la feuille est:
derlg = Range("Feuil1").Cells(Rows.Count, 1).End(3).Row + 1
derlg = Range("LeNomDeLaFeuille").Cells(Rows.Count, 1).End(3).Row + 1



Ps: Au risque de me répéter
Ma souris et moi remercions les questionneurs de répondre au-dessus des messages (c'est la coutume sur ce
forum)

--
Salutations
JJ


"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
reudncGW3sxZU-zTRVn_vwA@giganews.com...

Jacky a écrit le 15/09/2011 à 11h01 :

Re..
Pour avoir une date valide, format et calcul seront possible sur la feuille
remplacer
Feuil1.Cells(derlg, 1) = Me.TextBox1.Value
par
Feuil1.Cells(derlg, 1) = CDate(Me.TextBox1)
Format de cellule date au choix


Ps Ma souris et moi remercions les questionneurs de répondre au-dessus
des messages (c'est la coutume sur ce
forum)
--
Salutations
JJ



"man77" a écrit
dans le message de news:

Jacky a écrit le 15/09/2011 à 10h27 :

Bonjour,

..mais pourriez-vous me donner un exemple pour creer une userform qui
demande la date de commande en proposant la date du jour

Voici un exemple simple à adapter bien sur, au projet
http://www.cijoint.fr/cjlink.php?file=cj201109/cijjUVuAO0.xls
--
Salutations
JJ


"man77" a écrit
dans le message de news:

Bonjour,
je débute en programmation VBA avec Excel. Ma question va parraitre
un
peu
bête, mais pourriez-vous me donner un exemple pour creer une userform
qui
demande la date de commande en proposant la date du jour. C'est pour
automatiser
un bon de commande.
Merci de votre aide et désolé si je parrais un peu
néofite.

bonjour,
un grand merci pour rapidité et efficacite
bonne journée et @+

petit soucis avec cette ligne :
derlg = Feuil1.Cells(Rows.Count, 1).End(3).Row + 1
merci de votre aide

J'oubliais...
L'avantage d'utiliser le code name des feuille est que l'on peut modifier le nom de la feuille sans affecter
le code des procédures.
Donc si l'on renomme une feuille, il n'est pas nécessaire de changer le code correspondant.

--
Salutations
JJ


"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: j4slna$2c5$1@speranza.aioe.org...

Re..

derlg = Feuil1.Cells(Rows.Count, 1).End(3).Row + 1

Ceci donne la première ligne vide de la colonne A de la feuille dont le code name est Feuil1
Le code name est situé devant le nom de la feuille dans l'éditeur vba
Feuil1(Feuil1) ==>par défaut
Feuil1(LeNomDeLaFeuille)
Celui qui est entre parenthèse étant le nom visuel de la feuille( celui que l'on peut modifier directement
sur la feuille)
L'équivalent avec le nom visuel de la feuille est:
derlg = Range("Feuil1").Cells(Rows.Count, 1).End(3).Row + 1
derlg = Range("LeNomDeLaFeuille").Cells(Rows.Count, 1).End(3).Row + 1



Ps: Au risque de me répéter
Ma souris et moi remercions les questionneurs de répondre au-dessus des messages (c'est la coutume sur ce
forum)

--
Salutations
JJ


"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
reudncGW3sxZU-zTRVn_vwA@giganews.com...

Jacky a écrit le 15/09/2011 à 11h01 :

Re..
Pour avoir une date valide, format et calcul seront possible sur la feuille
remplacer
Feuil1.Cells(derlg, 1) = Me.TextBox1.Value
par
Feuil1.Cells(derlg, 1) = CDate(Me.TextBox1)
Format de cellule date au choix


Ps Ma souris et moi remercions les questionneurs de répondre au-dessus
des messages (c'est la coutume sur ce
forum)
--
Salutations
JJ



"man77" a écrit
dans le message de news:

Jacky a écrit le 15/09/2011 à 10h27 :

Bonjour,

..mais pourriez-vous me donner un exemple pour creer une userform qui
demande la date de commande en proposant la date du jour

Voici un exemple simple à adapter bien sur, au projet
http://www.cijoint.fr/cjlink.php?file=cj201109/cijjUVuAO0.xls
--
Salutations
JJ


"man77" a écrit
dans le message de news:

Bonjour,
je débute en programmation VBA avec Excel. Ma question va parraitre
un
peu
bête, mais pourriez-vous me donner un exemple pour creer une userform
qui
demande la date de commande en proposant la date du jour. C'est pour
automatiser
un bon de commande.
Merci de votre aide et désolé si je parrais un peu
néofite.

bonjour,
un grand merci pour rapidité et efficacite
bonne journée et @+

petit soucis avec cette ligne :
derlg = Feuil1.Cells(Rows.Count, 1).End(3).Row + 1
merci de votre aide

Bonjour Jacky,

| derlg = Range("Feuil1").Cells(Rows.Count, 1).End(3).Row + 1

L'usage du "3" au lieu de sa constante "texte" peut-être problématique.
C'était la façon de faire d'un certain AV. Je me souviens d'avoir participé
à un fil de discussion où on s'était rendu compte que cette valeur numérique
pouvait être différente selon la version d'Excel utilisée. Évidemment, je ne me
souviens plus des 2 versions d'Excel dont il était question...

Voici quelque chose qui pourrait piquer ta curiosité :
'--------------------------------
Sub Test1()
Dim P As XlDirection, X As Long
P = xlUp
X = Range("A65536").End(P).Row
MsgBox "Dernière ligne : " & X & vbCrLf & vbCrLf & _
"Valeur de la variable P : " & P
End Sub
'--------------------------------
Sub Test2()
Dim P As Long, X As Long
P = 3
X = Range("A65536").End(P).Row
MsgBox "Dernière ligne : " & X & vbCrLf & vbCrLf & _
"Valeur de la variable P : " & P
End Sub
'--------------------------------


MichD
--------------------------------------------



MichD
--------------------------------------------
"Jacky" a écrit dans le message de groupe de discussion : j4slna$2c5$1@speranza.aioe.org...

Re..

derlg = Feuil1.Cells(Rows.Count, 1).End(3).Row + 1

Ceci donne la première ligne vide de la colonne A de la feuille dont le code name est Feuil1
Le code name est situé devant le nom de la feuille dans l'éditeur vba
Feuil1(Feuil1) ==>par défaut
Feuil1(LeNomDeLaFeuille)
Celui qui est entre parenthèse étant le nom visuel de la feuille( celui que l'on peut modifier directement sur
la feuille)
L'équivalent avec le nom visuel de la feuille est:
derlg = Range("Feuil1").Cells(Rows.Count, 1).End(3).Row + 1
derlg = Range("LeNomDeLaFeuille").Cells(Rows.Count, 1).End(3).Row + 1



Ps: Au risque de me répéter
Ma souris et moi remercions les questionneurs de répondre au-dessus des messages (c'est la coutume sur ce
forum)

--
Salutations
JJ


"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
reudncGW3sxZU-zTRVn_vwA@giganews.com...

Jacky a écrit le 15/09/2011 à 11h01 :

Re..
Pour avoir une date valide, format et calcul seront possible sur la feuille
remplacer
Feuil1.Cells(derlg, 1) = Me.TextBox1.Value
par
Feuil1.Cells(derlg, 1) = CDate(Me.TextBox1)
Format de cellule date au choix


Ps Ma souris et moi remercions les questionneurs de répondre au-dessus
des messages (c'est la coutume sur ce
forum)
--
Salutations
JJ



"man77" a écrit
dans le message de news:

Jacky a écrit le 15/09/2011 à 10h27 :

Bonjour,

..mais pourriez-vous me donner un exemple pour creer une userform qui
demande la date de commande en proposant la date du jour

Voici un exemple simple à adapter bien sur, au projet
http://www.cijoint.fr/cjlink.php?file=cj201109/cijjUVuAO0.xls
--
Salutations
JJ


"man77" a écrit
dans le message de news:

Bonjour,
je débute en programmation VBA avec Excel. Ma question va parraitre
un
peu
bête, mais pourriez-vous me donner un exemple pour creer une userform
qui
demande la date de commande en proposant la date du jour. C'est pour
automatiser
un bon de commande.
Merci de votre aide et désolé si je parrais un peu
néofite.

bonjour,
un grand merci pour rapidité et efficacite
bonne journée et @+

petit soucis avec cette ligne :
derlg = Feuil1.Cells(Rows.Count, 1).End(3).Row + 1
merci de votre aide

man77 a écrit le 15/09/2011 à 10h09 :

Bonjour,
je débute en programmation VBA avec Excel. Ma question va parraitre un
peu bête, mais pourriez-vous me donner un exemple pour creer une userform
qui demande la date de commande en proposant la date du jour. C'est pour
automatiser un bon de commande.
Merci de votre aide et désolé si je parrais un peu
néofite.

jacky,
encore moi...
je suis désole mais le ptit programme plante...
erreur '1004' - la méthode 'rows'.....a echoué
help!!!
1000 merci

Bonjour Denis

Certes un joli "-4162"
Mais je n'ai jamais rencontré de problème depuis xl2003.
Cela devait être xl98, ou j'avais toujours utilsé une constante texte.

Cela me turlupine, si quelqu'un pouvait faire le test cela serait sympathique, je n'ai plus xl98.

--
Salutations
JJ


"MichD" <michdenis@hotmail.com> a écrit dans le message de news: j4ss4t$k1p$1@speranza.aioe.org...

Bonjour Jacky,

| derlg = Range("Feuil1").Cells(Rows.Count, 1).End(3).Row + 1

L'usage du "3" au lieu de sa constante "texte" peut-être problématique.
C'était la façon de faire d'un certain AV. Je me souviens d'avoir participé
à un fil de discussion où on s'était rendu compte que cette valeur numérique
pouvait être différente selon la version d'Excel utilisée. Évidemment, je ne me
souviens plus des 2 versions d'Excel dont il était question...

Voici quelque chose qui pourrait piquer ta curiosité :
'--------------------------------
Sub Test1()
Dim P As XlDirection, X As Long
P = xlUp
X = Range("A65536").End(P).Row
MsgBox "Dernière ligne : " & X & vbCrLf & vbCrLf & _
"Valeur de la variable P : " & P
End Sub
'--------------------------------
Sub Test2()
Dim P As Long, X As Long
P = 3
X = Range("A65536").End(P).Row
MsgBox "Dernière ligne : " & X & vbCrLf & vbCrLf & _
"Valeur de la variable P : " & P
End Sub
'--------------------------------


MichD
--------------------------------------------



MichD
--------------------------------------------
"Jacky" a écrit dans le message de groupe de discussion : j4slna$2c5$1@speranza.aioe.org...

Re..

derlg = Feuil1.Cells(Rows.Count, 1).End(3).Row + 1

Ceci donne la première ligne vide de la colonne A de la feuille dont le code name est Feuil1
Le code name est situé devant le nom de la feuille dans l'éditeur vba
Feuil1(Feuil1) ==>par défaut
Feuil1(LeNomDeLaFeuille)
Celui qui est entre parenthèse étant le nom visuel de la feuille( celui que l'on peut modifier directement
sur
la feuille)
L'équivalent avec le nom visuel de la feuille est:
derlg = Range("Feuil1").Cells(Rows.Count, 1).End(3).Row + 1
derlg = Range("LeNomDeLaFeuille").Cells(Rows.Count, 1).End(3).Row + 1



Ps: Au risque de me répéter
Ma souris et moi remercions les questionneurs de répondre au-dessus des messages (c'est la coutume sur ce
forum)

--
Salutations
JJ


"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
reudncGW3sxZU-zTRVn_vwA@giganews.com...

Jacky a écrit le 15/09/2011 à 11h01 :

Re..
Pour avoir une date valide, format et calcul seront possible sur la feuille
remplacer
Feuil1.Cells(derlg, 1) = Me.TextBox1.Value
par
Feuil1.Cells(derlg, 1) = CDate(Me.TextBox1)
Format de cellule date au choix


Ps Ma souris et moi remercions les questionneurs de répondre au-dessus
des messages (c'est la coutume sur ce
forum)
--
Salutations
JJ



"man77" a écrit
dans le message de news:

Jacky a écrit le 15/09/2011 à 10h27 :

Bonjour,

..mais pourriez-vous me donner un exemple pour creer une userform qui
demande la date de commande en proposant la date du jour

Voici un exemple simple à adapter bien sur, au projet
http://www.cijoint.fr/cjlink.php?file=cj201109/cijjUVuAO0.xls
--
Salutations
JJ


"man77" a écrit
dans le message de news:

Bonjour,
je débute en programmation VBA avec Excel. Ma question va parraitre
un
peu
bête, mais pourriez-vous me donner un exemple pour creer une userform
qui
demande la date de commande en proposant la date du jour. C'est pour
automatiser
un bon de commande.
Merci de votre aide et désolé si je parrais un peu
néofite.

bonjour,
un grand merci pour rapidité et efficacite
bonne journée et @+

petit soucis avec cette ligne :
derlg = Feuil1.Cells(Rows.Count, 1).End(3).Row + 1
merci de votre aide

RE...
Que donne le classeur exemple ?
Un classeur brouillon avec l'erreur serait souhaitable.
Ici
http://www.cijoint.fr
--
Salutations
JJ


"man77" <nospam_ejacquet@guinot.com.invalid> a écrit dans le message de news:
jYidnaCX8emBZezTRVn_vwA@giganews.com...

man77 a écrit le 15/09/2011 à 10h09 :

Bonjour,
je débute en programmation VBA avec Excel. Ma question va parraitre un
peu bête, mais pourriez-vous me donner un exemple pour creer une userform
qui demande la date de commande en proposant la date du jour. C'est pour
automatiser un bon de commande.
Merci de votre aide et désolé si je parrais un peu
néofite.

jacky,
encore moi...
je suis désole mais le ptit programme plante...
erreur '1004' - la méthode 'rows'.....a echoué
help!!!
1000 merci