Pb de boucle

[Paul]

Bonjour,

Cette macro ci dessous me permet de selectionner les valeurs de la feuille "weight" qui ne figurent pas dans la liste de la feuille "list MSCI", et de les envoyer dans la feuille attribution totale.

cette macro pourtant ne fonctionne pas tres bien: elle "range" bien les valeurs que je recherche dans la feuille "attribution total" mais continue apres en faisant n importe quoi!

que se passe t il?

merci beaucoup pour votre aide



Sub sele()
For Each cel In Sheets("weight").Range("a7:a91")
Set absent = Sheets("list msci").Range("a6:a379").Find(cel, LookIn:=xlValue)
'Cellule = Cel.Address(RowAbsolute:=False, ColumnAbsolute:=False)
If absent Is Nothing Then
Sheets("attribution total").Range("N6").Offset(i, 0).Value = cel

i = i + 1
End If
Next
End Sub

 

[@+Thierry]

Bonjour Paul, le Forum

J'ai fait quelques modifs qui consistent à prendre soin de déclarer les Variables.

Option Explicit '<<<<< En haut du module Oblige à déclarer les Variables !!!

Sub Searching()
Dim Absent As Range, Cel As Range
Dim i As Byte '<<< Si moins de 256 cellules à scanner en "Weight"

&nbsp;&nbsp;For Each Cel In Sheets("weight").Range("a7:a91")
&nbsp;&nbsp;&nbsp;&nbsp;Set Absent = Sheets("list msci").Range("a6:a379").Find(Cel, LookIn:=xlValue)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Absent Is Nothing Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Sheets("attribution total").Range("N6").Offset(i, 0).Value = Cel
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;i = i + 1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If
&nbsp;&nbsp;Next
End Sub

Je ne vois pas de problème de plus, fais les tests et dis nous...

Bonne Journée
@+Thierry

 

[paul]

Merci beaucoup thierry!

ca marche du tonnerre!