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 :

Erreur d'incompatibilité de type


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Inscrit en
    Mai 2010
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Mai 2010
    Messages : 4
    Par défaut Erreur d'incompatibilité de type
    Bonjour,

    Bien qu'ayant réalisé plusieurs macro, je me qualifie toujours de débutant ^^.

    Voila mon problème :

    J'ai un classeur excel comportant plusieurs onglets (49 au total). Les 2 premiers sont des onglets de présentation, le 3eme est celui sur lequel j'aimerai travailler. Les autres onglets comporte un tableau (le même pour tous) mais avec des valeurs différentes.
    J'aimerai mettre dans l'onglet 3 certaines valeurs de ces tableaux ou chaque lignes correspond à un onglet différend.

    Voila mon code :

    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    Private Sub CommandButton1_Click()
     
    'Variables
    Dim i As String
    Dim j As String
    Dim numonglet As String
     
    'Activation
    Workbooks("Tableaux de synthèse v06.xlsm").Sheets("Profil énergétique").Activate
     
    'Préparation
    numonglet = 4
    j = 5
     
    'Copie des données
    For i = 4 To 45
        Sheet("Profil énergétique").Cells(j, 2).Value = Sheet(i).Range("I3")
        Sheet("Profil énergétique").Cells(j, 3).Value = Sheet(i).Range("I24")
        Sheet("Profil énergétique").Cells(j, 4).Value = Sheet(i).Range("I25")
        Sheet("Profil énergétique").Cells(j, 5).Value = Sheet(i).Range("I26")
        Sheet("Profil énergétique").Cells(j, 6).Value = Sheet(i).Range("I27")
        Sheet("Profil énergétique").Cells(j, 7).Value = Sheet(i).Range("I28")
        Sheet("Profil énergétique").Cells(j, 8).Value = Sheet(i).Range("I29")
        Sheet("Profil énergétique").Cells(j, 9).Value = Sheet(i).Range("I30")
        Sheet("Profil énergétique").Cells(j, 10).Value = Sheet(i).Range("I31")
        Sheet("Profil énergétique").Cells(j, 11).Value = Sheet(i).Range("I32")
        Sheet("Profil énergétique").Cells(j, 12).Value = Sheet(i).Range("I33")
        Sheet("Profil énergétique").Cells(j, 13).Value = Sheet(i).Range("I34")
        Sheet("Profil énergétique").Cells(j, 14).Value = Sheet(i).Range("I35")
        Sheet("Profil énergétique").Cells(j, 15).Value = Sheet(i).Range("I36")
        Sheet("Profil énergétique").Cells(j, 16).Value = Sheet(i).Range("I37")
        Sheet("Profil énergétique").Cells(j, 17).Value = Sheet(i).Range("I38")
        Sheet("Profil énergétique").Cells(j, 18).Value = Sheet(i).Range("I39")
        Sheet("Profil énergétique").Cells(j, 19).Value = Sheet(i).Range("I40")
        Sheet("Profil énergétique").Cells(j, 20).Value = Sheet(i).Range("I41")
        Sheet("Profil énergétique").Cells(j, 21).Value = Sheet(i).Range("I15")
     
        Sheets("Profil énergétique").Rows(j + 1).Resize(1).Insert Shift:=xlDown
        j = j + 1
    Next i
     
    End Sub
    Le problème c'est que lors du lancement j'ai une erreur de compilation "incompatibilité de type" et cela me surligne la première ligne !!!

    je ne comprends pas du tout pourquoi...

    Y aurait il quelqu'un pour me dépêtrer de cette affaire ??

    En vous remerciant,

    Ptibot

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    bonjour ,

    et c'est quoi un "String" pour toi ?

  3. #3
    Membre confirmé
    Profil pro
    Étudiant
    Inscrit en
    Juillet 2011
    Messages
    30
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juillet 2011
    Messages : 30
    Par défaut
    Bonjour,

    Tu déclares ton i en string (chaîne de caractères), alors que tu l'utilises ensuite dans une boucle For.
    Tu déclares ton j en string (chaîne de caractères), alors que tu essaies de l'incrémenter dans la boucle.

    Il faudrait plutôt les déclarer en integer, qui signifie nombre entier.


    Cordialement,
    Jordan

  4. #4
    Membre à l'essai
    Inscrit en
    Mai 2010
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Mai 2010
    Messages : 4
    Par défaut
    Effectivement,

    Merci beaucoup pour l'avoir remarqué

    Bonne journée à vous

    Ptibot

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

Discussions similaires

  1. [A-07] Erreur n°13 : Incompatibilité de type
    Par Leimi dans le forum VBA Access
    Réponses: 2
    Dernier message: 17/03/2009, 11h15
  2. Erreur d'incompatibilité de types
    Par étoile de mer dans le forum Débuter
    Réponses: 27
    Dernier message: 01/06/2008, 17h14
  3. DLookup, Erreur d'incompatibilité de type (13)
    Par athos7776 dans le forum VBA Access
    Réponses: 5
    Dernier message: 08/08/2007, 17h25
  4. Erreur 13 : incompatibilité de type
    Par Donatelli dans le forum Access
    Réponses: 1
    Dernier message: 03/01/2007, 12h19
  5. [VBA-A] ADO - Erreur 13 Incompatibilité de Type
    Par db30 dans le forum VBA Access
    Réponses: 4
    Dernier message: 15/04/2006, 14h30

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