voici mon code
Private Declare Function FindWindowA Lib 'User32' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib 'User32' (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib 'User32' (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Option Explicit
Dim monlabel As String
Private Sub TextBox1_Change()
Me.Label15.Caption = monlabel & Me.TextBox1.Value
End Sub
Private Sub TextBox1_Enter()
monlabel = Me.Label15.Caption
End Sub
Private Sub TextBox2_Change()
Me.Label15.Caption = monlabel & Me.TextBox2.Value
End Sub
Private Sub TextBox2_Enter()
monlabel = Me.Label15.Caption
End Sub
Private Sub CommandButton1_Click()
feuille_saisie_cartouche.CommandButton4.Visible = False
feuille_saisie_equi_out_spe_op1.CommandButton4.Visible = False
feuille_saisie_equi_out_spe_op2.CommandButton4.Visible = False
feuille_saisie_equi_out_spe_op3.CommandButton4.Visible = False
feuille_saisie_equip_mach_op1.CommandButton4.Visible = False
feuille_saisie_equip_mach_op2.CommandButton4.Visible = False
feuille_saisie_equip_mach_op3.CommandButton4.Visible = False
feuille_saisie_out_coup_op1.CommandButton4.Visible = False
feuille_saisie_out_coup_op2.CommandButton4.Visible = False
feuille_saisie_out_coup_op3.CommandButton4.Visible = False
feuille_saisie_cond_coup_op1.CommandButton4.Visible = False
feuille_saisie_condcoup_op2.CommandButton4.Visible = False
feuille_saisie_cond_coup_op3.CommandButton4.Visible = False
feuille_saisie_controle_op1.CommandButton4.Visible = False
feuille_saisie_controle_op2.CommandButton4.Visible = False
feuille_saisie_controle_op3.CommandButton4.Visible = False
Dim Cell As Range 'Déclaration de Variable Object de Type Range (Plage de Cellule(s))
Dim Plage As Range ' Idem
Dim L As Long ' Déclaration de Variable de Type Numérique de -32,768 à 32,767
With Sheets('base cartouche&robot') ' La Feuille Cible 'With' (tout ce qui suit avec un '.')
L = .Range('A65536').End(xlUp).Row ' On trouve la dernière cellule non vide
' en partant du bas de la colonne 'A'
Set Plage = .Range('A10:A' & L) ' Définition dynamique de la Plage de Cellule par creation d'Objet (Set)
End With ' Fin de Avec
'Lancement d'un Boucle For Each (Pour Chaque Item Contenu dans une Collection)
For Each Cell In Plage 'Pour chaque Cellule dans la Plage donc ;-)
'Début de Condition SI.
'Si la Condition est Valeur de Cellule = Valeur de TextBox
If Cell.Value = Label15.Caption Then
'Alors :
feuille_saisie_cartouche.reference_usinee = TextBox1.Value 'La TextBox2 prend la valeur de la Cellule trouvée (Cell)
feuille_saisie_cartouche.reference_brute = Cell.Offset(0, 3).Value 'La TextBox3 prend la Valeur de la celulle décalée de 0 Ligne et 1 Colonne
feuille_saisie_cartouche.code_mat = Cell.Offset(0, 4).Value
feuille_saisie_cartouche.plan_surv = Cell.Offset(0, 5).Value
feuille_saisie_cartouche.indice_pl = Cell.Offset(0, 6).Value
feuille_saisie_cartouche.indice_gam = Cell.Offset(0, 7).Value
feuille_saisie_cartouche.ComboBox1 = Cell.Offset(0, 8).Value
feuille_saisie_cartouche.ComboBox2 = Cell.Offset(0, 9).Value
feuille_saisie_cartouche.piece_code = Cell.Offset(0, 11).Value
feuille_saisie_cartouche.pince_1_reglage = Cell.Offset(0, 13).Value
feuille_saisie_cartouche.pince_2_reglage = Cell.Offset(0, 14).Value
feuille_saisie_cartouche.numero_enregistrement = Cell.Offset(0, 16).Value
feuille_saisie_cartouche.rep_date = Cell.Offset(0, 17).Value
feuille_saisie_cartouche.num_indice = Cell.Offset(0, 18).Value
feuille_saisie_cartouche.rep_par = Cell.Offset(0, 19).Value
feuille_saisie_cartouche.rep_designations = Cell.Offset(0, 20).Value
feuille_saisie_cartouche.rep_date_creation = Cell.Offset(0, 21).Value
feuille_saisie_cartouche.rep_emetteur = Cell.Offset(0, 22).Value
feuille_saisie_cartouche.rep_remarques = Cell.Offset(0, 23).Value
If Cell.Offset(0, 10).Value = 'CU1' Then feuille_saisie_cartouche.cu1.Value = True
If Cell.Offset(0, 10).Value = 'CU2' Then feuille_saisie_cartouche.cu2.Value = True
If Cell.Offset(0, 10).Value = 'CU3' Then feuille_saisie_cartouche.cu3.Value = True
If Cell.Offset(0, 10).Value = 'CU4' Then feuille_saisie_cartouche.cu4.Value = True
If Cell.Offset(0, 10).Value = 'CU5' Then feuille_saisie_cartouche.cu5.Value = True
If Cell.Offset(0, 10).Value = 'CU6' Then feuille_saisie_cartouche.cu6.Value = True
If Cell.Offset(0, 10).Value = 'CU7' Then feuille_saisie_cartouche.cu7.Value = True
If Cell.Offset(0, 10).Value = 'CU8' Then feuille_saisie_cartouche.cu8.Value = True
If Cell.Offset(0, 10).Value = 'CU9' Then feuille_saisie_cartouche.cu9.Value = True
If Cell.Offset(0, 10).Value = 'DDH' Then feuille_saisie_cartouche.ddh.Value = True
Exit For 'Sortie de la Boucle, car la condition est remplie
End If 'Fin de la Condition
'Passage à la Prochaine Cellule de la Plage (si on est pas Sorti pas Exit For)
Next Cell
With Sheets('base op 1 (operatoire)') ' La Feuille Cible 'With' (tout ce qui suit avec un '.')
L = .Range('A65536').End(xlUp).Row ' On trouve la dernière cellule non vide
' en partant du bas de la colonne 'A'
Set Plage = .Range('A10:A' & L) ' Définition dynamique de la Plage de Cellule par creation d'Objet (Set)
End With ' Fin de Avec
'Lancement d'un Boucle For Each (Pour Chaque Item Contenu dans une Collection)
For Each Cell In Plage 'Pour chaque Cellule dans la Plage donc ;-)
'Début de Condition SI.
'Si la Condition est Valeur de Cellule = Valeur de TextBox
If Cell.Value = Label15.Caption Then
'Alors :
feuille_saisie_cartouche.reference_usinee = TextBox1.Value 'La TextBox2 prend la valeur de la Cellule trouvée (Cell)
feuille_saisie_cartouche.TextBox4 = Cell.Offset(0, 4).Value '
feuille_saisie_cartouche.TextBox6 = Cell.Offset(0, 5).Value '
feuille_saisie_cartouche.TextBox5 = Cell.Offset(0, 6).Value '
feuille_saisie_equi_out_spe_op1.designation_A = Cell.Offset(0, 7).Value
feuille_saisie_equi_out_spe_op1.num_plan_A = Cell.Offset(0, 8).Value
feuille_saisie_equi_out_spe_op1.rep_A = Cell.Offset(0, 9).Value
feuille_saisie_equi_out_spe_op1.directive_A = Cell.Offset(0, 10).Value
feuille_saisie_equi_out_spe_op1.designation_B = Cell.Offset(0, 11).Value
feuille_saisie_equi_out_spe_op1.num_plan_B = Cell.Offset(0, 12).Value
feuille_saisie_equi_out_spe_op1.rep_B = Cell.Offset(0, 13).Value
feuille_saisie_equi_out_spe_op1.directive_B = Cell.Offset(0, 14).Value
feuille_saisie_equi_out_spe_op1.designation_C = Cell.Offset(0, 15).Value
feuille_saisie_equi_out_spe_op1.num_plan_C = Cell.Offset(0, 16).Value
feuille_saisie_equi_out_spe_op1.rep_C = Cell.Offset(0, 17).Value
feuille_saisie_equi_out_spe_op1.directive_C = Cell.Offset(0, 18).Value
feuille_saisie_equi_out_spe_op1.designation_D = Cell.Offset(0, 19).Value
feuille_saisie_equi_out_spe_op1.num_plan_D = Cell.Offset(0, 20).Value
feuille_saisie_equi_out_spe_op1.rep_D = Cell.Offset(0, 21).Value
feuille_saisie_equi_out_spe_op1.directive_D = Cell.Offset(0, 22).Value
feuille_saisie_equi_out_spe_op1.designation_E = Cell.Offset(0, 23).Value
feuille_saisie_equi_out_spe_op1.num_plan_E = Cell.Offset(0, 24).Value
feuille_saisie_equi_out_spe_op1.rep_E = Cell.Offset(0, 25).Value
feuille_saisie_equi_out_spe_op1.directive_e = Cell.Offset(0, 26).Value
feuille_saisie_equi_out_spe_op1.designation_F = Cell.Offset(0, 27).Value
feuille_saisie_equi_out_spe_op1.num_plan_F = Cell.Offset(0, 28).Value
feuille_saisie_equi_out_spe_op1.rep_F = Cell.Offset(0, 29).Value
feuille_saisie_equi_out_spe_op1.directive_F = Cell.Offset(0, 30).Value
feuille_saisie_equi_out_spe_op1.designation_G = Cell.Offset(0, 31).Value
feuille_saisie_equi_out_spe_op1.num_plan_G = Cell.Offset(0, 32).Value
feuille_saisie_equi_out_spe_op1.rep_G = Cell.Offset(0, 33).Value
feuille_saisie_equi_out_spe_op1.directive_G = Cell.Offset(0, 34).Value
feuille_saisie_equi_out_spe_op1.designation_H = Cell.Offset(0, 35).Value
feuille_saisie_equi_out_spe_op1.num_plan_H = Cell.Offset(0, 36).Value
feuille_saisie_equi_out_spe_op1.rep_H = Cell.Offset(0, 37).Value
feuille_saisie_equi_out_spe_op1.directive_H = Cell.Offset(0, 38).Value
feuille_saisie_equi_out_spe_op1.designation_I = Cell.Offset(0, 39).Value
feuille_saisie_equi_out_spe_op1.num_plan_I = Cell.Offset(0, 40).Value
feuille_saisie_equi_out_spe_op1.rep_I = Cell.Offset(0, 41).Value
feuille_saisie_equi_out_spe_op1.directive_I = Cell.Offset(0, 42).Value
feuille_saisie_equi_out_spe_op1.designation_J = Cell.Offset(0, 43).Value
feuille_saisie_equi_out_spe_op1.num_plan_J = Cell.Offset(0, 44).Value
feuille_saisie_equi_out_spe_op1.rep_J = Cell.Offset(0, 45).Value
feuille_saisie_equi_out_spe_op1.directive_J = Cell.Offset(0, 46).Value
feuille_saisie_equi_out_spe_op1.designation_K = Cell.Offset(0, 47).Value
feuille_saisie_equi_out_spe_op1.num_plan_K = Cell.Offset(0, 48).Value
feuille_saisie_equi_out_spe_op1.rep_K = Cell.Offset(0, 49).Value
feuille_saisie_equi_out_spe_op1.directive_K = Cell.Offset(0, 50).Value
feuille_saisie_equi_out_spe_op1.designation_L = Cell.Offset(0, 51).Value
feuille_saisie_equi_out_spe_op1.num_plan_L = Cell.Offset(0, 52).Value
feuille_saisie_equi_out_spe_op1.rep_L = Cell.Offset(0, 53).Value
feuille_saisie_equi_out_spe_op1.directive_L = Cell.Offset(0, 54).Value
feuille_saisie_equip_mach_op1.designation_A = Cell.Offset(0, 55).Value
feuille_saisie_equip_mach_op1.num_plan_A = Cell.Offset(0, 56).Value
feuille_saisie_equip_mach_op1.rep_A = Cell.Offset(0, 57).Value
feuille_saisie_equip_mach_op1.directive_A = Cell.Offset(0, 58).Value
feuille_saisie_equip_mach_op1.designation_B = Cell.Offset(0, 59).Value
feuille_saisie_equip_mach_op1.num_plan_B = Cell.Offset(0, 60).Value
feuille_saisie_equip_mach_op1.rep_B = Cell.Offset(0, 61).Value
feuille_saisie_equip_mach_op1.directive_B = Cell.Offset(0, 62).Value
feuille_saisie_equip_mach_op1.designation_C = Cell.Offset(0, 63).Value
feuille_saisie_equip_mach_op1.num_plan_C = Cell.Offset(0, 64).Value
feuille_saisie_equip_mach_op1.rep_C = Cell.Offset(0, 65).Value
feuille_saisie_equip_mach_op1.directive_C = Cell.Offset(0, 66).Value
feuille_saisie_equip_mach_op1.designation_D = Cell.Offset(0, 67).Value
feuille_saisie_equip_mach_op1.num_plan_D = Cell.Offset(0, 68).Value
feuille_saisie_equip_mach_op1.rep_D = Cell.Offset(0, 69).Value
feuille_saisie_equip_mach_op1.directive_D = Cell.Offset(0, 70).Value
feuille_saisie_equip_mach_op1.designation_E = Cell.Offset(0, 71).Value
feuille_saisie_equip_mach_op1.num_plan_E = Cell.Offset(0, 72).Value
feuille_saisie_equip_mach_op1.rep_E = Cell.Offset(0, 73).Value
feuille_saisie_equip_mach_op1.directive_e = Cell.Offset(0, 74).Value
feuille_saisie_equip_mach_op1.designation_F = Cell.Offset(0, 75).Value
feuille_saisie_equip_mach_op1.num_plan_F = Cell.Offset(0, 76).Value
feuille_saisie_equip_mach_op1.rep_F = Cell.Offset(0, 77).Value
feuille_saisie_equip_mach_op1.directive_F = Cell.Offset(0, 78).Value
feuille_saisie_equip_mach_op1.designation_G = Cell.Offset(0, 79).Value
feuille_saisie_equip_mach_op1.num_plan_G = Cell.Offset(0, 80).Value
feuille_saisie_equip_mach_op1.rep_G = Cell.Offset(0, 81).Value
feuille_saisie_equip_mach_op1.directive_G = Cell.Offset(0, 82).Value
feuille_saisie_equip_mach_op1.designation_H = Cell.Offset(0, 83).Value
feuille_saisie_equip_mach_op1.num_plan_H = Cell.Offset(0, 84).Value
feuille_saisie_equip_mach_op1.rep_H = Cell.Offset(0, 85).Value
feuille_saisie_equip_mach_op1.directive_H = Cell.Offset(0, 86).Value
feuille_saisie_equip_mach_op1.designation_I = Cell.Offset(0, 87).Value
feuille_saisie_equip_mach_op1.num_plan_I = Cell.Offset(0, 88).Value
feuille_saisie_equip_mach_op1.rep_I = Cell.Offset(0, 89).Value
feuille_saisie_equip_mach_op1.directive_I = Cell.Offset(0, 90).Value
feuille_saisie_equip_mach_op1.designation_J = Cell.Offset(0, 91).Value
feuille_saisie_equip_mach_op1.num_plan_J = Cell.Offset(0, 92).Value
feuille_saisie_equip_mach_op1.rep_J = Cell.Offset(0, 93).Value
feuille_saisie_equip_mach_op1.directive_J = Cell.Offset(0, 94).Value
feuille_saisie_equip_mach_op1.designation_K = Cell.Offset(0, 95).Value
feuille_saisie_equip_mach_op1.num_plan_K = Cell.Offset(0, 96).Value
feuille_saisie_equip_mach_op1.rep_K = Cell.Offset(0, 97).Value
feuille_saisie_equip_mach_op1.directive_K = Cell.Offset(0, 98).Value
feuille_saisie_equip_mach_op1.designation_L = Cell.Offset(0, 99).Value
feuille_saisie_equip_mach_op1.num_plan_L = Cell.Offset(0, 100).Value
feuille_saisie_equip_mach_op1.rep_L = Cell.Offset(0, 101).Value
feuille_saisie_equip_mach_op1.directive_L = Cell.Offset(0, 102).Value
feuille_saisie_out_coup_op1.rep_A = Cell.Offset(0, 103).Value
feuille_saisie_out_coup_op1.designation_A = Cell.Offset(0, 104).Value
feuille_saisie_out_coup_op1.num_po_A = Cell.Offset(0, 105).Value
feuille_saisie_out_coup_op1.plaquette_A = Cell.Offset(0, 106).Value
feuille_saisie_out_coup_op1.rep_B = Cell.Offset(0, 107).Value
feuille_saisie_out_coup_op1.designation_B = Cell.Offset(0, 108).Value
feuille_saisie_out_coup_op1.num_po_B = Cell.Offset(0, 109).Value
feuille_saisie_out_coup_op1.plaquette_B = Cell.Offset(0, 110).Value
feuille_saisie_out_coup_op1.rep_C = Cell.Offset(0, 111).Value
feuille_saisie_out_coup_op1.designation_C = Cell.Offset(0, 112).Value
feuille_saisie_out_coup_op1.num_po_C = Cell.Offset(0, 113).Value
feuille_saisie_out_coup_op1.plaquette_C = Cell.Offset(0, 114).Value
feuille_saisie_out_coup_op1.rep_D = Cell.Offset(0, 115).Value
feuille_saisie_out_coup_op1.designation_D = Cell.Offset(0, 116).Value
feuille_saisie_out_coup_op1.num_po_D = Cell.Offset(0, 117).Value
feuille_saisie_out_coup_op1.plaquette_D = Cell.Offset(0, 118).Value
feuille_saisie_out_coup_op1.rep_E = Cell.Offset(0, 119).Value
feuille_saisie_out_coup_op1.designation_E = Cell.Offset(0, 120).Value
feuille_saisie_out_coup_op1.num_po_E = Cell.Offset(0, 121).Value
feuille_saisie_out_coup_op1.plaquette_E = Cell.Offset(0, 122).Value
feuille_saisie_cond_coup_op1.TextBox24 = Cell.Offset(0, 123).Value
feuille_saisie_cond_coup_op1.TextBox21 = Cell.Offset(0, 124).Value
feuille_saisie_cond_coup_op1.TextBox22 = Cell.Offset(0, 125).Value
feuille_saisie_cond_coup_op1.TextBox23 = Cell.Offset(0, 126).Value
feuille_saisie_cond_coup_op1.TextBox25 = Cell.Offset(0, 127).Value
feuille_saisie_cond_coup_op1.TextBox26 = Cell.Offset(0, 128).Value
feuille_saisie_cond_coup_op1.TextBox27 = Cell.Offset(0, 129).Value
feuille_saisie_cond_coup_op1.TextBox28 = Cell.Offset(0, 130).Value
feuille_saisie_cond_coup_op1.TextBox29 = Cell.Offset(0, 131).Value
feuille_saisie_cond_coup_op1.TextBox30 = Cell.Offset(0, 132).Value
feuille_saisie_cond_coup_op1.TextBox31 = Cell.Offset(0, 133).Value
feuille_saisie_cond_coup_op1.TextBox32 = Cell.Offset(0, 134).Value
feuille_saisie_cond_coup_op1.TextBox33 = Cell.Offset(0, 135).Value
feuille_saisie_cond_coup_op1.TextBox34 = Cell.Offset(0, 136).Value
feuille_saisie_cond_coup_op1.TextBox35 = Cell.Offset(0, 137).Value
feuille_saisie_cond_coup_op1.TextBox36 = Cell.Offset(0, 138).Value
feuille_saisie_cond_coup_op1.TextBox37 = Cell.Offset(0, 139).Value
feuille_saisie_cond_coup_op1.TextBox38 = Cell.Offset(0, 140).Value
feuille_saisie_cond_coup_op1.TextBox39 = Cell.Offset(0, 141).Value
feuille_saisie_cond_coup_op1.TextBox40 = Cell.Offset(0, 142).Value
Exit For 'Sortie de la Boucle, car la condition est remplie
End If 'Fin de la Condition
'Passage à la Prochaine Cellule de la Plage (si on est pas Sorti pas Exit For)
Next Cell
With Sheets('base op 2 (operatoire)') ' La Feuille Cible 'With' (tout ce qui suit avec un '.')
L = .Range('A65536').End(xlUp).Row ' On trouve la dernière cellule non vide
' en partant du bas de la colonne 'A'
Set Plage = .Range('A10:A' & L) ' Définition dynamique de la Plage de Cellule par creation d'Objet (Set)
End With ' Fin de Avec
'Lancement d'un Boucle For Each (Pour Chaque Item Contenu dans une Collection)
For Each Cell In Plage 'Pour chaque Cellule dans la Plage donc ;-)
'Début de Condition SI.
'Si la Condition est Valeur de Cellule = Valeur de TextBox
If Cell.Value = Label15.Caption Then
'Alors :
feuille_saisie_cartouche.reference_usinee = TextBox1.Value 'La TextBox2 prend la valeur de la Cellule trouvée (Cell)
feuille_saisie_cartouche.TextBox7 = Cell.Offset(0, 4).Value '
feuille_saisie_cartouche.TextBox9 = Cell.Offset(0, 5).Value '
feuille_saisie_cartouche.TextBox8 = Cell.Offset(0, 6).Value '
feuille_saisie_equi_out_spe_op2.designation_A = Cell.Offset(0, 7).Value
feuille_saisie_equi_out_spe_op2.num_plan_A = Cell.Offset(0, 8).Value
feuille_saisie_equi_out_spe_op2.rep_A = Cell.Offset(0, 9).Value
feuille_saisie_equi_out_spe_op2.directive_A = Cell.Offset(0, 10).Value
feuille_saisie_equi_out_spe_op2.designation_B = Cell.Offset(0, 11).Value
feuille_saisie_equi_out_spe_op2.num_plan_B = Cell.Offset(0, 12).Value
feuille_saisie_equi_out_spe_op2.rep_B = Cell.Offset(0, 13).Value
feuille_saisie_equi_out_spe_op2.directive_B = Cell.Offset(0, 14).Value
feuille_saisie_equi_out_spe_op2.designation_C = Cell.Offset(0, 15).Value
feuille_saisie_equi_out_spe_op2.num_plan_C = Cell.Offset(0, 16).Value
feuille_saisie_equi_out_spe_op2.rep_C = Cell.Offset(0, 17).Value
feuille_saisie_equi_out_spe_op2.directive_C = Cell.Offset(0, 18).Value
feuille_saisie_equi_out_spe_op2.designation_D = Cell.Offset(0, 19).Value
feuille_saisie_equi_out_spe_op2.num_plan_D = Cell.Offset(0, 20).Value
feuille_saisie_equi_out_spe_op2.rep_D = Cell.Offset(0, 21).Value
feuille_saisie_equi_out_spe_op2.directive_D = Cell.Offset(0, 22).Value
feuille_saisie_equi_out_spe_op2.designation_E = Cell.Offset(0, 23).Value
feuille_saisie_equi_out_spe_op2.num_plan_E = Cell.Offset(0, 24).Value
feuille_saisie_equi_out_spe_op2.rep_E = Cell.Offset(0, 25).Value
feuille_saisie_equi_out_spe_op2.directive_e = Cell.Offset(0, 26).Value
feuille_saisie_equi_out_spe_op2.designation_F = Cell.Offset(0, 27).Value
feuille_saisie_equi_out_spe_op2.num_plan_F = Cell.Offset(0, 28).Value
feuille_saisie_equi_out_spe_op2.rep_F = Cell.Offset(0, 29).Value
feuille_saisie_equi_out_spe_op2.directive_F = Cell.Offset(0, 30).Value
feuille_saisie_equi_out_spe_op2.designation_G = Cell.Offset(0, 31).Value
feuille_saisie_equi_out_spe_op2.num_plan_G = Cell.Offset(0, 32).Value
feuille_saisie_equi_out_spe_op2.rep_G = Cell.Offset(0, 33).Value
feuille_saisie_equi_out_spe_op2.directive_G = Cell.Offset(0, 34).Value
feuille_saisie_equi_out_spe_op2.designation_H = Cell.Offset(0, 35).Value
feuille_saisie_equi_out_spe_op2.num_plan_H = Cell.Offset(0, 36).Value
feuille_saisie_equi_out_spe_op2.rep_H = Cell.Offset(0, 37).Value
feuille_saisie_equi_out_spe_op2.directive_H = Cell.Offset(0, 38).Value
feuille_saisie_equi_out_spe_op2.designation_I = Cell.Offset(0, 39).Value
feuille_saisie_equi_out_spe_op2.num_plan_I = Cell.Offset(0, 40).Value
feuille_saisie_equi_out_spe_op2.rep_I = Cell.Offset(0, 41).Value
feuille_saisie_equi_out_spe_op2.directive_I = Cell.Offset(0, 42).Value
feuille_saisie_equi_out_spe_op2.designation_J = Cell.Offset(0, 43).Value
feuille_saisie_equi_out_spe_op2.num_plan_J = Cell.Offset(0, 44).Value
feuille_saisie_equi_out_spe_op2.rep_J = Cell.Offset(0, 45).Value
feuille_saisie_equi_out_spe_op2.directive_J = Cell.Offset(0, 46).Value
feuille_saisie_equi_out_spe_op2.designation_K = Cell.Offset(0, 47).Value
feuille_saisie_equi_out_spe_op2.num_plan_K = Cell.Offset(0, 48).Value
feuille_saisie_equi_out_spe_op2.rep_K = Cell.Offset(0, 49).Value
feuille_saisie_equi_out_spe_op2.directive_K = Cell.Offset(0, 50).Value
feuille_saisie_equi_out_spe_op2.designation_L = Cell.Offset(0, 51).Value
feuille_saisie_equi_out_spe_op2.num_plan_L = Cell.Offset(0, 52).Value
feuille_saisie_equi_out_spe_op2.rep_L = Cell.Offset(0, 53).Value
feuille_saisie_equi_out_spe_op2.directive_L = Cell.Offset(0, 54).Value
feuille_saisie_equip_mach_op2.designation_A = Cell.Offset(0, 55).Value
feuille_saisie_equip_mach_op2.num_plan_A = Cell.Offset(0, 56).Value
feuille_saisie_equip_mach_op2.rep_A = Cell.Offset(0, 57).Value
feuille_saisie_equip_mach_op2.directive_A = Cell.Offset(0, 58).Value
feuille_saisie_equip_mach_op2.designation_B = Cell.Offset(0, 59).Value
feuille_saisie_equip_mach_op2.num_plan_B = Cell.Offset(0, 60).Value
feuille_saisie_equip_mach_op2.rep_B = Cell.Offset(0, 61).Value
feuille_saisie_equip_mach_op2.directive_B = Cell.Offset(0, 62).Value
feuille_saisie_equip_mach_op2.designation_C = Cell.Offset(0, 63).Value
feuille_saisie_equip_mach_op2.num_plan_C = Cell.Offset(0, 64).Value
feuille_saisie_equip_mach_op2.rep_C = Cell.Offset(0, 65).Value
feuille_saisie_equip_mach_op2.directive_C = Cell.Offset(0, 66).Value
feuille_saisie_equip_mach_op2.designation_D = Cell.Offset(0, 67).Value
feuille_saisie_equip_mach_op2.num_plan_D = Cell.Offset(0, 68).Value
feuille_saisie_equip_mach_op2.rep_D = Cell.Offset(0, 69).Value
feuille_saisie_equip_mach_op2.directive_D = Cell.Offset(0, 70).Value
feuille_saisie_equip_mach_op2.designation_E = Cell.Offset(0, 71).Value
feuille_saisie_equip_mach_op2.num_plan_E = Cell.Offset(0, 72).Value
feuille_saisie_equip_mach_op2.rep_E = Cell.Offset(0, 73).Value
feuille_saisie_equip_mach_op2.directive_e = Cell.Offset(0, 74).Value
feuille_saisie_equip_mach_op2.designation_F = Cell.Offset(0, 75).Value
feuille_saisie_equip_mach_op2.num_plan_F = Cell.Offset(0, 76).Value
feuille_saisie_equip_mach_op2.rep_F = Cell.Offset(0, 77).Value
feuille_saisie_equip_mach_op2.directive_F = Cell.Offset(0, 78).Value
feuille_saisie_equip_mach_op2.designation_G = Cell.Offset(0, 79).Value
feuille_saisie_equip_mach_op2.num_plan_G = Cell.Offset(0, 80).Value
feuille_saisie_equip_mach_op2.rep_G = Cell.Offset(0, 81).Value
feuille_saisie_equip_mach_op2.directive_G = Cell.Offset(0, 82).Value
feuille_saisie_equip_mach_op2.designation_H = Cell.Offset(0, 83).Value
feuille_saisie_equip_mach_op2.num_plan_H = Cell.Offset(0, 84).Value
feuille_saisie_equip_mach_op2.rep_H = Cell.Offset(0, 85).Value
feuille_saisie_equip_mach_op2.directive_H = Cell.Offset(0, 86).Value
feuille_saisie_equip_mach_op2.designation_I = Cell.Offset(0, 87).Value
feuille_saisie_equip_mach_op2.num_plan_I = Cell.Offset(0, 88).Value
feuille_saisie_equip_mach_op2.rep_I = Cell.Offset(0, 89).Value
feuille_saisie_equip_mach_op2.directive_I = Cell.Offset(0, 90).Value
feuille_saisie_equip_mach_op2.designation_J = Cell.Offset(0, 91).Value
feuille_saisie_equip_mach_op2.num_plan_J = Cell.Offset(0, 92).Value
feuille_saisie_equip_mach_op2.rep_J = Cell.Offset(0, 93).Value
feuille_saisie_equip_mach_op2.directive_J = Cell.Offset(0, 94).Value
feuille_saisie_equip_mach_op2.designation_K = Cell.Offset(0, 95).Value
feuille_saisie_equip_mach_op2.num_plan_K = Cell.Offset(0, 96).Value
feuille_saisie_equip_mach_op2.rep_K = Cell.Offset(0, 97).Value
feuille_saisie_equip_mach_op2.directive_K = Cell.Offset(0, 98).Value
feuille_saisie_equip_mach_op2.designation_L = Cell.Offset(0, 99).Value
feuille_saisie_equip_mach_op2.num_plan_L = Cell.Offset(0, 100).Value
feuille_saisie_equip_mach_op2.rep_L = Cell.Offset(0, 101).Value
feuille_saisie_equip_mach_op2.directive_L = Cell.Offset(0, 102).Value
feuille_saisie_out_coup_op2.rep_A = Cell.Offset(0, 103).Value
feuille_saisie_out_coup_op2.designation_A = Cell.Offset(0, 104).Value
feuille_saisie_out_coup_op2.num_po_A = Cell.Offset(0, 105).Value
feuille_saisie_out_coup_op2.plaquette_A = Cell.Offset(0, 106).Value
feuille_saisie_out_coup_op2.rep_B = Cell.Offset(0, 107).Value
feuille_saisie_out_coup_op2.designation_B = Cell.Offset(0, 108).Value
feuille_saisie_out_coup_op2.num_po_B = Cell.Offset(0, 109).Value
feuille_saisie_out_coup_op2.plaquette_B = Cell.Offset(0, 110).Value
feuille_saisie_out_coup_op2.rep_C = Cell.Offset(0, 111).Value
feuille_saisie_out_coup_op2.designation_C = Cell.Offset(0, 112).Value
feuille_saisie_out_coup_op2.num_po_C = Cell.Offset(0, 113).Value
feuille_saisie_out_coup_op2.plaquette_C = Cell.Offset(0, 114).Value
feuille_saisie_out_coup_op2.rep_D = Cell.Offset(0, 115).Value
feuille_saisie_out_coup_op2.designation_D = Cell.Offset(0, 116).Value
feuille_saisie_out_coup_op2.num_po_D = Cell.Offset(0, 117).Value
feuille_saisie_out_coup_op2.plaquette_D = Cell.Offset(0, 118).Value
feuille_saisie_out_coup_op2.rep_E = Cell.Offset(0, 119).Value
feuille_saisie_out_coup_op2.designation_E = Cell.Offset(0, 120).Value
feuille_saisie_out_coup_op2.num_po_E = Cell.Offset(0, 121).Value
feuille_saisie_out_coup_op2.plaquette_E = Cell.Offset(0, 122).Value
feuille_saisie_condcoup_op2.rep_A = Cell.Offset(0, 123).Value
feuille_saisie_condcoup_op2.designation_A = Cell.Offset(0, 124).Value
feuille_saisie_condcoup_op2.vc_A = Cell.Offset(0, 125).Value
feuille_saisie_condcoup_op2.at_A = Cell.Offset(0, 126).Value
feuille_saisie_condcoup_op2.rep_B = Cell.Offset(0, 127).Value
feuille_saisie_condcoup_op2.designation_B = Cell.Offset(0, 128).Value
feuille_saisie_condcoup_op2.vc_B = Cell.Offset(0, 129).Value
feuille_saisie_condcoup_op2.at_B = Cell.Offset(0, 130).Value
feuille_saisie_condcoup_op2.rep_C = Cell.Offset(0, 131).Value
feuille_saisie_condcoup_op2.designation_C = Cell.Offset(0, 132).Value
feuille_saisie_condcoup_op2.vc_C = Cell.Offset(0, 133).Value
feuille_saisie_condcoup_op2.at_C = Cell.Offset(0, 134).Value
feuille_saisie_condcoup_op2.rep_D = Cell.Offset(0, 135).Value
feuille_saisie_condcoup_op2.designation_D = Cell.Offset(0, 136).Value
feuille_saisie_condcoup_op2.vc_D = Cell.Offset(0, 137).Value
feuille_saisie_condcoup_op2.at_D = Cell.Offset(0, 138).Value
feuille_saisie_condcoup_op2.rep_E = Cell.Offset(0, 139).Value
feuille_saisie_condcoup_op2.designation_E = Cell.Offset(0, 140).Value
feuille_saisie_condcoup_op2.vc_E = Cell.Offset(0, 141).Value
feuille_saisie_condcoup_op2.at_E = Cell.Offset(0, 142).Value
Exit For 'Sortie de la Boucle, car la condition est remplie
End If 'Fin de la Condition
'Passage à la Prochaine Cellule de la Plage (si on est pas Sorti pas Exit For)
Next Cell
With Sheets('base op 3 (operatoire)') ' La Feuille Cible 'With' (tout ce qui suit avec un '.')
L = .Range('A65536').End(xlUp).Row ' On trouve la dernière cellule non vide
' en partant du bas de la colonne 'A'
Set Plage = .Range('A10:A' & L) ' Définition dynamique de la Plage de Cellule par creation d'Objet (Set)
End With ' Fin de Avec
'Lancement d'un Boucle For Each (Pour Chaque Item Contenu dans une Collection)
For Each Cell In Plage 'Pour chaque Cellule dans la Plage donc ;-)
'Début de Condition SI.
'Si la Condition est Valeur de Cellule = Valeur de TextBox
If Cell.Value = Label15.Caption Then
'Alors :
feuille_saisie_cartouche.reference_usinee = TextBox1.Value 'La TextBox2 prend la valeur de la Cellule trouvée (Cell)
feuille_saisie_cartouche.TextBox10 = Cell.Offset(0, 4).Value '
feuille_saisie_cartouche.TextBox12 = Cell.Offset(0, 5).Value '
feuille_saisie_equi_out_spe_op3.designation_A = Cell.Offset(0, 6).Value
feuille_saisie_equi_out_spe_op3.num_plan_A = Cell.Offset(0, 7).Value
feuille_saisie_equi_out_spe_op3.rep_A = Cell.Offset(0, 8).Value
feuille_saisie_equi_out_spe_op3.directive_A = Cell.Offset(0, 9).Value
feuille_saisie_equi_out_spe_op3.designation_B = Cell.Offset(0, 10).Value
feuille_saisie_equi_out_spe_op3.num_plan_B = Cell.Offset(0, 11).Value
feuille_saisie_equi_out_spe_op3.rep_B = Cell.Offset(0, 12).Value
feuille_saisie_equi_out_spe_op3.directive_B = Cell.Offset(0, 13).Value
feuille_saisie_equi_out_spe_op3.designation_C = Cell.Offset(0, 14).Value
feuille_saisie_equi_out_spe_op3.num_plan_C = Cell.Offset(0, 15).Value
feuille_saisie_equi_out_spe_op3.rep_C = Cell.Offset(0, 16).Value
feuille_saisie_equi_out_spe_op3.directive_C = Cell.Offset(0, 17).Value
feuille_saisie_equi_out_spe_op3.designation_D = Cell.Offset(0, 18).Value
feuille_saisie_equi_out_spe_op3.num_plan_D = Cell.Offset(0, 19).Value
feuille_saisie_equi_out_spe_op3.rep_D = Cell.Offset(0, 20).Value
feuille_saisie_equi_out_spe_op3.directive_D = Cell.Offset(0, 21).Value
feuille_saisie_equi_out_spe_op3.designation_E = Cell.Offset(0, 22).Value
feuille_saisie_equi_out_spe_op3.num_plan_E = Cell.Offset(0, 23).Value
feuille_saisie_equi_out_spe_op3.rep_E = Cell.Offset(0, 24).Value
feuille_saisie_equi_out_spe_op3.directive_e = Cell.Offset(0, 25).Value
feuille_saisie_equi_out_spe_op3.designation_F = Cell.Offset(0, 26).Value
feuille_saisie_equi_out_spe_op3.num_plan_F = Cell.Offset(0, 27).Value
feuille_saisie_equi_out_spe_op3.rep_F = Cell.Offset(0, 28).Value
feuille_saisie_equi_out_spe_op3.directive_F = Cell.Offset(0, 29).Value
feuille_saisie_equi_out_spe_op3.designation_G = Cell.Offset(0, 30).Value
feuille_saisie_equi_out_spe_op3.num_plan_G = Cell.Offset(0, 31).Value
feuille_saisie_equi_out_spe_op3.rep_G = Cell.Offset(0, 32).Value
feuille_saisie_equi_out_spe_op3.directive_G = Cell.Offset(0, 33).Value
feuille_saisie_equi_out_spe_op3.designation_H = Cell.Offset(0, 34).Value
feuille_saisie_equi_out_spe_op3.num_plan_H = Cell.Offset(0, 35).Value
feuille_saisie_equi_out_spe_op3.rep_H = Cell.Offset(0, 36).Value
feuille_saisie_equi_out_spe_op3.directive_H = Cell.Offset(0, 37).Value
feuille_saisie_equi_out_spe_op3.designation_I = Cell.Offset(0, 38).Value
feuille_saisie_equi_out_spe_op3.num_plan_I = Cell.Offset(0, 39).Value
feuille_saisie_equi_out_spe_op3.rep_I = Cell.Offset(0, 40).Value
feuille_saisie_equi_out_spe_op3.directive_I = Cell.Offset(0, 41).Value
feuille_saisie_equi_out_spe_op3.designation_J = Cell.Offset(0, 42).Value
feuille_saisie_equi_out_spe_op3.num_plan_J = Cell.Offset(0, 43).Value
feuille_saisie_equi_out_spe_op3.rep_J = Cell.Offset(0, 44).Value
feuille_saisie_equi_out_spe_op3.directive_J = Cell.Offset(0, 45).Value
feuille_saisie_equi_out_spe_op3.designation_K = Cell.Offset(0, 46).Value
feuille_saisie_equi_out_spe_op3.num_plan_K = Cell.Offset(0, 47).Value
feuille_saisie_equi_out_spe_op3.rep_K = Cell.Offset(0, 48).Value
feuille_saisie_equi_out_spe_op3.directive_K = Cell.Offset(0, 49).Value
feuille_saisie_equi_out_spe_op3.designation_L = Cell.Offset(0, 50).Value
feuille_saisie_equi_out_spe_op3.num_plan_L = Cell.Offset(0, 51).Value
feuille_saisie_equi_out_spe_op3.rep_L = Cell.Offset(0, 52).Value
feuille_saisie_equi_out_spe_op3.directive_L = Cell.Offset(0, 53).Value
feuille_saisie_equip_mach_op3.designation_A = Cell.Offset(0, 54).Value
feuille_saisie_equip_mach_op3.num_plan_A = Cell.Offset(0, 55).Value
feuille_saisie_equip_mach_op3.rep_A = Cell.Offset(0, 56).Value
feuille_saisie_equip_mach_op3.directive_A = Cell.Offset(0, 57).Value
feuille_saisie_equip_mach_op3.designation_B = Cell.Offset(0, 58).Value
feuille_saisie_equip_mach_op3.num_plan_B = Cell.Offset(0, 59).Value
feuille_saisie_equip_mach_op3.rep_B = Cell.Offset(0, 60).Value
feuille_saisie_equip_mach_op3.directive_B = Cell.Offset(0, 61).Value
feuille_saisie_equip_mach_op3.designation_C = Cell.Offset(0, 62).Value
feuille_saisie_equip_mach_op3.num_plan_C = Cell.Offset(0, 63).Value
feuille_saisie_equip_mach_op3.rep_C = Cell.Offset(0, 64).Value
feuille_saisie_equip_mach_op3.directive_C = Cell.Offset(0, 65).Value
feuille_saisie_equip_mach_op3.designation_D = Cell.Offset(0, 66).Value
feuille_saisie_equip_mach_op3.num_plan_D = Cell.Offset(0, 67).Value
feuille_saisie_equip_mach_op3.rep_D = Cell.Offset(0, 68).Value
feuille_saisie_equip_mach_op3.directive_D = Cell.Offset(0, 69).Value
feuille_saisie_equip_mach_op3.designation_E = Cell.Offset(0, 70).Value
feuille_saisie_equip_mach_op3.num_plan_E = Cell.Offset(0, 71).Value
feuille_saisie_equip_mach_op3.rep_E = Cell.Offset(0, 72).Value
feuille_saisie_equip_mach_op3.directive_e = Cell.Offset(0, 73).Value
feuille_saisie_equip_mach_op3.designation_F = Cell.Offset(0, 74).Value
feuille_saisie_equip_mach_op3.num_plan_F = Cell.Offset(0, 75).Value
feuille_saisie_equip_mach_op3.rep_F = Cell.Offset(0, 76).Value
feuille_saisie_equip_mach_op3.directive_F = Cell.Offset(0, 77).Value
feuille_saisie_equip_mach_op3.designation_G = Cell.Offset(0, 78).Value
feuille_saisie_equip_mach_op3.num_plan_G = Cell.Offset(0, 79).Value
feuille_saisie_equip_mach_op3.rep_G = Cell.Offset(0, 80).Value
feuille_saisie_equip_mach_op3.directive_G = Cell.Offset(0, 81).Value
feuille_saisie_equip_mach_op3.designation_H = Cell.Offset(0, 82).Value
feuille_saisie_equip_mach_op3.num_plan_H = Cell.Offset(0, 83).Value
feuille_saisie_equip_mach_op3.rep_H = Cell.Offset(0, 84).Value
feuille_saisie_equip_mach_op3.directive_H = Cell.Offset(0, 85).Value
feuille_saisie_equip_mach_op3.designation_I = Cell.Offset(0, 86).Value
feuille_saisie_equip_mach_op3.num_plan_I = Cell.Offset(0, 87).Value
feuille_saisie_equip_mach_op3.rep_I = Cell.Offset(0, 88).Value
feuille_saisie_equip_mach_op3.directive_I = Cell.Offset(0, 89).Value
feuille_saisie_equip_mach_op3.designation_J = Cell.Offset(0, 90).Value
feuille_saisie_equip_mach_op3.num_plan_J = Cell.Offset(0, 91).Value
feuille_saisie_equip_mach_op3.rep_J = Cell.Offset(0, 92).Value
feuille_saisie_equip_mach_op3.directive_J = Cell.Offset(0, 93).Value
feuille_saisie_equip_mach_op3.designation_K = Cell.Offset(0, 94).Value
feuille_saisie_equip_mach_op3.num_plan_K = Cell.Offset(0, 95).Value
feuille_saisie_equip_mach_op3.rep_K = Cell.Offset(0, 96).Value
feuille_saisie_equip_mach_op3.directive_K = Cell.Offset(0, 97).Value
feuille_saisie_equip_mach_op3.designation_L = Cell.Offset(0, 98).Value
feuille_saisie_equip_mach_op3.num_plan_L = Cell.Offset(0, 99).Value
feuille_saisie_equip_mach_op3.rep_L = Cell.Offset(0, 100).Value
feuille_saisie_equip_mach_op3.directive_L = Cell.Offset(0, 101).Value
feuille_saisie_out_coup_op3.rep_A = Cell.Offset(0, 102).Value
feuille_saisie_out_coup_op3.designation_A = Cell.Offset(0, 103).Value
feuille_saisie_out_coup_op3.num_po_A = Cell.Offset(0, 104).Value
feuille_saisie_out_coup_op3.plaquette_A = Cell.Offset(0, 105).Value
feuille_saisie_out_coup_op3.rep_B = Cell.Offset(0, 106).Value
feuille_saisie_out_coup_op3.designation_B = Cell.Offset(0, 107).Value
feuille_saisie_out_coup_op3.num_po_B = Cell.Offset(0, 108).Value
feuille_saisie_out_coup_op3.plaquette_B = Cell.Offset(0, 109).Value
feuille_saisie_out_coup_op3.rep_C = Cell.Offset(0, 110).Value
feuille_saisie_out_coup_op3.designation_C = Cell.Offset(0, 111).Value
feuille_saisie_out_coup_op3.num_po_C = Cell.Offset(0, 112).Value
feuille_saisie_out_coup_op3.plaquette_C = Cell.Offset(0, 113).Value
feuille_saisie_out_coup_op3.rep_D = Cell.Offset(0, 114).Value
feuille_saisie_out_coup_op3.designation_D = Cell.Offset(0, 115).Value
feuille_saisie_out_coup_op3.num_po_D = Cell.Offset(0, 116).Value
feuille_saisie_out_coup_op3.plaquette_D = Cell.Offset(0, 117).Value
feuille_saisie_out_coup_op3.rep_E = Cell.Offset(0, 118).Value
feuille_saisie_out_coup_op3.designation_E = Cell.Offset(0, 119).Value
feuille_saisie_out_coup_op3.num_po_E = Cell.Offset(0, 120).Value
feuille_saisie_out_coup_op3.plaquette_E = Cell.Offset(0, 121).Value
feuille_saisie_cond_coup_op3.rep_A = Cell.Offset(0, 122).Value
feuille_saisie_cond_coup_op3.designation_A = Cell.Offset(0, 123).Value
feuille_saisie_cond_coup_op3.rpm_A = Cell.Offset(0, 124).Value
feuille_saisie_cond_coup_op3.at_A = Cell.Offset(0, 125).Value
feuille_saisie_cond_coup_op3.rep_B = Cell.Offset(0, 126).Value
feuille_saisie_cond_coup_op3.designation_B = Cell.Offset(0, 127).Value
feuille_saisie_cond_coup_op3.rpm_B = Cell.Offset(0, 128).Value
feuille_saisie_cond_coup_op3.at_B = Cell.Offset(0, 129).Value
feuille_saisie_cond_coup_op3.rep_C = Cell.Offset(0, 130).Value
feuille_saisie_cond_coup_op3.designation_C = Cell.Offset(0, 131).Value
feuille_saisie_cond_coup_op3.rpm_C = Cell.Offset(0, 132).Value
feuille_saisie_cond_coup_op3.at_C = Cell.Offset(0, 133).Value
feuille_saisie_cond_coup_op3.rep_D = Cell.Offset(0, 134).Value
feuille_saisie_cond_coup_op3.designation_D = Cell.Offset(0, 135).Value
feuille_saisie_cond_coup_op3.rpm_D = Cell.Offset(0, 136).Value
feuille_saisie_cond_coup_op3.at_D = Cell.Offset(0, 137).Value
feuille_saisie_cond_coup_op3.rep_E = Cell.Offset(0, 138).Value
feuille_saisie_cond_coup_op3.designation_E = Cell.Offset(0, 139).Value
feuille_saisie_cond_coup_op3.rpm_E = Cell.Offset(0, 140).Value
feuille_saisie_cond_coup_op3.at_E = Cell.Offset(0, 141).Value
Exit For 'Sortie de la Boucle, car la condition est remplie
End If 'Fin de la Condition
'Passage à la Prochaine Cellule de la Plage (si on est pas Sorti pas Exit For)
Next Cell
With Sheets('base op 1 (controle)') ' La Feuille Cible 'With' (tout ce qui suit avec un '.')
L = .Range('A65536').End(xlUp).Row ' On trouve la dernière cellule non vide
' en partant du bas de la colonne 'A'
Set Plage = .Range('A10:A' & L) ' Définition dynamique de la Plage de Cellule par creation d'Objet (Set)
End With ' Fin de Avec
'Lancement d'un Boucle For Each (Pour Chaque Item Contenu dans une Collection)
For Each Cell In Plage 'Pour chaque Cellule dans la Plage donc ;-)
'Début de Condition SI.
'Si la Condition est Valeur de Cellule = Valeur de TextBox
If Cell.Value = Label15.Caption Then
'Alors :
'onglet A
feuille_saisie_cartouche.reference_usinee = TextBox1.Value
'feuille_saisie_controle_op1.Label82 = TextBox1.Value 'La TextBox2 prend la valeur de la Cellule trouvée (Cell)
feuille_saisie_controle_op1.TextBox1 = Cell.Offset(0, 4).Value '
feuille_saisie_controle_op1.TextBox2 = Cell.Offset(0, 5).Value
feuille_saisie_controle_op1.TextBox3 = Cell.Offset(0, 6).Value
feuille_saisie_controle_op1.ComboBox1 = Cell.Offset(0, 7).Value
feuille_saisie_controle_op1.ComboBox2 = Cell.Offset(0, 8).Value
feuille_saisie_controle_op1.TextBox4 = Cell.Offset(0, 9).Value
feuille_saisie_controle_op1.TextBox5 = Cell.Offset(0, 10).Value
'onglet B
feuille_saisie_controle_op1.TextBox6 = Cell.Offset(0, 11).Value '
feuille_saisie_controle_op1.TextBox7 = Cell.Offset(0, 12).Value
feuille_saisie_controle_op1.TextBox8 = Cell.Offset(0, 13).Value
feuille_saisie_controle_op1.ComboBox3 = Cell.Offset(0, 14).Value
feuille_saisie_controle_op1.ComboBox4 = Cell.Offset(0, 15).Value
feuille_saisie_controle_op1.TextBox9 = Cell.Offset(0, 16).Value
feuille_saisie_controle_op1.TextBox10 = Cell.Offset(0, 17).Value
'onglet C
feuille_saisie_controle_op1.TextBox11 = Cell.Offset(0, 18).Value '
feuille_saisie_controle_op1.TextBox12 = Cell.Offset(0, 19).Value
feuille_saisie_controle_op1.TextBox13 = Cell.Offset(0, 20).Value
feuille_saisie_controle_op1.ComboBox5 = Cell.Offset(0, 21).Value
feuille_saisie_controle_op1.ComboBox6 = Cell.Offset(0, 22).Value
feuille_saisie_controle_op1.TextBox14 = Cell.Offset(0, 23).Value
feuille_saisie_controle_op1.TextBox15 = Cell.Offset(0, 24).Value
'onglet D
feuille_saisie_controle_op1.TextBox16 = Cell.Offset(0, 25).Value '
feuille_saisie_controle_op1.TextBox17 = Cell.Offset(0, 26).Value
feuille_saisie_controle_op1.TextBox18 = Cell.Offset(0, 27).Value
feuille_saisie_controle_op1.ComboBox7 = Cell.Offset(0, 28).Value
feuille_saisie_controle_op1.ComboBox8 = Cell.Offset(0, 29).Value
feuille_saisie_controle_op1.TextBox19 = Cell.Offset(0, 30).Value
feuille_saisie_controle_op1.TextBox20 = Cell.Offset(0, 31).Value
'onglet E
feuille_saisie_controle_op1.TextBox21 = Cell.Offset(0, 32).Value '
feuille_saisie_controle_op1.TextBox22 = Cell.Offset(0, 33).Value
feuille_saisie_controle_op1.TextBox23 = Cell.Offset(0, 34).Value
feuille_saisie_controle_op1.ComboBox9 = Cell.Offset(0, 35).Value
feuille_saisie_controle_op1.ComboBox10 = Cell.Offset(0, 36).Value
feuille_saisie_controle_op1.TextBox24 = Cell.Offset(0, 37).Value
feuille_saisie_controle_op1.TextBox25 = Cell.Offset(0, 38).Value
'onglet F
feuille_saisie_controle_op1.TextBox26 = Cell.Offset(0, 39).Value '
feuille_saisie_controle_op1.TextBox27 = Cell.Offset(0, 40).Value
feuille_saisie_controle_op1.TextBox28 = Cell.Offset(0, 41).Value
feuille_saisie_controle_op1.ComboBox11 = Cell.Offset(0, 42).Value
feuille_saisie_controle_op1.ComboBox12 = Cell.Offset(0, 43).Value
feuille_saisie_controle_op1.TextBox29 = Cell.Offset(0, 44).Value
feuille_saisie_controle_op1.TextBox30 = Cell.Offset(0, 45).Value
'onglet G
feuille_saisie_controle_op1.TextBox31 = Cell.Offset(0, 46).Value '
feuille_saisie_controle_op1.TextBox32 = Cell.Offset(0, 47).Value
feuille_saisie_controle_op1.TextBox33 = Cell.Offset(0, 48).Value
feuille_saisie_controle_op1.ComboBox13 = Cell.Offset(0, 49).Value
feuille_saisie_controle_op1.ComboBox14 = Cell.Offset(0, 50).Value
feuille_saisie_controle_op1.TextBox34 = Cell.Offset(0, 51).Value
feuille_saisie_controle_op1.TextBox35 = Cell.Offset(0, 52).Value
'onglet H
feuille_saisie_controle_op1.TextBox36 = Cell.Offset(0, 53).Value '
feuille_saisie_controle_op1.TextBox37 = Cell.Offset(0, 54).Value
feuille_saisie_controle_op1.TextBox38 = Cell.Offset(0, 55).Value
feuille_saisie_controle_op1.ComboBox15 = Cell.Offset(0, 56).Value
feuille_saisie_controle_op1.ComboBox16 = Cell.Offset(0, 57).Value
feuille_saisie_controle_op1.TextBox39 = Cell.Offset(0, 58).Value
feuille_saisie_controle_op1.TextBox40 = Cell.Offset(0, 59).Value
'onglet I
feuille_saisie_controle_op1.TextBox41 = Cell.Offset(0, 60).Value '
feuille_saisie_controle_op1.TextBox42 = Cell.Offset(0, 61).Value
feuille_saisie_controle_op1.TextBox43 = Cell.Offset(0, 62).Value
feuille_saisie_controle_op1.ComboBox17 = Cell.Offset(0, 63).Value
feuille_saisie_controle_op1.ComboBox18 = Cell.Offset(0, 64).Value
feuille_saisie_controle_op1.TextBox44 = Cell.Offset(0, 65).Value
feuille_saisie_controle_op1.TextBox45 = Cell.Offset(0, 66).Value
'onglet J
feuille_saisie_controle_op1.TextBox46 = Cell.Offset(0, 67).Value '
feuille_saisie_controle_op1.TextBox47 = Cell.Offset(0, 68).Value
feuille_saisie_controle_op1.TextBox48 = Cell.Offset(0, 69).Value
feuille_saisie_controle_op1.ComboBox19 = Cell.Offset(0, 70).Value
feuille_saisie_controle_op1.ComboBox20 = Cell.Offset(0, 71).Value
feuille_saisie_controle_op1.TextBox49 = Cell.Offset(0, 72).Value
feuille_saisie_controle_op1.TextBox50 = Cell.Offset(0, 73).Value
'onglet K
feuille_saisie_controle_op1.TextBox51 = Cell.Offset(0, 74).Value '
feuille_saisie_controle_op1.TextBox52 = Cell.Offset(0, 75).Value
feuille_saisie_controle_op1.TextBox53 = Cell.Offset(0, 76).Value
feuille_saisie_controle_op1.ComboBox21 = Cell.Offset(0, 77).Value
feuille_saisie_controle_op1.ComboBox22 = Cell.Offset(0, 78).Value
feuille_saisie_controle_op1.TextBox54 = Cell.Offset(0, 79).Value
feuille_saisie_controle_op1.TextBox55 = Cell.Offset(0, 80).Value
'onglet L
feuille_saisie_controle_op1.TextBox56 = Cell.Offset(0, 81).Value '
feuille_saisie_controle_op1.TextBox57 = Cell.Offset(0, 82).Value
feuille_saisie_controle_op1.TextBox58 = Cell.Offset(0, 83).Value
feuille_saisie_controle_op1.ComboBox23 = Cell.Offset(0, 84).Value
feuille_saisie_controle_op1.ComboBox24 = Cell.Offset(0, 85).Value
feuille_saisie_controle_op1.TextBox59 = Cell.Offset(0, 86).Value
feuille_saisie_controle_op1.TextBox60 = Cell.Offset(0, 87).Value
Exit For 'Sortie de la Boucle, car la condition est remplie
End If 'Fin de la Condition
'Passage à la Prochaine Cellule de la Plage (si on est pas Sorti pas Exit For)
Next Cell
With Sheets('base op 2 (controle)') ' La Feuille Cible 'With' (tout ce qui suit avec un '.')
L = .Range('A65536').End(xlUp).Row ' On trouve la dernière cellule non vide
' en partant du bas de la colonne 'A'
Set Plage = .Range('A10:A' & L) ' Définition dynamique de la Plage de Cellule par creation d'Objet (Set)
End With ' Fin de Avec
'Lancement d'un Boucle For Each (Pour Chaque Item Contenu dans une Collection)
For Each Cell In Plage 'Pour chaque Cellule dans la Plage donc ;-)
'Début de Condition SI.
'Si la Condition est Valeur de Cellule = Valeur de TextBox
If Cell.Value = Label15.Caption Then
'Alors :
'onglet A
feuille_saisie_cartouche.reference_usinee = TextBox1.Value
'feuille_saisie_controle_op2.Label84 = TextBox1.Value 'La TextBox2 prend la valeur de la Cellule trouvée (Cell)
feuille_saisie_controle_op2.TextBox1 = Cell.Offset(0, 4).Value '
feuille_saisie_controle_op2.TextBox2 = Cell.Offset(0, 5).Value
feuille_saisie_controle_op2.TextBox3 = Cell.Offset(0, 6).Value
feuille_saisie_controle_op2.ComboBox1 = Cell.Offset(0, 7).Value
feuille_saisie_controle_op2.ComboBox2 = Cell.Offset(0, 8).Value
feuille_saisie_controle_op2.TextBox4 = Cell.Offset(0, 9).Value
feuille_saisie_controle_op2.TextBox5 = Cell.Offset(0, 10).Value
'onglet B
feuille_saisie_controle_op2.TextBox6 = Cell.Offset(0, 11).Value '
feuille_saisie_controle_op2.TextBox7 = Cell.Offset(0, 12).Value
feuille_saisie_controle_op2.TextBox8 = Cell.Offset(0, 13).Value
feuille_saisie_controle_op2.ComboBox3 = Cell.Offset(0, 14).Value
feuille_saisie_controle_op2.ComboBox4 = Cell.Offset(0, 15).Value
feuille_saisie_controle_op2.TextBox9 = Cell.Offset(0, 16).Value
feuille_saisie_controle_op2.TextBox10 = Cell.Offset(0, 17).Value
'onglet C
feuille_saisie_controle_op2.TextBox11 = Cell.Offset(0, 18).Value '
feuille_saisie_controle_op2.TextBox12 = Cell.Offset(0, 19).Value
feuille_saisie_controle_op2.TextBox13 = Cell.Offset(0, 20).Value
feuille_saisie_controle_op2.ComboBox5 = Cell.Offset(0, 21).Value
feuille_saisie_controle_op2.ComboBox6 = Cell.Offset(0, 22).Value
feuille_saisie_controle_op2.TextBox14 = Cell.Offset(0, 23).Value
feuille_saisie_controle_op2.TextBox15 = Cell.Offset(0, 24).Value
'onglet D
feuille_saisie_controle_op2.TextBox16 = Cell.Offset(0, 25).Value '
feuille_saisie_controle_op2.TextBox17 = Cell.Offset(0, 26).Value
feuille_saisie_controle_op2.TextBox18 = Cell.Offset(0, 27).Value
feuille_saisie_controle_op2.ComboBox7 = Cell.Offset(0, 28).Value
feuille_saisie_controle_op2.ComboBox8 = Cell.Offset(0, 29).Value
feuille_saisie_controle_op2.TextBox19 = Cell.Offset(0, 30).Value
feuille_saisie_controle_op2.TextBox20 = Cell.Offset(0, 31).Value
'onglet E
feuille_saisie_controle_op2.TextBox21 = Cell.Offset(0, 32).Value '
feuille_saisie_controle_op2.TextBox22 = Cell.Offset(0, 33).Value
feuille_saisie_controle_op2.TextBox23 = Cell.Offset(0, 34).Value
feuille_saisie_controle_op2.ComboBox9 = Cell.Offset(0, 35).Value
feuille_saisie_controle_op2.ComboBox10 = Cell.Offset(0, 36).Value
feuille_saisie_controle_op2.TextBox24 = Cell.Offset(0, 37).Value
feuille_saisie_controle_op2.TextBox25 = Cell.Offset(0, 38).Value
'onglet F
feuille_saisie_controle_op2.TextBox26 = Cell.Offset(0, 39).Value '
feuille_saisie_controle_op2.TextBox27 = Cell.Offset(0, 40).Value
feuille_saisie_controle_op2.TextBox28 = Cell.Offset(0, 41).Value
feuille_saisie_controle_op2.ComboBox11 = Cell.Offset(0, 42).Value
feuille_saisie_controle_op2.ComboBox12 = Cell.Offset(0, 43).Value
feuille_saisie_controle_op2.TextBox29 = Cell.Offset(0, 44).Value
feuille_saisie_controle_op2.TextBox30 = Cell.Offset(0, 45).Value
'onglet G
feuille_saisie_controle_op2.TextBox31 = Cell.Offset(0, 46).Value '
feuille_saisie_controle_op2.TextBox32 = Cell.Offset(0, 47).Value
feuille_saisie_controle_op2.TextBox33 = Cell.Offset(0, 48).Value
feuille_saisie_controle_op2.ComboBox13 = Cell.Offset(0, 49).Value
feuille_saisie_controle_op2.ComboBox14 = Cell.Offset(0, 50).Value
feuille_saisie_controle_op2.TextBox34 = Cell.Offset(0, 51).Value
feuille_saisie_controle_op2.TextBox35 = Cell.Offset(0, 52).Value
'onglet H
feuille_saisie_controle_op2.TextBox36 = Cell.Offset(0, 53).Value '
feuille_saisie_controle_op2.TextBox37 = Cell.Offset(0, 54).Value
feuille_saisie_controle_op2.TextBox38 = Cell.Offset(0, 55).Value
feuille_saisie_controle_op2.ComboBox15 = Cell.Offset(0, 56).Value
feuille_saisie_controle_op2.ComboBox16 = Cell.Offset(0, 57).Value
feuille_saisie_controle_op2.TextBox39 = Cell.Offset(0, 58).Value
feuille_saisie_controle_op2.TextBox40 = Cell.Offset(0, 59).Value
'onglet I
feuille_saisie_controle_op2.TextBox41 = Cell.Offset(0, 60).Value '
feuille_saisie_controle_op2.TextBox42 = Cell.Offset(0, 61).Value
feuille_saisie_controle_op2.TextBox43 = Cell.Offset(0, 62).Value
feuille_saisie_controle_op2.ComboBox17 = Cell.Offset(0, 63).Value
feuille_saisie_controle_op2.ComboBox18 = Cell.Offset(0, 64).Value
feuille_saisie_controle_op2.TextBox44 = Cell.Offset(0, 65).Value
feuille_saisie_controle_op2.TextBox45 = Cell.Offset(0, 66).Value
'onglet J
feuille_saisie_controle_op2.TextBox46 = Cell.Offset(0, 67).Value '
feuille_saisie_controle_op2.TextBox47 = Cell.Offset(0, 68).Value
feuille_saisie_controle_op2.TextBox48 = Cell.Offset(0, 69).Value
feuille_saisie_controle_op2.ComboBox19 = Cell.Offset(0, 70).Value
feuille_saisie_controle_op2.ComboBox20 = Cell.Offset(0, 71).Value
feuille_saisie_controle_op2.TextBox49 = Cell.Offset(0, 72).Value
feuille_saisie_controle_op2.TextBox50 = Cell.Offset(0, 73).Value
'onglet K
feuille_saisie_controle_op2.TextBox51 = Cell.Offset(0, 74).Value '
feuille_saisie_controle_op2.TextBox52 = Cell.Offset(0, 75).Value
feuille_saisie_controle_op2.TextBox53 = Cell.Offset(0, 76).Value
feuille_saisie_controle_op2.ComboBox21 = Cell.Offset(0, 77).Value
feuille_saisie_controle_op2.ComboBox22 = Cell.Offset(0, 78).Value
feuille_saisie_controle_op2.TextBox54 = Cell.Offset(0, 79).Value
feuille_saisie_controle_op2.TextBox55 = Cell.Offset(0, 80).Value
'onglet L
feuille_saisie_controle_op2.TextBox56 = Cell.Offset(0, 81).Value '
feuille_saisie_controle_op2.TextBox57 = Cell.Offset(0, 82).Value
feuille_saisie_controle_op2.TextBox58 = Cell.Offset(0, 83).Value
feuille_saisie_controle_op2.ComboBox23 = Cell.Offset(0, 84).Value
feuille_saisie_controle_op2.ComboBox24 = Cell.Offset(0, 85).Value
feuille_saisie_controle_op2.TextBox59 = Cell.Offset(0, 86).Value
feuille_saisie_controle_op2.TextBox60 = Cell.Offset(0, 87).Value
Exit For 'Sortie de la Boucle, car la condition est remplie
End If 'Fin de la Condition
'Passage à la Prochaine Cellule de la Plage (si on est pas Sorti pas Exit For)
Next Cell
With Sheets('base op 3 (controle)') ' La Feuille Cible 'With' (tout ce qui suit avec un '.')
L = .Range('A65536').End(xlUp).Row ' On trouve la dernière cellule non vide
' en partant du bas de la colonne 'A'
Set Plage = .Range('A10:A' & L) ' Définition dynamique de la Plage de Cellule par creation d'Objet (Set)
End With ' Fin de Avec
'Lancement d'un Boucle For Each (Pour Chaque Item Contenu dans une Collection)
For Each Cell In Plage 'Pour chaque Cellule dans la Plage donc ;-)
'Début de Condition SI.
'Si la Condition est Valeur de Cellule = Valeur de TextBox
If Cell.Value = Label15.Caption Then
'Alors :
'onglet A
feuille_saisie_cartouche.reference_usinee = TextBox1.Value
'feuille_saisie_controle_op3.Label88 = TextBox1.Value 'La TextBox2 prend la valeur de la Cellule trouvée (Cell)
feuille_saisie_controle_op3.TextBox1 = Cell.Offset(0, 4).Value '
feuille_saisie_controle_op3.TextBox2 = Cell.Offset(0, 5).Value
feuille_saisie_controle_op3.TextBox3 = Cell.Offset(0, 6).Value
feuille_saisie_controle_op3.ComboBox1 = Cell.Offset(0, 7).Value
feuille_saisie_controle_op3.ComboBox2 = Cell.Offset(0, 8).Value
feuille_saisie_controle_op3.TextBox4 = Cell.Offset(0, 9).Value
feuille_saisie_controle_op3.TextBox5 = Cell.Offset(0, 10).Value
'onglet B
feuille_saisie_controle_op3.TextBox6 = Cell.Offset(0, 11).Value '
feuille_saisie_controle_op3.TextBox7 = Cell.Offset(0, 12).Value
feuille_saisie_controle_op3.TextBox8 = Cell.Offset(0, 13).Value
feuille_saisie_controle_op3.ComboBox3 = Cell.Offset(0, 14).Value
feuille_saisie_controle_op3.ComboBox4 = Cell.Offset(0, 15).Value
feuille_saisie_controle_op3.TextBox9 = Cell.Offset(0, 16).Value
feuille_saisie_controle_op3.TextBox10 = Cell.Offset(0, 17).Value
'onglet C
feuille_saisie_controle_op3.TextBox11 = Cell.Offset(0, 18).Value '
feuille_saisie_controle_op3.TextBox12 = Cell.Offset(0, 19).Value
feuille_saisie_controle_op3.TextBox13 = Cell.Offset(0, 20).Value
feuille_saisie_controle_op3.ComboBox5 = Cell.Offset(0, 21).Value
feuille_saisie_controle_op3.ComboBox6 = Cell.Offset(0, 22).Value
feuille_saisie_controle_op3.TextBox14 = Cell.Offset(0, 23).Value
feuille_saisie_controle_op3.TextBox15 = Cell.Offset(0, 24).Value
'onglet D
feuille_saisie_controle_op3.TextBox16 = Cell.Offset(0, 25).Value '
feuille_saisie_controle_op3.TextBox17 = Cell.Offset(0, 26).Value
feuille_saisie_controle_op3.TextBox18 = Cell.Offset(0, 27).Value
feuille_saisie_controle_op3.ComboBox7 = Cell.Offset(0, 28).Value
feuille_saisie_controle_op3.ComboBox8 = Cell.Offset(0, 29).Value
feuille_saisie_controle_op3.TextBox19 = Cell.Offset(0, 30).Value
feuille_saisie_controle_op3.TextBox20 = Cell.Offset(0, 31).Value
'onglet E
feuille_saisie_controle_op3.TextBox21 = Cell.Offset(0, 32).Value '
feuille_saisie_controle_op3.TextBox22 = Cell.Offset(0, 33).Value
feuille_saisie_controle_op3.TextBox23 = Cell.Offset(0, 34).Value
feuille_saisie_controle_op3.ComboBox9 = Cell.Offset(0, 35).Value
feuille_saisie_controle_op3.ComboBox10 = Cell.Offset(0, 36).Value
feuille_saisie_controle_op3.TextBox24 = Cell.Offset(0, 37).Value
feuille_saisie_controle_op3.TextBox25 = Cell.Offset(0, 38).Value
'onglet F
feuille_saisie_controle_op3.TextBox26 = Cell.Offset(0, 39).Value '
feuille_saisie_controle_op3.TextBox27 = Cell.Offset(0, 40).Value
feuille_saisie_controle_op3.TextBox28 = Cell.Offset(0, 41).Value
feuille_saisie_controle_op3.ComboBox11 = Cell.Offset(0, 42).Value
feuille_saisie_controle_op3.ComboBox12 = Cell.Offset(0, 43).Value
feuille_saisie_controle_op3.TextBox29 = Cell.Offset(0, 44).Value
feuille_saisie_controle_op3.TextBox30 = Cell.Offset(0, 45).Value
'onglet G
feuille_saisie_controle_op3.TextBox31 = Cell.Offset(0, 46).Value '
feuille_saisie_controle_op3.TextBox32 = Cell.Offset(0, 47).Value
feuille_saisie_controle_op3.TextBox33 = Cell.Offset(0, 48).Value
feuille_saisie_controle_op3.ComboBox13 = Cell.Offset(0, 49).Value
feuille_saisie_controle_op3.ComboBox14 = Cell.Offset(0, 50).Value
feuille_saisie_controle_op3.TextBox34 = Cell.Offset(0, 51).Value
feuille_saisie_controle_op3.TextBox35 = Cell.Offset(0, 52).Value
'onglet H
feuille_saisie_controle_op3.TextBox36 = Cell