Bonjour à tous,
Merci pour ce forum qui ma servit pour écrire des tous petits programmes.
Par contre, je cale sur celui-ci et j'aurais besoin de vos connaissances.
Objet :
Mon programme vérifie l'égalité des valeurs entre les cellules de la colonne B, si égal descend d'une ligne. Si différent écrit la formule dans la cellule K de la ligne de la dernière égalité.
"=IF(RC[-4]<R[-21]C[-7],""GAP BAISSIER"",""GAP HAUSSIER"")"
dans la cellule K de la ligne de la dernière égalité.
Puis continue ainsi jusqu'à la fin de la plage.
Je voudrais que ma formule compare la 1er ligne colonne B avec la dernière ligne colonne G de chaque groupe d'égalité de la colonne B.
Ce qui n'est pas le cas, à cause de R[-21] qui est une valeur fixe.
Je mets en pièce jointe le fichier excel pour vous aider à comprendre.
Voici le code
Sub Macro11()
Dim Cel1 As Range
Dim Cel2 As Range
Dim Compteur As Integer
Compteur = 1
Set Cel1 = Range("B2:B10000")
Set Cel2 = Range("B2:B10000")
Range("B1").Select
For Each Cel2 In Cel1
If Cel2 <> ActiveCell.Offset(Compteur +
1, 0).Range("A1") Then
Cel2.Offset(0, 9) = "=IF(RC[-4]<R[-21]C[-7],""GAP BAISSIER"",""GAP HAUSSIER"")"
Compteur = Compteur + 1
Else
Compteur = Compteur + 1
On Error GoTo 0
End If
Next Cel2
End Sub
En pièces jointe le fichier modèle.
Par avance merci pour votre aide précieuse.