[VBA-E] Comparaison de donnée + Msgbox

**GardienDuCode** · 28/02/2007, 10h24

Bonjour tous le monde,

J'ai un gros problème que je n'arrive pas à résoudre

! j'ai sur une sheet une base de donné qui contient dans la colonne C le nom de l'affaire!! Dans une autre sheet "Budget" j'ai dans la colonne D tous les nom d'affaire que le contrôleur de gestion à taper manuellement!!!
Je voudrais tous simplement avec une macro comparer ces deux colonnes et ensuite que le programme m'envoie un msgbox lorqu'il ne trouve pas le nom de l'affaire dans l'onglet budget!
J'ai éssayé toute la journée hier mais vu que je suis un novice en vba, je pense que j'ai fait une erreur dans ma programmation!!

j'ai surement un probléme avec mes boucles

J'espére que j'ai bien expliquer mon probléme!! Au pire voila mon 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
   Sheets("DonnéBudget").Activate
    Cells(1).Select
    Selection.CurrentRegion.Select
    Set basebudget = Selection
 
    Sheets("BudgetCoûts").Activate
    range("a5").Select
    Selection.CurrentRegion.Select
    Set recueilbudget = Selection
 
'Recherche les derniéres cellules non vide sur la colonne 1
lignemax2 = Sheets("BudgetCoûts").Cells(65527, 1).End(xlUp).Row
lignemax = Sheets("DonnéBudget").Cells(65527, 1).End(xlUp).Row
 
'boucle de recherche des noms d'affaire sur l'onglet budgetCoûts
 
For a = 2 To lignemax
    chercheerreur = basebudget.Columns(3).Cells(a)
'si le nom d'affaire est vide alors message d'erreur
            If chercheerreur = "" Then
            MsgBox "Attention, il manque des données sur la colonne C de l'onglet DonnéBudget, allez voir à la ligne " & a, vbExclamation + vbOKOnly, "Message d'avertissement"
            End If
Next a
 
'réinitialisation des variables
i = 0
r = 0
a = 0
'message pour prévenir que le nom de l'affaire n'est pas encore créer!!         
For i = 1 To basebudget.Columns(1).Cells.Count
   monaffairebudget = basebudget.Columns(3).Cells(i + 1).Value
 
 
         For r = r To recueilbudget.Columns(1).Cells.Count
         chercheerreur = recueilbudget.Columns(4).Cells(r + 1)
            Do
            i = i
            r = r + 1
             'MsgBox "nombase" & monaffairebudget
             'MsgBox "nombrecueil" & chercheerreur
             If chercheerreur = monaffairebudget Then
             'MsgBox "GREAT"
             GoTo suite2
             ElseIf chercheerreur = Mid(monaffairebudget, 2) Then
             'MsgBox "GREAT"
             GoTo suite2
             ElseIf chercheerreur = "" Then
             'MsgBox "GREAT"
             GoTo suite2
             Else
             MsgBox "Le nom de l'affaire est inconnu, veuillez la créer! Cette erreur dans l'onglet budgetdonné fait référence à la ligne " & i, vbExclamation, "Message d'avertissement"
             End If
             Loop While chercheerreur = monaffairebudget
 
         Next r
suite2:
Next i

je vous remercie d'avance pour votre aide car moi cette macro m'a donné des maux de tête

oui je suis obligé de faire en vba car c'est une base de donné que l'on actualise tous les mois!!! C'est ça le probléme!! Le dossier de donné fait pour l'instand 300 lignes mais je n'ai que les données de janvier

**helios77** · 28/02/2007, 11h30

Ceci devrait plutôt bien marcher

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
 
Dim i, j As Integer
Dim lignemax, lignemax2 As Long
Dim trouve As Boolean
i = 1
 
lignemax2 = Sheets("BudgetCoûts").Cells(65527, 3).End(xlUp).Row
lignemax = Sheets("DonnéBudget").Cells(65527, 4).End(xlUp).Row
 
While i <= lignemax2
    j = 1
    trouve = False
    While j <= lignemax
        If (Sheets("DonnéBudget").Cells(j, 4).Value = Sheets("BudgetCoûts").Cells(i, 3).Value) Then trouve = True
        j = j + 1
    Wend
    If (trouve = False) Then
        MsgBox "Je n'ai pas trouve " & Sheets("BudgetCoûts").Cells(i, 3).Value & " dans la feuille DonneBudget. Voir ligne " & i & " de BudgetCout"
        i = lignemax2 + 1
    Else
        i = i + 1
    End If
Wend

Comme j'ai rien compris dans quelle feuille était ta base de données et quelle feuille était mise à jour j'ai fait comme çà :
Lecture ligne à ligne de la colonne 3 de la feuille BudgetCouts puis boucle sur les lignes de lacolonne 4 de la feuille DonneBudget
Si je retrouve pas l'affaire alors je sors en indiquant le message d'erreur

==> j'ai supposé la base dans la feuille BudgetCout et la manuelle comme étant DonnesBudget

Si c'est l"invers, i lte rete à réadapte un peu le code

Sinon évite lesaccents dans les nms de feuilles, c'est toujours un peu périlleux

**GardienDuCode** · 28/02/2007, 12h05

merci je v éssayer ça tout de suite!!!

En fait c'est l'inverse (il faut dire que mon explication était pas top) mais c'est pas grave je vais faire les modifs et je vous si ça fonctionne

j'ai éssayé mais ça ne fonctionne pas!! Le msgbox me dit que l'affaire de la ligne 1 n'existe pas alors qu'elle existe

En fait premiére ligne de donnébudget sert à me donner la dénomination de chaque colonne!
Vu que j'ai pas tous compris à ton programme, je l'ai modifié car comme je te l'ai dit c'est donnébudget la base et non budgetcoûts, j'ai alors peut être fait une erreur en la modifiant

