probleme de recuperation de données excel dans boi

V

violaine

Guest
bonjour a tous

dan smon classeur excel, j ai deux feuilles excel A et B dans les quelles j ai un tableau de données
ce tableau de donnée est situé exactement pareil dan sles feuilles mais il n ont pas les memes données


ces differentes données , je les recupere dans des boites dialogues a pour les donnees a et b pour les données b

au niveau programme, il est identique aussi bien pour recuperer les données A que les données B

Mon probleme est que je peux recuperer les données B mais impossible de recuperer les données A

j ai essayer de modifier la ligne 'with sheet ('A') en remplacant A par B et la je recupere les données de la feuille b dans les boite de dialogue pour a
mais impossible de recuper les donnees b dans les boite de dialogue a

schematique on peut voir ca comme suit

boite de dialogue A= donnees feuille a=> impossible
boite de dialogue B = données feuilles B=> posible

boite de dialogues A= donnees feuille b=> impossible
boite de dialogue B= données feuille A => possible

a premiere vu je pense que ma programmation est correcte qu en pensez vous
pensez vous que le probleme vien de ma feuille excel A tout simplement ou non

d'ou vien le probleme

je suis dans le floue total

merci pour votre aide
 
Trier par date Trier par votes
V

violaine

Guest
voicii le code pour A

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


voici le code pour b

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



remarque: les deux code sont identiques
 
Vote positif 0 Vote négatif

Discussions similaires

H
  • Question
Power Query Récupérer une donnée dans des classeurs pour afficher le résultat dans un autre classeur
Réponses
5
Affichages
266
hijackfr
H
C
  • Question
Microsoft 365 copier coller en changeant la disposition et plage de donnees variable
Réponses
5
Affichages
496
cg1980
C
A
  • Question
XL 2016 Boite d'Edgeworth
Réponses
5
Affichages
576
Arno_1111
A
J
  • Question
Microsoft 365 extraction VBA avec formule si
Réponses
10
Affichages
370
Phil69970
Phil69970
R
  • Question
Microsoft 365 aide a la creation d un classeur commercial
2
Réponses
17
Affichages
728
Rozey
R
P
  • Question
XL 2016 Validation de données
Réponses
1
Affichages
382
fanch55
fanch55
L
  • Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
467
Liner77
L
J
  • Question
XL 2019 Macro pour recuperer les noms de dossiers
Réponses
2
Affichages
318
julien1982
J
Simbaa
  • Résolu(e)
Microsoft 365 Userform - Transfert de données
Réponses
6
Affichages
309
Simbaa
Simbaa
I
  • Résolu(e)
Microsoft 365 Garder dimension des graphes issus d'un lien Excel lors de la MaJ dans PP
Réponses
2
Affichages
310
ilyes4205
I

Membres actuellement en ligne

11 membres et 143 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 520
Messages
2 089 291
Membres
104 089
dernier inscrit
salimgtu