Bonjour forum
Boujours tout le monde merci de prendre le temps de nous aider nous jeune débutant.
j'ai fait une recherche sur le forum je suis tombé sur sa
Sauf que moi mon tableau est dans une variable excel; et j'ai essayer de trouver une manière mais j'en suis incapable voici mon code
J'aimerait savoir est-ce que ma définition de ma variable fu est t'elle correcte
Et pourquoi mon Set trouve ne fonctionne pas.
dans le find recherche t'il dans toute les données dans mon tableau
merci encore d'avance
Boujours tout le monde merci de prendre le temps de nous aider nous jeune débutant.
j'ai fait une recherche sur le forum je suis tombé sur sa
Sauf que moi mon tableau est dans une variable excel; et j'ai essayer de trouver une manière mais j'en suis incapable voici mon code
Code:
Option Explicit
Option Base 1
Dim LIG, LIG3, VERIFJOB As Long
Dim j, K, L, I, N As Long
Dim Chemin As String
Dim ws, ws2, ws3, ws4, ws5 As Worksheet
Dim c, trouve As Range
Dim Fu As Variant
Dim NoMrp As String
Public LastExec As Long
Sub MACROKeven()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Sheet1").Clear
Sheets("EXECUTE").Delete
Sheets("RAPPORT").Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "EXECUTE"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "RAPPORT"
Application.DisplayAlerts = True
Sheets("Sheet1").Select
Sheets("Sheet1").Cells(1, 1).Select
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = ThisWorkbook.Worksheets("EXECUTE")
Set ws5 = ThisWorkbook.Worksheets("RAPPORT")
Chemin = ThisWorkbook.Path ' même dossier
' Chemin = "D:\keven\désuetude\bd.xls" 'a mettre
Workbooks.Open Chemin & "\fu.xls"
With ActiveWorkbook
With .Worksheets("feuil1")
Set Fu = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value
End With
.Close
End With
LIG = ws.Range("B65536").End(xlUp).Row
LIG3 = 1
With ws2
For I = 1 To LIG
If ws.Cells(I, 1) = "OF:" Then
ws2.Cells(LIG3, 1) = ws.Cells(I, 2) & ws.Cells(I, 3) 'ecrit job + sufixe
ws2.Cells(LIG3, 6) = ws.Cells(I, 5) 'cout total
ws2.Cells(LIG3, 7) = ws.Cells(I, 7) 'lancé
ws2.Cells(LIG3, 8) = ws.Cells(I, 14) 'achevé
If ws2.Cells(LIG3, 7) <> ws2.Cells(LIG3, 8) Or ws2.Cells(LIG3, 8) = 0 And ws2.Cells(LIG3, 6) <> 0 Then
ws2.Rows(LIG3).Interior.ColorIndex = 9
ws2.Cells(LIG3, 9) = 1
VERIFJOB = 1
Else
ws2.Rows(LIG3).Interior.ColorIndex = 4
ws2.Cells(LIG3, 9) = 1
VERIFJOB = 0
End If
LIG3 = LIG3 + 1
Else
If ws.Cells(I, 1) = "Article" Then
ws2.Cells(LIG3, 2) = ws.Cells(I + 1, 1) 'ecrit le no mrp et
ws2.Cells(LIG3, 3) = ws.Cells(I + 1, 3) 'Planifié
ws2.Cells(LIG3, 4) = ws.Cells(I + 1, 4) 'sortie
ws2.Cells(LIG3, 5) = ws.Cells(I + 1, 5) 'equart
ws2.Cells(LIG3, 9) = 0
If VERIFJOB = 1 And ws2.Cells(LIG3, 4) <> 0 Then ws2.Cells(LIG3, 9) = 1
If VERIFJOB = 0 And ws2.Cells(LIG3, 5) <> 0 Then ws2.Cells(LIG3, 9) = 1
NoMrp = ws2.Cells(LIG3, 2).Value ' exemple 113-456-789
Set trouve = Fu.Find(NoMrp, LookIn:=xlValues)
If Not trouve Is Nothing Then
ws2.Rows(LIG3).Interior.ColorIndex = 2
Else
ws2.Rows(LIG3).Interior.ColorIndex = 6
End If
LIG3 = LIG3 + 1
End If
End If
Next
J'aimerait savoir est-ce que ma définition de ma variable fu est t'elle correcte
Et pourquoi mon Set trouve ne fonctionne pas.
dans le find recherche t'il dans toute les données dans mon tableau
merci encore d'avance