Discussion :

[Nathan_8569]

Bonjour!
Je ne comprend pas où est le problème dans mon programme. L'objectif est de rechercher (dans la feuille "Feuilledonnées") des valeurs présentes dans la feuille "Feuillegrille".
Puis je souhaiterais que le programme pointe la valeur qui est sur la colonne trouvée et sur la 4ème ligne et qu'il la copie dans la feuille "Feuillerésultats".
La boucle permet de descendre d'une ligne pour réeffectuer la même chose.
Malheureusement, le programme ne me renvois aucune valeur alors que la correspondance est présente dans la recherche Feuillegrille -> Feuilledonnées et qu'il y a des données sur la ligne 4.
Il y a sûrement une erreur quelque part mais je ne la vois pas .

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
 
Sub Traitement()
 
Dim i As Variant
Dim a As Variant
Dim b As Variant
Dim c As Variant
Dim d As Variant
Dim e As Variant
Dim f As Variant
Dim g As Variant
Dim h As Variant
Dim k As Variant
 
Dim ax As Variant
Dim bx As Variant
Dim cx As Variant
Dim dx As Variant
Dim ex As Variant
Dim fx As Variant
Dim gx As Variant
Dim hx As Variant
Dim kx As Variant
 
Dim ay As Variant
Dim by As Variant
Dim cy As Variant
Dim dy As Variant
Dim ey As Variant
Dim fy As Variant
Dim gy As Variant
Dim hy As Variant
Dim ky As Variant
 
Dim NumLigne As Variant
 
Dim celluletrouveea As Range
Dim celluletrouveeb As Range
Dim celluletrouveec As Range
Dim celluletrouveed As Range
Dim celluletrouveee As Range
Dim celluletrouveef As Range
Dim celluletrouveeg As Range
Dim celluletrouveeh As Range
Dim celluletrouveek As Range
 
Dim cola As Variant
Dim colb As Variant
Dim colc As Variant
Dim cold As Variant
Dim cole As Variant
Dim colf As Variant
Dim colg As Variant
Dim colh As Variant
Dim colk As Variant
Dim PlageDeRecherche As Range
Set PlageDeRecherche = Sheets("Feuilledonnées").Rows(1)
NumLigne = 1
 
For i = 6 To 20
 
 a = Sheets("Feuillegrille").Cells(i, 10)
  b = Sheets("Feuillegrille").Cells(i + 1, 10 - 1)
   c = Sheets("Feuillegrille").Cells(i + 1, 10)
    d = Sheets("Feuillegrille").Cells(i + 1, 10 + 1)
     e = Sheets("Feuillegrille").Cells(i, 10 + 1)
      f = Sheets("Feuillegrille").Cells(i - 1, 10 + 1)
       g = Sheets("Feuillegrille").Cells(i - 1, 10)
        h = Sheets("Feuillegrille").Cells(i - 1, 10 - 1)
         k = Sheets("Feuillegrille").Cells(i, 10 - 1)
 Set celluletrouveea = PlageDeRecherche.Find(a, lookat:=xlWhole)
  Set celluletrouveeb = PlageDeRecherche.Find(b, lookat:=xlWhole)
   Set celluletrouveec = PlageDeRecherche.Find(c, lookat:=xlWhole)
    Set celluletrouveed = PlageDeRecherche.Find(d, lookat:=xlWhole)
     Set celluletrouveee = PlageDeRecherche.Find(e, lookat:=xlWhole)
      Set celluletrouveef = PlageDeRecherche.Find(f, lookat:=xlWhole)
       Set celluletrouveeg = PlageDeRecherche.Find(g, lookat:=xlWhole)
        Set celluletrouveeh = PlageDeRecherche.Find(h, lookat:=xlWhole)
         Set celluletrouveek = PlageDeRecherche.Find(k, lookat:=xlWhole)
 cola = celluletrouveea.Column
  colb = celluletrouveeb.Column
   colc = celluletrouveec.Column
    cold = celluletrouveed.Column
     cole = celluletrouveee.Column
      colf = celluletrouveef.Column
       colg = celluletrouveeg.Column
        colh = celluletrouveeh.Column
         colk = celluletrouveek.Column
 ax = Cells(4, cola)
 ay = Cells(4, cola + 1)
  bx = Cells(4, colb)
  by = Cells(4, colb + 1)
   cx = Cells(4, colc)
   cy = Cells(4, colc + 1)
    dx = Cells(4, cold)
    dy = Cells(4, cold + 1)
     ex = Cells(4, cole)
     ey = Cells(4, cole + 1)
      fx = Cells(4, colf)
      fy = Cells(4, colf + 1)
       gx = Cells(4, colg)
       gy = Cells(4, colg + 1)
        hx = Cells(4, colh)
        hy = Cells(4, colh + 1)
         kx = Cells(4, colk)
         ky = Cells(4, colk + 1)
 Sheets("Feuillerésultats").Cells(NumLigne, 1) = ax
 Sheets("Feuillerésultats").Cells(NumLigne, 2) = ay
  Sheets("Feuillerésultats").Cells(NumLigne + 1, 1) = bx
  Sheets("Feuillerésultats").Cells(NumLigne + 1, 2) = by
   Sheets("Feuillerésultats").Cells(NumLigne + 2, 1) = cx
   Sheets("Feuillerésultats").Cells(NumLigne + 2, 2) = cy
    Sheets("Feuillerésultats").Cells(NumLigne + 3, 1) = dx
    Sheets("Feuillerésultats").Cells(NumLigne + 3, 2) = dy
     Sheets("Feuillerésultats").Cells(NumLigne + 4, 1) = ex
     Sheets("Feuillerésultats").Cells(NumLigne + 4, 2) = ey
      Sheets("Feuillerésultats").Cells(NumLigne + 5, 1) = fx
      Sheets("Feuillerésultats").Cells(NumLigne + 5, 2) = fy
       Sheets("Feuillerésultats").Cells(NumLigne + 6, 1) = gx
       Sheets("Feuillerésultats").Cells(NumLigne + 6, 2) = gy
        Sheets("Feuillerésultats").Cells(NumLigne + 7, 1) = hx
        Sheets("Feuillerésultats").Cells(NumLigne + 7, 2) = hy
         Sheets("Feuillerésultats").Cells(NumLigne + 8, 1) = kx
         Sheets("Feuillerésultats").Cells(NumLigne + 8, 2) = ky
 
