Valeur réelle de Set Rg

Valeur réelle de Set Rg - VB/VBA/VBS - Programmation

Marsh Posté le 02-11-2012 à 16:56:04    

Bonjour,
 
Dans un programme VBA, j'ai:
 
With Worksheets("IDF" ).Range("A3:A300" )
    Set Rg = .Find(LiJ1, LookIn:=xlValues)
End With
 
Mon problème: je recherche la valeur LiJ1 qui est égale à "3480" dans la feuille "IDF" dans la colonne "A3:A300"
Normalement la valeur LiJ1="3480" n'est pas dans("IDF! A3:A300" ), Donc Rg devrait être égal à "Nothing"
Dans ("IDF! A3:A300" ) il y a une cellule qui contient "13480", et bien Rg prend cette valeur.
Comment faire pour que Rg ne trouve que la valeur réelle et non la valeur approchée.
 
Merci

Reply

Marsh Posté le 02-11-2012 à 16:56:04   

Reply

Marsh Posté le 02-11-2012 à 17:36:22    

Bonjour,
 
Essaie en renseignant le paramètre matchcase :
 
Set Rg = .Find(LiJ1, LookIn:=xlValues, matchcase=true)

Reply

Marsh Posté le 02-11-2012 à 17:57:12    

Merci takama13, mais ça ne marche pas.

Reply

Marsh Posté le 02-11-2012 à 18:30:20    

oops, j'ai oublié les ":"
Tu les as mis ?
 
Set Rg = .Find(LiJ1, LookIn:=xlValues, matchcase:=true)

Reply

Marsh Posté le 02-11-2012 à 18:37:26    

ce n'est pas ça... Rg ne prend pas la valeur "Nothing" il prend la valeur13480 alors que LiJ1=3480    
Merci d'avoir essayé.

Reply

Marsh Posté le 02-11-2012 à 18:47:15    

rajoute lookat:=xlwhole

Reply

Marsh Posté le 03-11-2012 à 09:30:41    

BRAVO takama13, cette fois ça marche.
Grand merci.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed