IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

DTPICKER1 et TCD [XL-2013]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre Expert
    Homme Profil pro
    retraité
    Inscrit en
    Mars 2013
    Messages
    885
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2013
    Messages : 885
    Par défaut DTPICKER1 et TCD
    Bonjour à tous,

    J'ai un petit programme comprenant entre autres un userform et un TCD.

    'l'userform contient un contrôle DTPICKER1 permettant d'entrer les dates.

    Lorsque le fichier alimentant le TCD est vide (nouvel exercice comptable) le programme bloque sur la ligne
    en rouge du code ci-dessous (Cette procédure renvoie les enregistrements du fichier dans l'userform.).

    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
    Sub Lecture() ' Lecture des enregistrements sur formulaire
    With ShtO
       Me.TxtFacture = .Range("B" & n_Row)
       Me.DTPicker1.Value = .Range("C" & n_Row)
       Me.CmbListeTypes = .Range("D" & n_Row)
       If n_Row = 5 Then
          Me.TxtMontant = Format(0, "0.00")
          Me.TxtNbreLitres = Format(0, "0.00")
          Me.CmbRemise = Format(0, "0.00")
          Me.CmbReglement = Format(0, "0.00")
       Else
          Me.TxtMontant = .Range("G" & n_Row)
          Me.TxtNbreLitres = .Range("F" & n_Row)
          Me.CmbListeTypes = .Range("D" & n_Row)
          Me.CmbRemise = .Range("J" & n_Row)
          End If
       
     End With
     CheckButton
    End Sub
    VBA signale "erreur d'exécution 380 : valeur de propriété non valide
    Je crois comprendre que la cellule vide (pas d'entregistrement) ne plait pas alors que les autres informations vides du fichier ne posent pas problème.
    Y a-t-il un moyen de régler ce problème ?

    Par ailleurs, il semble que le TCD exige deux lignes d'enregistrement minimum à en croire l'erreur 1004 qui signale ce point.

    De plus, bien que le fichier ait été vidé des informations de l'exercice précédent le TCD conserve les dates malgré cette ligne

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
    Avez vous une explication ?

    Cordialement,
    Paul

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

    La cellule contient quelque chose qui ne lui plait pas. Teste si elle contient une date :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If IsDate(.Range("C" & n_Row)) Then Me.DTPicker1.Value = [A0]
    Par ailleurs, il semble que le TCD exige deux lignes d'enregistrement minimum à en croire l'erreur 1004 qui signale ce point.
    Oui, Il faut une ligne d'entête et une ligne de données. Mets un espace dans un champ texte.

    De plus, bien que le fichier ait été vidé des informations de l'exercice précédent le TCD conserve les dates malgré cette ligne
    Dans les options du TCD, onglet Données, champ "Nombre d'éléments à retenir par champ", choisis "Aucun".

  3. #3
    Membre Expert
    Homme Profil pro
    retraité
    Inscrit en
    Mars 2013
    Messages
    885
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2013
    Messages : 885
    Par défaut DTPIKERS1 et TCD
    Bonjour Daniel,

    Merci pour votre réponse. Je regarde ça et vous tiens informé du résultat.

    Par ailleurs, mon ami, pour qui j'ai fait ce programme se désole de ne pas voir le corps d'écriture dans la fenêtre du DTPICKERS varier proportionnellement au zoom sur l'Userform (il travaille sur une tablette). Je pense qu'une propriété doit être modifiée quelque part car les autres contrôles n'ont pas ce problème.

    Cordialement,
    Paul

  4. #4
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Je pense qu'une propriété doit être modifiée quelque part car les autres contrôles n'ont pas ce problème.
    Oui, mais ce n'est pas un contrôle standard...

  5. #5
    Membre Expert
    Homme Profil pro
    retraité
    Inscrit en
    Mars 2013
    Messages
    885
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2013
    Messages : 885
    Par défaut DTPIKERS1 et TCD
    Bonjour Daniel,

    Comme convenu, je vous signale que vos réponses à mes trois premières questions donnent entière satisfaction.

    Pour le corps d'écriture du Dtpicker proportionnel au zoom on se contentera pour l'instant de ce qui existe.



    Merci
    Paul

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VBA Excel] Génération d'un TCD : pb sous excel 200
    Par sun19 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 17/08/2006, 20h27
  2. Cumul dans un TCD
    Par slimsamfr dans le forum Access
    Réponses: 3
    Dernier message: 04/07/2006, 22h55
  3. tableau tcd sans page web
    Par krapoulos dans le forum Langage SQL
    Réponses: 1
    Dernier message: 28/02/2006, 11h23
  4. [VBA][EXCEL] Mise à jour de TCD en macro
    Par Scuriolus dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 07/12/2005, 13h30
  5. [VB Excel] Problème avec le nom automatique des TCD
    Par RedBurn dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/12/2005, 13h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo