Discussion :

[Nathanaël.]

Bonjour,
Je débute en VBA et je m'éclate énormement en essayant d'apprendre.
Je tiens d'ailleurs à remercier ce forum et ses participants que je lit avec beaucoup de plaisir.
Ceci étant dit je n'arrive pas à afficher le résultat d'un DTPICKER dans une cellule.
A savoir pour être plus précis : on choisi le 25/12/14 dans le calendrier et cela s'affiche dans la cellule de notre choix.
J'ai recherché dans de nombreux topics sans trouver mon bonheur ...
Merci par avance

[casefayere]

Bonjour,
un exemple parmi tant d'autres, à adapter au besoin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub essai()
Dim datemaxi As Date
'ci-dessous "dateope" est le nom du DtPicker donc à changer pour le nom du tien
datemaxi = Format(dateope, "dd/mm/yyyy") 'variable = date du textbox au format français
  Range("A2") = datemaxi
 
End Sub

[Nathanaël.]

Bonjour CASEFAYERE,

Voici ce que j'ai compris et modifié à tord apparemment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub DATE_RESA_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
 
Dim datemaxi As Date
'ci-dessous "dateope" est le nom du DtPicker donc à changer pour le nom du tien
datemaxi = Format(DATE_RESA, "dd/mm/yyyy") 'variable = date du textbox au format français
Range("J3") = DATE_RESA
 
 
End Sub

Et malheureusement en J3 rien ne s'affiche ... Désolé

[casefayere]

As-tu bien tout en haut du module de l'usf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Dl as range

parce qu'il n'y a pas plus simple comme code

[casefayere]

non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("J3") = DATE_RESA

oui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("J3") = datemaxi

Quant à l'évènement "Private Sub DATE_RESA_CallbackKeyDown", à vérifier si c'est le bon

[Nathanaël.]

CASEFAYERE,

Je vous remercie pour vos réponses, malheureusement toujours rien ...
je ne comprends pas !
Je me suis permis de mettre l'essai en pièce jointe ... si toutefois ...

[casefayere]

Moi, je veux bien tout ce que tu veux dans la limite de mes connaissances, mais il faut que tu t'expliques mieux que ça, par ailleurs as-tu résolu ce probleme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Dl = .Range("A" & .Rows.Count).End(xlUp)(2, 1)

car tu ne le dis pas

[Nathanaël.]

Alors sur mon PC perso XL2007, marche pas le DTPICKER n'est pas présent et beaucoup de ligne de code ne passe pas ...
J'ai dû mettre mon projet de coté pour le moment GRRR.

Alors je vous explique mon problème :
J'ai fait un tableau EXCEL il y a quelques temps 2 feuilles de calcul.
La première feuille saisie en ligne.
La seconde feuille : mise en forme avec une formule de recherche qui fait apparaitre toutes les infos saisies sur la 1ère feuille.
Le problème est qu'il faut imprimer chaque feuille 1 à 1 pour environ 300 saisie.
Donc je voudrai faire défiler toutes les valeurs avec une impression entre chaque ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C"
    Range("A1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C[1]"
    Range("A1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C[2]"
    Range("A1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C[3]"
    Range("A1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveCell.FormulaR1C1 = "=Feuil1!R[1]C[4]"
    Range("A1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

[casefayere]

Voilà,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub DATE_RESA_Change()
'ci-dessous "dateope" est le nom du DtPicker donc à changer pour le nom du tien
datemaxi = Format(DATE_RESA, "dd/mm/yyyy") 'variable = date du textbox au format français
Range("J3") = datemaxi
 
End Sub

j'ai enleve "dim datemaxi asDate" et remis tout en tête de module car cette variable pourra resservir dans le code
de plus je regarde tes procédures de l'Usf et te les proposerai nettoyées

[Nathanaël.]

MILLE MERCI !!!!
cela fonctionne !
Merci beaucoup de la rapidité et de la disponibilité !
Super CASEFAYERE, je vais pouvoir continuer à bidouiller !

[casefayere]

Alors sur mon PC perso XL2007, marche pas le DTPICKER n'est pas présent et beaucoup de ligne de code ne passe pas ...

eh oui, il faut regarder les discussions sur ce sujet car je ne ferai pas tout.

J'ai fait un tableau EXCEL il y a quelques temps 2 feuilles de calcul.
La première feuille saisie en ligne.
La seconde feuille : mise en forme avec une formule de recherche qui fait apparaitre toutes les infos saisies sur la 1ère feuille.
Le problème est qu'il faut imprimer chaque feuille 1 à 1 pour environ 300 saisie.
Donc je voudrai faire défiler toutes les valeurs avec une impression entre chaque ...

Ecoutes, nous sommes le weekend, je ne veux pas me prendre la tête, le mieux est d'avoir ton fichier (avec données bidon) et me laisser réfléchir tranquillement, j'espère que tu as le temps, et si tu peux, expliques avec un maximum de renseignements ta finalité, 300 saisies à imprimer ?, 300 feuilles ?, perso si je te propose quelque-chose , je ne testerai pas (l'encre coûte cher).
bon courage

[Nathanaël.]

ok je comprends, Merci quand même !
Bon Week End !

[casefayere]

Peux-tu m'expliquer ce que tu cherches à faire dans cette partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
    Range("A3:N3").Select
    Selection.Copy
    Range("a" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    Range("A3:N3").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A3").Select

[Nathanaël.]

Cette partie à pour fonction de copier, coller la ligne à la fin du tableau puis de supprimer la 1ère ligne.
... DSL c'est de la bidouille qui ne doit pas être très claire mais j'ai commencé mardi dernier et je dois avouer que je ne comprend pas tout !

Mais je prends beaucoup de plaisir à essayer d'apprendre !

[casefayere]

alors, je vais certainement te proposer de faire autrement, soit passer par le boutn valider pour importer directement toutes tes saisies Usf, soit comme tu as commencé à le faire, entrer saisie par saisie mais sur la bonne ligne (c.a.d. la première ligne vide)

Dis-moi ce que tu préfères

[Nathanaël.]

J'en profite alors pour te demander pourquoi ?
En fait, je comptais ajouter (toujours en mode bidouille) des lignes permettant de classer par ordre alphabétique pour pouvoir par la suite rechercher et modifier les entrés.
Pourriez vous du coup me conseiller le choix le plus adapté ?!
C'est super sympa de prendre le temps !

[casefayere]

des lignes permettant de classer par ordre alphabétique

il suffira de lancer un tri avec une procédure ajoutée au bouton valider.

Je vais rester sur ta lancée mais les saisies iront directement sur les bonnes cellules,

le bouton valider ne servira qu'a redonner la bonne valeur à la variable que je vais utiliser pour donner la première ligne vide et à trier, tu me préciseras sur quels élément devra se faire ce tri

[Nathanaël.]

Je souhaiterai que le classement se fasse sur NOM, puis ARTICLE.
Merci par avance.

[casefayere]

voilà une approche en fichier joint

[Nathanaël.]

Excel affiche un ligne d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Activate()
With Sheets("TABLEAU")
  Set Dl = .Range("A" & .Rows.Count).End(xlUp)(2, 1) '1ère cellule en A non utilisé
End With
End Sub