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 :

VBA excel,pb pour comparer cellule, err execution 6


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Mars 2012
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2012
    Messages : 2
    Par défaut VBA excel,pb pour comparer cellule, err execution 6
    Bonjour,
    je commence avec VBA
    je cherche a creer une macro qui puisse comparer avec une boucle "for" le contenu des cellules de deux colonnes de la feuille excel de laquelle je lance la macro

    si elles sont respectivement le meme contenu ( un mot) alors je rajoute le contenu des cellules qui sont sur la meme ligne dans un tableau, que je desire ensuite ajouter sur cette meme feuille excel en bas de mon tableau de donneés que j'analyse.

    ex: abc new 2
    abc new 5
    abc old 6 les deux premieres lignes ont le meme libellé abc ,
    et le meme 'titre' : new mais pas la troisieme qui a :
    old.
    alors j'additionne dans un nouveau ableau 2 et 5. ( sans 6)
    voici la ligne de mon programme qui affiche erreur de depassement de capacite...

    If f.Cells(i, 1) = f.Cells(i + 1, 1) And f.Cells(i, 2) = f.Cells(i + 1, 2) Then
    et la ca bloque..;

    qu en pensez vous?

    merci de votre aide

  2. #2
    Membre chevronné
    Avatar de bifconsult
    Homme Profil pro
    Consultant
    Inscrit en
    Mars 2012
    Messages
    189
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant
    Secteur : Conseil

    Informations forums :
    Inscription : Mars 2012
    Messages : 189
    Par défaut
    Bonjour,

    Est-ce qu'il y a moyen de mettre un peu plus de code ? Parce que ça plante à cette ligne là, mais l'erreur peut provenir de l'amont. Le "f" dans f.cells(x,y), il représente la feuille je suppose ? Est-elle bien définie ?

  3. #3
    Nouveau candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Mars 2012
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2012
    Messages : 2
    Par défaut
    voici le debut du programme:

    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
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    Sub ()
     
     
     
    Dim appExcel As Excel.Application
    Dim sheet As Excel.Worksheet
     
    Set appExcel = CreateObject("Excel.Application")
    'Ouverture d'un nouveau vierge
    appExcel.Workbooks.Add
    Set f = appExcel.ActiveWorkbook.ActiveSheet
     
     
                        Dim j As Integer
                        j = 0
     
                          Dim bool, bool2 As Boolean
                          bool = True
                 bool2 = True
                         Dim i As Integer
                        i = 2
                        Dim tabtemp(48) As Double
     
     
     
      While (i < 1437)
     
                    bool2 = True
     
            If f.Cells(i, 4) = 1 And f.Cells(i, 5) <> "X" Then
     
                     For g = 0 To 11
     
                            tabtemp(g) = f.Cells(i, 5 + g)
                     Next g
     
     
     
                    ElseIf f.Cells(i, 4) = 1 And f.Cells(i, 5) = X Then
     
                    For h = 0 To 11
     
                    tabtemp(h + 12) = f.Cells(i, 5 + h)
     
                     Next h
     
            ElseIf f.Cells(i, 4) = 1 And f.Cells(i, 5) <> X Then
     
                    For k = 0 To 11
     
                    tabtemp(k + 24) = f.Cells(i, 5 + k)
     
                    Next k
     
                    Else
     
                    For s = 0 To 11
     
                    tabtemp(s + 36) = f.Cells(i, 5 + s)
     
                     Next s
            End If
     
     
            While (bool2)
     
     
     
            If f.Cells(i, 1) = f.Cells(i + 1, 1) And f.Cells(i, 2) = f.Cells(i + 1, 2) Then
     
    '.......................

Discussions similaires

  1. [VBA Excel] Userform pour supprimer une ligne précise
    Par Viper7 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 15/06/2006, 14h32
  2. [VBA-E] Macro pour copier cellules
    Par jfamiens dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 07/06/2006, 20h02
  3. [VBA-Excel] aide pour maccro (selection)
    Par Fealendril dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 08/02/2006, 08h53
  4. [VBA-Excel]Problème pour remplir une listview
    Par Le Djé dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 29/01/2006, 16h27
  5. vba excel - Comment saisir une cellule sans faire entrer
    Par brethomeau dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 15/11/2005, 17h50

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