Discussion :

[fzayoubi]

Bonjour,

j'essaie de chercher une date dans un onglet (réception) et le mettre dans une cellule dans l'onglet (commande d'achat) ou dans l'onglet (commande transfert)

mais une fois sur 2 ma macro pour cause erreur incompatibilité de type. pourtant je me suis assurée que toutes les cellules sont en format date t ça ne marche toujours pas.

Voici mon code :

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
Sub export_composant()
 
Application.ScreenUpdating = False
Dim recep As Date
i = 5
While ThisWorkbook.Worksheets("Réception").Range("A" & i) <> ""
 
   If Worksheets("Réception").Range("A" & i) = "853005" And Worksheets("Réception").Range("A" & i).Font.Bold = False Then
 
                If Worksheets("Réception").Range("C" & i) = "853001" Then
 
                clé = Range("A" & i) & Range("N" & i) & Range("I" & i)
                l = Application.Match(clé, Worksheets("Commande Transfert").Range("J2:J1000"), 0) 'chercher la clé dans les commandes transfert
                recep = Worksheets("Réception").Range("E" & i)
                Worksheets("Commande Transfert").Range("H" & l) = recep 'date recep physique pluguer dans cmd transfert
                nom_onglet = Left(Worksheets("Commande Transfert").Range("B" & l), 39)
                code = Worksheets("Commande Transfert").Range("D" & l)
                a = Application.Match(code, Worksheets(nom_onglet).Range("A1:A36"), 0)
                Worksheets(nom_onglet).Range("O" & a) = Worksheets("Commande Transfert").Range("I" & l) 'à verifier pourquoi il plug pas
                Worksheets("Réception").Range("A" & i).Font.Bold = True
 
                Else
 
                clé = Worksheets("Réception").Range("D" & i) & Worksheets("Réception").Range("N" & i) 'cmd fournisseur + réf
                a = Worksheets("Réception").Range("E" & i) ' date recep physique
                Worksheets("Réception").Range("A" & i).Font.Bold = True
                    b = 2
                    While ThisWorkbook.Worksheets("commande achat").Range("N" & b) <> "" 'clé de recherche
 
                        If Worksheets("commande achat").Range("N" & b) = clé Then
                            Worksheets("commande achat").Range("L" & b) = a 'date de recep physique pluguer
                            nom_onglet = Left(Worksheets("commande achat").Range("B" & b), 39)
                            code = Worksheets("commande achat").Range("F" & b)
                            l = Application.Match(code, Worksheets(nom_onglet).Range("A1:A36"), 0)
                            Worksheets(nom_onglet).Range("O" & l) = "ok"
 
 
                        End If
 
                    b = b + 1
                    Wend
 
                End If
 
 
    End If
 
i = i + 1
 
Wend
 
End Sub

Merci pour votre aide

[Menhir]

mais une fois sur 2 ma macro pour cause erreur incompatibilité de type.

Quelle ligne de code est désignée par le débugage ?

[fzayoubi]

Quelle ligne de code est désignée par le débugage ?

c'est la ligne 15
Pourtant c'est bien en format date

[Menhir]

Remplace tes lignes 14 et 15 par :

Code :

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

Worksheets("Commande Transfert").Range("H" & l) = Worksheets("Réception").Range("E" & i)

[fzayoubi]

Remplace tes lignes 14 et 15 par :

Code :

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

Worksheets("Commande Transfert").Range("H" & l) = Worksheets("Réception").Range("E" & i)

ça marche !!
Merciii !