Discussion :

[loofok]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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'

[Docmarti]

Bonjour loofok


Bonjour.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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..


Loof'