Vb sous excel

nad00 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
 Utilisateur anonyme -
Bonjour,

je suis entrain de monter une application vb sous excel qui permet de comparer plusieurs bases de données avec une base de donnée et là pour comparer la base de donnée berrechid j'ai utilisé ce programme, à chaque fois qu'il y a un vide je veux recuperer tte la ligne de la base de donnée mais le programme ne marche pas, SVP je veux savoir pourquoi le programme ci dessus ne marche pas ???

' programme de comparaison pour B3
For i = 5 To 500

If Feuil74.Cells(i, 1) = Feuil74.Cells(i, 7) Then
Feuil74.Cells(i, 13) = "VRAI"
Else
Feuil74.Cells(i, 13) = "FAUX"

If Feuil74.Cells(i, 7) = "" Then

j = 5

GoTo label

Else

If Feuil74.Cells(i, 1) = "" Then

j = 5

GoTo label2

End If

End If
End If
Next i

label: For m = 7 To 500

Feuil74.Cells(j, 32) = Feuil13.Cells(m, 1)
Feuil74.Cells(j, 33) = Feuil13.Cells(m, 2)
Feuil74.Cells(j, 34) = Feuil13.Cells(m, 3)
Feuil74.Cells(j, 35) = Feuil13.Cells(m, 4)
Feuil74.Cells(j, 36) = Feuil13.Cells(m, 5)
Feuil74.Cells(j, 37) = Feuil13.Cells(m, 6)
Feuil74.Cells(j, 38) = Feuil13.Cells(m, 7)
Feuil74.Cells(j, 39) = Feuil13.Cells(m, 8)
Feuil74.Cells(j, 40) = Feuil13.Cells(m, 9)
Feuil74.Cells(j, 41) = Feuil13.Cells(m, 10)
Feuil74.Cells(j, 42) = Feuil13.Cells(m, 11)
Feuil74.Cells(j, 43) = Feuil13.Cells(m, 12)
Feuil74.Cells(j, 44) = Feuil13.Cells(m, 13)
Feuil74.Cells(j, 45) = Feuil13.Cells(m, 14)
Feuil74.Cells(j, 46) = Feuil13.Cells(m, 15)
Feuil74.Cells(j, 47) = Feuil13.Cells(m, 16)
Feuil74.Cells(j, 48) = Feuil13.Cells(m, 17)
j = j + 1

Next m

label2: For k = 3 To 28133

If Feuil4.Cells(k, 1) = "BERCHID1" Then

Feuil74.Cells(j, 19) = Feuil4.Cells(k, 1)
Feuil74.Cells(j, 20) = Feuil4.Cells(k, 2)
Feuil74.Cells(j, 21) = Feuil4.Cells(k, 3)
Feuil74.Cells(j, 22) = Feuil4.Cells(k, 4)
j = j + 1

End If
Next k
Configuration: Windows XP
Firefox 2.0.0.16

3 réponses

  1. Utilisateur anonyme
     
    Bonjour,

    Suggestion de modification pour meilleur compréhension : 

    Option Explicit

Sub Test()

    Dim I As Integer, K As Integer
    

    For I = 5 To 500
        If Feuil74.Cells(I, 1) = Feuil74.Cells(I, 7) Then
            Feuil74.Cells(I, 13) = "VRAI"
        Else
            Feuil74.Cells(I, 13) = "FAUX"
            If Feuil74.Cells(I, 7) = "" Then
                Call Boucle1(5)
            Else
                If Feuil74.Cells(I, 1) = "" Then
                    Call Boucle2(5)
                End If
            End If
        End If
    Next I

End Sub

Sub Boucle1(ByRef J As Integer)
    
    Dim Compteur1 As Integer, Compteur2 As Integer
    
    Compteur1 = 32: Compteur2 = 1
    For m = 7 To 500
        Feuil74.Cells(J, Compteur1) = Feuil13.Cells(m, Compteur2)
        J = J + 1: Compteur1 = (Compteur1 + 1): Compteur2 = (Compteur2 + 1)
    Next m
End Sub
'

Sub Boucle2(ByRef J As Integer)

    Dim Compteur1 As Integer, Compteur2 As Integer

    Compteur1 = 19: Compteur2 = 1
    For K = 3 To 28133
        If Feuil4.Cells(K, 1) = "BERCHID1" Then
            Feuil74.Cells(J, Compteur1) = Feuil4.Cells(K, Compteur2)
            J = J + 1: Compteur1 = (Compteur1 + 1): Compteur2 = (Compteur2 + 1)
        End If
    Next K

End Sub
'


    Conseil : Éviter les Goto Label, reformuler la structure dans ces cas !

    Lupin
    1
  2. nad00 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
     

    une erreur qui s'affiche au niveau de la ligne : Feuil74.Cells(s, Compteur1) = Feuil13.Cells(m, Compteur2)

    j'ai effectué des changements de variables parce que le programme comporte plusieurs comparaisons
    voilà le programme que j'ai mis :

    ' programme de comparaison pour B3

    Dim h As Integer, p As Integer, s As Integer, m As Integer

    For h = 5 To 500
    If Feuil74.Cells(h, 1) = Feuil74.Cells(h, 7) Then
    Feuil74.Cells(h, 13) = "VRAI"
    Else
    Feuil74.Cells(h, 13) = "FAUX"
    If Feuil74.Cells(h, 7) = "" Then
    Call Boucle1(5)
    Else
    If Feuil74.Cells(h, 1) = "" Then
    Call Boucle2(5)
    End If
    End If
    End If
    Next h

    End Sub

    Sub Boucle1(ByRef s As Integer)

    Dim Compteur1 As Integer, Compteur2 As Integer

    Compteur1 = 32: Compteur2 = 1
    For m = 7 To 500
    Feuil74.Cells(s, Compteur1) = Feuil13.Cells(m, Compteur2)
    s = s + 1: Compteur1 = (Compteur1 + 1): Compteur2 = (Compteur2 + 1)
    Next m
    End Sub
    '

    Sub Boucle2(ByRef J As Integer)

    Dim Compteur1 As Integer, Compteur2 As Integer

    Compteur1 = 19: Compteur2 = 1
    For p = 3 To 28133
    If Feuil4.Cells(p, 1) = "BERCHID1" Then
    Feuil74.Cells(s, Compteur1) = Feuil4.Cells(p, Compteur2)
    s = s + 1: Compteur1 = (Compteur1 + 1): Compteur2 = (Compteur2 + 1)
    End If
    Next p
    End Sub

    Merci.

    0
  3. Utilisateur anonyme
     
    re :

    La structure me semble bonne, j'ai apporté quelques petites modifications,
    mais l'déal est de tester en mode pas a pas pour trouver l'erreur.

    J'imagine qu'il s'agit d'une erreur de débordement (1004) ?
    Je n'ai pas trouver de balayage supérieur à 32768 mais par
    précaution j'ai converti tous les type en [ Long ]. 

    Option Explicit

Sub Essai()

    ' Dans la routine principal, seul la variable
    ' h a besoin d'être défini en local
    Dim h As Long

    For h = 5 To 500
        If Feuil74.Cells(h, 1) = Feuil74.Cells(h, 7) Then
            Feuil74.Cells(h, 13) = "VRAI"
        Else
            Feuil74.Cells(h, 13) = "FAUX"
            If Feuil74.Cells(h, 7) = "" Then
                Call Boucle1(5)
            Else
                If Feuil74.Cells(h, 1) = "" Then
                    Call Boucle2(5)
                End If
            End If
        End If
    Next h

End Sub
'

Sub Boucle1(ByVal s As Long)
' Ici, s est déclaré à l'intérieur de la déclaration
' de la sous-routine et puisque qu'il n'est pas utilisé
' en retour, j'ai modifié pour ByVal

    Dim M As Long, Compteur1 As Long, Compteur2 As Long

    Compteur1 = 32: Compteur2 = 1
    For M = 7 To 500
        Feuil74.Cells(s, Compteur1) = Feuil13.Cells(M, Compteur2)
        s = s + 1: Compteur1 = (Compteur1 + 1): Compteur2 = (Compteur2 + 1)
    Next M
    
End Sub
'

Sub Boucle2(ByVal J As Long)
' Ici, J est déclaré à l'intérieur de la déclaration
' de la sous-routine et puisque qu'il n'est pas utilisé
' en retour, j'ai modifié pour ByVal

    Dim P As Long, Compteur1 As Long, Compteur2 As Long

    Compteur1 = 19: Compteur2 = 1
    For P = 3 To 28133
        If Feuil4.Cells(P, 1) = "BERCHID1" Then
            Feuil74.Cells(s, Compteur1) = Feuil4.Cells(P, Compteur2)
            s = s + 1: Compteur1 = (Compteur1 + 1): Compteur2 = (Compteur2 + 1)
        End If
    Next P
    
End Sub
'

    Lupin
    0