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'exécution '6' [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Femme Profil pro
    Apprentie ingénieure
    Inscrit en
    Avril 2011
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 34
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Apprentie ingénieure
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Avril 2011
    Messages : 51
    Par défaut Erreur d'exécution '6'
    Bonjour,

    J'ai une macro de recherche de valeur pour pouvoir coller correctement un tableau.

    Quand je la test, j'ai une erreur qui s'affiche

    "Erreur d'exécution '6' : Dépassement de capacité"

    Voici un bout de ma macro,

    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
    If Cells(1, 3).Value = "" Then     
            Range("A1").Select
            ActiveSheet.Paste
     
        Else
            For i = 1 To 65500 Step 40
            If Cells(i, 3).Value = "" Then  
                Range("A" & i).Select
                ActiveSheet.Paste
                Exit Sub
            End If
     
            Next i
     
        End If
    Il me met en jaune la ligne

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    For i = 1 To 65500 Step 40

    Il arrive que cette macro fonctionne, mais dès qu'une de mes conditions précédentes est vérifiée et soulignée, la macro "bug".

    (La condition consiste à m'afficher un message d'erreur si il manque une valeur dans le tableau)

    Merci d'avance pour votre aide,

  2. #2
    Expert confirmé
    Avatar de Didier Gonard
    Homme Profil pro
    Formateur Office et développeur VBA en freelance
    Inscrit en
    Février 2008
    Messages
    2 805
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Formateur Office et développeur VBA en freelance

    Informations forums :
    Inscription : Février 2008
    Messages : 2 805
    Par défaut
    Bonjour,

    tu as déclaré ta variable I ?

    si oui de quel type ?

    cordialement,

    Didier

  3. #3
    Membre confirmé
    Femme Profil pro
    Apprentie ingénieure
    Inscrit en
    Avril 2011
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 34
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Apprentie ingénieure
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Avril 2011
    Messages : 51

  4. #4
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Je ne sais pas trop ce que tu veux faire mais tu n'es pas obliger de faire de boucle :
    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
     
    Sub Coller()
     
        With ActiveSheet
     
            If .Cells(1, 3).Value = "" Then
     
                    .Range("A1").Select
                    .Paste
     
            Else
     
                .Range("A" & .Cells(.Rows.Count, 3).End(xlUp).Row + 1).Select
                .Paste
     
        End With
     
    End Sub
    Hervé.

  5. #5
    Membre confirmé
    Femme Profil pro
    Apprentie ingénieure
    Inscrit en
    Avril 2011
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 34
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Apprentie ingénieure
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Avril 2011
    Messages : 51
    Par défaut
    Mon tableau fait 40 lignes.

    Et je veux que si en A3 un 1 est inscrit, qu'il passe 40 lignes pour coller le tableau en dessous du premier.

  6. #6
    Expert confirmé
    Avatar de Didier Gonard
    Homme Profil pro
    Formateur Office et développeur VBA en freelance
    Inscrit en
    Février 2008
    Messages
    2 805
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Formateur Office et développeur VBA en freelance

    Informations forums :
    Inscription : Février 2008
    Messages : 2 805
    Par défaut
    Citation Envoyé par Edaine Voir le message
    Les variables de type Integer sont stockées sous la forme de nombres de 16 bits (2 octets) dont la valeur est comprise entre -32 768 et 32 767
    => dépassement de capacité au-delà



    cordialement,

    Didier

  7. #7
    Membre confirmé
    Femme Profil pro
    Apprentie ingénieure
    Inscrit en
    Avril 2011
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 34
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Apprentie ingénieure
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Avril 2011
    Messages : 51
    Par défaut
    Oh !

    C'est vrai...

    Merci ^^'

  8. #8
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Re,

    regarde si ça convient, sinon, il faudrait plus de précisions, savoir où est le tableau à copier ? Savoir si tout ça se fait sur la même feuille ?
    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
     
    Sub Coller()
     
        With ActiveSheet
     
            'suppose que le taleau est sélectionné
            Selection.Copy
     
            'si A3 est vide, colle à partir de A1
            If .Cells(3, 1).Value = "" Then
     
                    .Range("A1").Select
                    .Paste
     
            Else
     
                'sinon, défini la première ligne vide en colonne A et colle le tableau
                .Range("A" & .Cells(.Rows.Count, 3).End(xlUp).Row + 1).Select
                .Paste
     
            End If
     
            Application.CutCopyMode = False
     
        End With
     
    End Sub
    Hervé.

  9. #9
    Membre confirmé
    Femme Profil pro
    Apprentie ingénieure
    Inscrit en
    Avril 2011
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 34
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Apprentie ingénieure
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Avril 2011
    Messages : 51
    Par défaut
    J'ai testé avec la modification de Didier, en enlevant les 65500 dont je n'ai pas besoin d'ailleurs.


    Et ça a l'air de fonctionner donc je pense que je vais laisser ainsi !


    Merci beaucoup pour vos aides

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

Discussions similaires

  1. [JVM][8.1.7] Erreur d'exécution de initjvm.sql
    Par Escuzze dans le forum Oracle
    Réponses: 4
    Dernier message: 01/07/2005, 15h39
  2. Message d'erreur à l'exécution d'une install
    Par titof dans le forum Autres Logiciels
    Réponses: 2
    Dernier message: 22/03/2005, 11h20
  3. [CR8][VB6] Erreur d'exécution 20533
    Par pvava dans le forum SDK
    Réponses: 1
    Dernier message: 01/02/2005, 10h27
  4. Erreurs d'exécution sous delphi 5
    Par nkd dans le forum Langage
    Réponses: 3
    Dernier message: 06/11/2004, 17h25
  5. [Apache Perl] Erreur à l'exécution de mes cgi
    Par GLDavid dans le forum Apache
    Réponses: 4
    Dernier message: 28/08/2004, 20h23

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