HELP : j'y arrive pas !!!

  • Initiateur de la discussion Alex
  • Date de début
A

Alex

Guest
Je commence tout juste avec les macros et j'aurais besoin de la chose suivante pour mon travail afin de reconcilier des comptes bancaires.

Aidez-moi SVP a creer une macro qui ferait la chose suivante : rechercher si un nombre et de son inverse (25 et -25 par exemple) sont presents dans la colonne F de montableau (sur une plage de F9 a F5000); si cela est le cas -> ecrire la lettre "X" sur la meme ligne que ces 2 nombres dans la colonne I .
Si la macro ne trouve pas un chiffre et son contraire, ne rien faire.

Merci d'avance.

Alex
 
S

STéphane

Guest
essaye cela
Sub test()
x_value = 25
Set x_sheet = ActiveSheet
Set x_column = x_sheet.Columns(1)
Set x_target = x_column.SpecialCells(xlCellTypeConstants, xlNumbers)
Set xx1 = x_target.Find("25", LookIn:=xlValue, MatchCase:=True, lookat:=xlWhole)
Set xx2 = x_target.Find("-" & 25, LookIn:=xlFormulas, MatchCase:=True, lookat:=xlWhole)
Debug.Print xx1.Address
Debug.Print xx2.Address
If Not xx1 Is Nothing And Not xx2 Is Nothing Then _
xx1.Offset(, 1).Value = "X": xx2.Offset(, 1).Value = "X"

End Sub

bye
STéphane
 

Statistiques des forums

Discussions
302 268
Messages
2 001 996
Membres
215 427
dernier inscrit
Chamonix