de plus ça rame quand je mets en marche la macro

Voici ton code helios77 que j'ai modifié!! Est que mes modifications sont bonnes?

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
Dim i, j As Integer
Dim lignemax, lignemax2 As Long
Dim trouve As Boolean
i = 1
 
lignemax2 = Sheets("BudgetCoûts").Cells(65527, 5).End(xlUp).Row
lignemax = Sheets("DonnéBudget").Cells(65527, 2).End(xlUp).Row
 
While i <= lignemax
    j = 1
    trouve = False
    While j <= lignemax2
        If (Sheets("BudgetCoûts").Cells(j, 4).Value = Sheets("DonnéBudget").Cells(i, 3).Value) Then trouve = True
        j = j + 1
    Wend
    If (trouve = False) Then
        MsgBox "Je n'ai pas trouve " & Sheets("DonnéBudget").Cells(i, 3).Value & " dans la feuille DonneBudget. Voir ligne " & i & " de DonnéBudget"
        i = lignemax2 + 1
    Else
        i = i + 1
    End If
Wend

**ouskel'n'or** · 28/02/2007, 12h09

Essaie ça

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
Sub comparer()
Set F1 = Worksheets("BudgetCoûts")
Set F2 = Worksheets("DonnéBudget")
    lignemax = F1.Range("C1").SpecialCells(xlCellTypeLastCell).Row
 
    For i = 2 To lignemax
        LeNom = F1.Cells(i, 3)
        With F2.Range("D:D")
                    Set c = .Find(LeNom, LookIn:=xlValues)
        End With
        If Not c Is Nothing Then
            Else
            MsgBox LeNom & " manquant"
        End If
    Next
End Sub

A+

PS - Et balise ton code Tu le sélectionnes, tu fais un clic sur l'icone # et c'est tout

Edit
Ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set F1 = Nothing
Set F2 = Nothing

avant End Sub

**GardienDuCode** · 28/02/2007, 12h14

ca rame un peu c'est normal, tu boucles sur 300 lignes pour lesquelle tu va vérifier dans 300 ou 500 ou 1000 autre lignes si elles existent
donc tu fais lignemax * lignemax2 boucles

Si la ligne 1 est le nom de ta colonne, initialise i et/ou j avec la ligne ou c'est censé commencé

j'ai vu aussi que le endXlup est fait sur les colonnes 5 et 2
Moi dans mon code, je travaille sur les colonnes 4 et 3 ==> soit j'ai raison toit tu as raison
Mais si j'ai raison, en modifiant ton code , tu as peut être lignemax = 65536 et lignemax2 = 655536

==> 65536 * 655536 opérations =+> normal que çà rame

en fait g un autre petit souci!!

des fois j'ai dans basedonné un caractére en trop par rapport a l'onglet budgetcout!!!
Donc avec le programme de helios le msgbox va me dire que l'affaire n'éxiste pas alors qu'elle existe

Je sais que je peux utiliser mid(???,2) mais ça fonctionne pas avec ça!!
Bon j'ai du mal à m'exprimer correctement donc voila ce que j'ai fait!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        If (Sheets("BudgetCoûts").Cells(j, 4).Value = Sheets("DonnéBudget").Cells(i + 1, 3).Value) Then trouve = True
        j = j + 1
        If (Sheets("BudgetCoûts").Cells(j, 4).Value = Sheets("DonnéBudget").Mid(Cells(i + 1, 3), 2).Value) Then trouve = True
        j = j + 1
    Wend

ensuite c la suite de helios (en fait merci beaucoup

)

la le mid même modifier a ton format ne fonctionne pas!!

Il y a un message d'erreur!!

propriété ou méthode non géré par cet objet

Si quelqu'un connais la solution !!!!!!

excuse moi je suis vraiment une buse des fois

Ton programme marche du feu de dieu et en plus ça rame pas!!!!!!

Trop balése, je te remercie vraiment helios!!

Chapeau et merci

ouai je sais pas non plus, je me suis planté

en fait g un autre petit souci!!

des fois j'ai dans basedonné un caractére en trop par rapport a l'onglet budgetcout!!!
Donc avec le programme de helios le msgbox va me dire que l'affaire n'éxiste pas alors qu'elle existe

Je sais que je peux utiliser mid(???,2) mais ça fonctionne pas avec ça!!
Bon j'ai du mal à m'exprimer correctement donc voila ce que j'ai fait!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        If (Sheets("BudgetCoûts").Cells(j, 4).Value = Sheets("DonnéBudget").Cells(i + 1, 3).Value) Then trouve = True
        j = j + 1
        If (Sheets("BudgetCoûts").Cells(j, 4).Value = Sheets("DonnéBudget").Mid(Cells(i + 1, 3), 2).Value) Then trouve = True
        j = j + 1
    Wend

ensuite c la suite de helios (en fait merci beaucoup

)

**helios77** · 28/02/2007, 12h51

Pour l'utilisation de Mid
ce n'est pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If (Sheets("BudgetCoûts").Cells(j, 4).Value = Sheets("DonnéBudget").Mid(Cells(i + 1, 3), 2).Value) Then trouve = True

mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If (Sheets("BudgetCoûts").Cells(j, 4).Value = Mid(Sheets("DonnéBudget").Cells(i + 1, 3).Value),2) Then trouve = True

tu peux aussi regrouper les 2 ligne en une seule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
If ((Sheets("BudgetCoûts").Cells(j, 4).Value = Sheets("DonnéBudget").Cells(i + 1, 3).Value) Or (Sheets("BudgetCoûts").Cells(j, 4).Value = Sheets("DonnéBudget").Mid(Cells(i + 1, 3), 2).Value)) Then trouve = True
j = j + 1