Discussion :

[rihab92]

Bonsoir tout le monde,

SVP je voulais savoir ou est le problème dans ce code,

J'avais deux macros différentes et je voulais les réunir dans une seule macro pour les insérer dans un seul bouton, mais il y a apparemment un problème qlq part

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
Sub Enregistrer_Prod()
 
Dim c As Range, l As Range
Dim K As Range, N As Range
Dim mois As String, zone As String
 
mois = Sheets("5SProd").Range("B8") ' est la cellule ou est affiché le mois dans la feuille Prod
zone = Sheets("5SProd").Range("B5") ' est la cellule ou est affiché le nom de la zone dans la feuille Prod
 
Set c = Sheets("AuditMensuel").Range("B5:M5").Find(what:=mois, LookIn:=xlValues, LookAt:=xlWhole) '"B5:M5" est la ligne des mois
If c Is Nothing Then
MsgBox ("mois " & mois & "introuvable")
Exit Sub
End If
 
Set l = Sheets("AuditMensuel").Range("A:A").Find(what:=zone, LookIn:=xlValues, LookAt:=xlWhole)
If l Is Nothing Then
MsgBox ("zone " & zone & "introuvable") '"A:A" est la colonne des noms des zones dans la feuille d'audit mensuel
Exit Sub
End If
Sheets("AuditMensuel").Cells(l.Row, c.Column) = Sheets("5SProd").Range("I79") ' est la cellule du résultat d'audit checklist prod
 
Set K = Sheets("AuditMensuelilot").Range("B6:M6").Find(what:=mois, LookIn:=xlValues, LookAt:=xlWhole) '"B5:M5" est la ligne des mois
If K Is Nothing Then
MsgBox ("mois " & mois & "introuvable")
Exit Sub
End If
 
Set M = Sheets("AuditMensuelilot").Range("A:A").Find(what:=zone, LookIn:=xlValues, LookAt:=xlWhole)
If M Is Nothing Then
MsgBox ("zone " & zone & "introuvable")
Exit Sub
End If
Sheets("AuditMensuelilot").Cells(N.Row, K.Column) = Sheets("5SProd").Range("H24") ' est la cellule du résultat
 
End Sub

voilà ce que j'obtiens :

est ce que la macro ne peux pas chercher deux choses en même temps ou quoi exactement ?

Merci d'avance