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

VBA Discussion :

Aide erreur 1004 type 13


Sujet :

VBA

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2015
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Août 2015
    Messages : 1
    Points : 1
    Points
    1
    Par défaut Aide erreur 1004 type 13
    Bonjour,

    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
    If Sheets("Feuil1").CommandButton3.Caption <> "" Then 'si les donnŽes des participants ont ŽtŽ renseignŽes
                    Set tab2 = recuperer_donnees_personnel(Sheets("Feuil1").CommandButton3.Caption, tableau_valeurs("participants")) 'on rŽcupre les donnŽes
                    If Not IsEmpty(tab2) Then
                        .Range("A" & i) = "nb"
                        .Range("A" & i).NumberFormat = ";;;"
                        .Range("B" & i) = tableau_valeurs("participants")
                        .Range("B" & i).NumberFormat = ";;;"
                        i = i + 1
                        cles = tab2.keys
                        elements = tab2.items
                        For k = 0 To UBound(cles) 'pour chaque element de tab2
                            .Range("A" & i) = cles(k)
                            .Range("A" & i).NumberFormat = ";;;"
                            .Range("B" & i) = elements(k)
                            .Range("B" & i).NumberFormat = ";;;"
                            i = i + 1
                        Next k
                    End If
                End If


    j'ai ce message qui apparait, cette fonction doit transférer les données... je ne connais pas du tout la programmation VBA mais je dois utiliser un outils déja monté...
    Merci de m'indiquer ce que je peux vous apporter pour compléter votre interpretation et votre aide...

  2. #2
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Points : 11 274
    Points
    11 274

Discussions similaires

  1. Fonction de type GetValue utilisée dans classeur - Erreur 1004
    Par nex92 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 23/09/2012, 18h44
  2. Problème de type Erreur 1004
    Par eljulios dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 17/04/2008, 01h16
  3. Insérer une image : Erreur 1004
    Par dp_favresa dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 26/10/2005, 15h01
  4. erreur Data type mismatch in criteria expression
    Par bachilbouzouk dans le forum ASP
    Réponses: 3
    Dernier message: 20/04/2005, 12h48
  5. [Agents services] Erreur de types imcompatibles
    Par ApollloCrid dans le forum API, COM et SDKs
    Réponses: 7
    Dernier message: 14/04/2005, 20h47

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