Macro de report de valeurs
Bonjour,
J'ai une macro qui fonctionne très bien dont le code est le suivant,
Code:
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
| Sub Chercher()
Dim FeExtrac As Worksheet
Dim FeDou As Worksheet
Dim PlageExtrac As Range
Dim PlageDou As Range
Dim Cel As Range
Dim FeType As Worksheet
Dim Lign As Long
Set FeType = Worksheets("Feuille Type")
Set FeExtrac = Worksheets("Extraction cia flu")
Set FeDou = Worksheets("Douchette")
'plage de valeurs cherchées en feuille "Extrac"
With FeExtrac
Set PlageExtrac = .Range(.[A1], .[A65536].End(xlUp))
End With
'plage de recherche en feuille "Douchette"
With FeDou
Set PlageDou = .Range(.[A1], .[A65536].End(xlUp))
End With
'recherche et affiche un message si valeur absente
For Each Cel In PlageExtrac
If Application.CountIf(PlageDou, Cel) = 0 Then
MsgBox "Le produit " & Cel & " est manquant !"
With FeType
Lign = .Cells(65536, 3).End(xlUp).Row + 1
.Cells(Lign, 3).Value = Cel.Value
End With
End If
Next Cel |
Elle me sert à reporter des numéros manquants
Le problème c'est que j'aimerai qu'elle commence à reporter mes valeurs en C11 :s
Est-ce que c'est possible ?
Ou dois-je user d'un stragème pour ça ? x)
Merci d'avance !
