Discussion :

[Edaine]

Bonjour,

J'ai une macro qui fonctionne très bien dont le code est le suivant,

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
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 !

[gFZT82]

Bonjour Edaine,

Voici une solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    'recherche et affiche un message si valeur absente
    Lign = 10
    For Each Cel In PlageExtrac
        If Application.CountIf(PlageDou, Cel) = 0 Then
            MsgBox "Le produit " & Cel & " est manquant !"
            With FeType
                Lign = Lign + 1
                .Cells(Lign, 3).Value = Cel.Value
            End With
        End If
    Next Cel

Cordialement.

[Edaine]

Oki Merci