Discussion :

[Clipper24]

Bonjour à tous,

Débutant en VBA, je suis un perdu pour programmer ça, donc j'aurais besoin de votre aide pour la requête suivante..

J'ai deux grilles de prix et je dois pouvoir vérifier que les prix sur la grille de tarif 2 soient inférieurs d'au moins 1 % à ceux de la grille de tarif 1.

Les deux grilles sont identiques en termes de nombre de lignes et de colonnes.
Un premier message m'inviterait à sélectionner les deux plages de cellules à comparer.

En gros le test doit donc pouvoir vérifier le prix de la cellule B2 avec le prix de la cellule B9, puis C2 avec C9, D2 avec D9,etc..

En cas d'échec du test, j'aimerais qu'un message me prévienne et m'indique l'adresse de la/les cellule(s) concernées.

Voilà... j'espère que c'est un peu clair et surtout faisable ....
je mets pour exemple un fichier joint..

Merci d'avance pour votre aide .

Clipper

[delphine35]

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
Sub main()
 
With Worksheets("BATZ SUR MER")
 
    Nb_col = .Cells(2, 2).End(xlToRight).Column + 1
 
 
    For j = 2 To 5
        For i = 2 To Nb_col
 
            cellule1 = .Cells(j, i).Value
            cellule2 = .Cells(j + 7, i).Value
            cellule3 = cellule2 + (cellule2 * 1 / 100)
 
            If cellule3 >= cellule1 Then
                MsgBox ("Le prix du " & .Cells(j, 1).Value & " en colonne " & i & " n'est pas correct, il devrait etre supérieur à " & cellule3)
            End If
 
        Next i
    Next j
End With
 
End Sub

[Clipper24]

C'est tout à fait ce que je voulais mais maintenant j'aimerais pouvoir sélectionner les deux zones à comparer (qui sont de même format, c'est à dire même nombre de lignes et de colonnes). Comme cela je pourrais utiliser cette macro avec plusieurs fichiers dont les tableaux sont à des emplacements différents.

Voili voilou..

J'abuse un peu ??

MERKI beaucoup

Je te retourne le fichier avec quelques commentaires.

Merci à toi.