Tri

[JJ]

Bonjour,
J'ai une feuille excel avec 2 colonnes A et B de nombres (différents et non triés par ordre croissant)
Qui peut m'aider a écrire une petite macro qui me 'balayerait' cette feuille en me mettant en gras ou couleur (ou autre..) les nombres de A qui sont aussi présents dans la colonne B
Merci
a+
JJ

 

[@Bobby]

Voila la macro met en Gras et rouge les chiffres qu'elle trouve dans la colonne B

Sub cherche_number()

Dim x As Integer
x = 2

Do While Cells(x, 'A') <> ''

Dim u

On Error GoTo err
u = Application.WorksheetFunction.VLookup(Cells(x, 'A'), Range('B1:B100'), 1, False)

If u <> '' Then
Cells(x, 'A').Select
With Selection.Font
.Bold = True
.ColorIndex = 3
End With
End If

x = x + 1

Loop

Exit Sub

err:
x = x + 1
u = ''
Resume Next


End Sub


Bon courrage

Message édité par: @Bobby, à: 20/10/2005 12:45

 

[Jocelyn]

Bonjour le Forum,
Bonjour jj, @Bobby,

voila un essai sans passer par les macro avec juste une Mise en Forme Conditionnelle. (au cas puisqu'il y a déja une macro)

Jocelyn [file name=jj.zip size=1546]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/jj.zip[/file]

 

[JJ]

merci pour vos solutions je teste ce we et vous dirai
merci encore
JJ

 

[jj]

Re bonsoir je pense a quelque chose, la valeur du nombre, si j'ai 300 en colonne A et quelque part 0300 en col B , il va me dire OK et mettre en gras pourtant les nombres ne sont pas identiques car leur format est différent non?
a+

 

[@Bobby]

Cher Jj

Oui mais c'est juste un problème d'affichage. 300 = 0300 ou 00300 cela reste 300 bien

Pourquoi ne pas mettre tout dans le même format?

 

[JJ]

Bonjour, je vais mettre le même format effectivement.
La macro marche pas, excel met un message d'erreur refuse worksheet fonction vlookup, impossible de la faire fonctionner?
a+
Merci

 

[JJ]

Bonsoir le message d'erreur exact est erreur 1004 Impossible de lire la propriété Vlookup de la classe WorksheetFunction??
que faire? merci
BonWE
JJ