NumLigne = NumLigne + 9
Next i
End Sub

Merci d'avance de votre aide !

Signé : un noob de programmation

[halaster08]

Bonjour,

Essaye de lancer le programme en mode pas à pas (touche F8), tu pourras vérifier le contenu de tes variables pendant l'éxécution.

[mjpmjp]

bonjour,

Sheets("Feuillegrille").Cells(i, 10) --> c'est ta cellule

tu veux quoi ? de ta cellule...

si c'est sa valeur --> a = Sheets("Feuillegrille").Cells(i, 10).Value.

@+JP

[Overeath]

Bonjour,
Peut être que cela ne répondra pas à ta question mais je vais te proposer quelque chose de beaucoup plus simple : Mettre un nom à tes plages de cellules
Sélection de la plage à analyser/Clic droit/Définir un nom
par la suite, on peut retrouver un code simple :

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
17
 
Sub cherhce()
Dim vale As Long, c As range, nm As Name, y As Long
    vale = 10 ' tu mets la valeur que tu recherches
              ' si c'est un texte, remplace as long par as string
    For Each nm In ActiveWorkbook.Names ' ou le classeur que tu veux, ou bien la feuille que tu veux
        Set c = range(nm.Name).Find(vale, LookIn:=xlValues, lookat:=xlWhole) 'le programme cherche
        If Not c Is Nothing Then
            c.Activate
                While Worksheets("Feuillerésultat").cell(4, y) <> "" ' a chaque fois qu'il trouve , il envoie la valeur à la ligne 4
                    y = y + 1                                          ' mais décalée d'une colonne si la place est deja prise
                Wend
            cell(4, y).Value = c.Value
        End If
    Next nm
    Set c = Nothing
End Sub

Voila comment j'aurai fait à ta place ou en tout cas la façon dont j'aurais procédé et qui est facilement améliorable
Il faut noter que le programme cherche dans toutes les plages qui ont un nom donc il suffit de rajouter un nom à une plage pour qu'il cherche aussi la-bas.
En espérant t'avoir aidé,
Un aspirant à la programmation

[Nathan_8569]

Merci beaucoup à vous, le mode pas à pas m'a permis de comprendre où il manquait une ligne et il manquait effectivement le .Value aussi!
Vous êtes des boss merci encore !

[Nathan_8569]

Mais le problème c'est que j'ai trop de cellules pour les nommées... (environ 300 )

[Overeath]

300 cellules c'est pas mal mais tu peux les nommer paquet par paquet et tu vois qu'une fois cela fait, le code diminue en conséquence
Enfin le mode pas à pas est pas mal non plus