Find inopérant

Version imprimable

18/10/2014, 21h23
loofok

Find inopérant
Bonjour,

Après avoir parcouru toutes les discussions et essayé les qques solutions proposées de cette rubrique, je vous indique mon problème.
J'ai écrit une macro dans une version antérieure d'excel et au moment de la réutiliser sous excel 2010, cela ne fonctionne plus ! probablement un pb de compatibilité de version : ci-dessous le bout de code essayé :
Code:

1 2 3 For Each rgCel1 In rgTable Set rgData1 = rgData.Find(what:=rgCel1, LookIn:=xlValues, lookAt:=xlWhole) If Not rgData1 Is Nothing Then...
Mon problème est : la variable rgCel1 contient bien une valeur.
Mais au niveau du "if" "rgData1 = nothing" et je m'attendais à récupérer le valeur de rgCel1 pour poursuivre

Il y a longtemps que je n'ai plus pratiqué le VBA dans le texte et votre aide me sera bienvenue
Merci pour cela,
Loof'

Bonjour loofok

Bonjour.

Essaie en redéfinisssant la valeur de tous les paramètres.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set rgTable = Range("C1:C3")
 Set rgData = Columns(1)
 
 For Each rgCel1 In rgTable
 
  Set rFoundCell = rgData.Cells(rgData.Rows.Count, 1)
 
  Set rgData1 = rgData.Find(what:=rgCel1, After:=rFoundCell, _
               LookIn:=xlValues, lookAt:=xlWhole, SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, MatchCase:=False)
 
 If Not rgData1 Is Nothing Then
  Stop
 rgData1.Select
End If
Next

19/10/2014, 17h50
loofok

Bonjour Docmarti,

Merci pour ton aide...c vraiment sympa et ça marche !
J'ai essayé en mettant des plages explicites et rgData.select qui manquait. Ca a marché et après j'ai remis un plage dynamique.
Voilà c'est ok

Encore merci...
ps : désolé, il a manqué un peu de structure dans mon post ! j'y veillerai la prochaine fois..
:P

Loof'