Hello
J'ai besoin de votre aide : j'ai un souci de code sur lequel j'ai passé pas mal de temps mais je seche !
Le fichier a été modifié : inscription des valeurs en lignes plutôt qu'en colonne
Tout fonctionnait très bien jusqu'au jour ou j'ai du faire une fausse manip en bidouillant le code pour essayer de l'optimiser
Du coup, plus de transfert des données vers l'onglet DATASheet…sans message d'erreur
J'ai un essai terrain ce lundi et je ne trouve pas la solution !!!
Si vous pouvez y jeter un œil rapidement, ce serait super sympa
Les lignes de code du module TRANSFERT sont ci-dessous
Merci d'avance
Ludo
PS : ne vous étonnez pas si le code n'est pas optimisé..j'ai pour l'instant cherché à valider toutes les lignes (je débute en VBA)
Sub transfert()
'===Mise a jour des données dans le tableau
'===Déclaration de la variable L pour connaitre le n° de la ligne
Dim T As Integer
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
'===Je bascule sur la feuille de données
Sheets("DATASheet").Activate
'===Remplissage du tableau
'===ID1
If IsEmpty(UserForm.ID1.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID1.Value
Range("F" & T).Value = UserForm.Mesure1.Value
Range("G" & T).Value = UserForm.Control1.Value
Range("H" & T).Value = UserForm.Tol1.Value
Range("I" & T).Value = UserForm.Delta1.Value
End If
'===ID2
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID2.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID2.Value
Range("F" & T).Value = UserForm.Mesure2.Value
Range("G" & T).Value = UserForm.Control2.Value
Range("H" & T).Value = UserForm.Tol2.Value
Range("I" & T).Value = UserForm.Delta2.Value
End If
'===ID3
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID3.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID3.Value
Range("F" & T).Value = UserForm.Mesure3.Value
Range("G" & T).Value = UserForm.Control3.Value
Range("H" & T).Value = UserForm.Tol3.Value
Range("I" & T).Value = UserForm.Delta3.Value
End If
'===ID4
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID4.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID4.Value
Range("F" & T).Value = UserForm.Mesure4.Value
Range("G" & T).Value = UserForm.Control4.Value
Range("H" & T).Value = UserForm.Tol4.Value
Range("I" & T).Value = UserForm.Delta4.Value
End If
'===ID5
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID5.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID5.Value
Range("F" & T).Value = UserForm.Mesure5.Value
Range("G" & T).Value = UserForm.Control5.Value
Range("H" & T).Value = UserForm.Tol5.Value
Range("I" & T).Value = UserForm.Delta5.Value
End If
'===ID6
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID6.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID6.Value
Range("F" & T).Value = UserForm.Mesure6.Value
Range("G" & T).Value = UserForm.Control6.Value
Range("H" & T).Value = UserForm.Tol6.Value
Range("I" & T).Value = UserForm.Delta6.Value
End If
'===ID7
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID7.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID7.Value
Range("F" & T).Value = UserForm.Mesure7.Value
Range("G" & T).Value = UserForm.Control7.Value
Range("H" & T).Value = UserForm.Tol7.Value
Range("I" & T).Value = UserForm.Delta7.Value
End If
'===ID8
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID8.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID8.Value
Range("F" & T).Value = UserForm.Mesure8.Value
Range("G" & T).Value = UserForm.Control8.Value
Range("H" & T).Value = UserForm.Tol8.Value
Range("I" & T).Value = UserForm.Delta8.Value
End If
'===ID9
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID9.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID9.Value
Range("F" & T).Value = UserForm.Mesure9.Value
Range("G" & T).Value = UserForm.Control9.Value
Range("H" & T).Value = UserForm.Tol9.Value
Range("I" & T).Value = UserForm.Delta9.Value
End If
'===ID10
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID10.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID10.Value
Range("F" & T).Value = UserForm.Mesure10.Value
Range("G" & T).Value = UserForm.Control10.Value
Range("H" & T).Value = UserForm.Tol10.Value
Range("I" & T).Value = UserForm.Delta10.Value
End If
'===ID11
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID11.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID11.Value
Range("F" & T).Value = UserForm.Mesure11.Value
Range("G" & T).Value = UserForm.Control11.Value
Range("H" & T).Value = UserForm.Tol11.Value
Range("I" & T).Value = UserForm.Delta11.Value
End If
'===ID12
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID12.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID12.Value
Range("F" & T).Value = UserForm.Mesure12.Value
Range("G" & T).Value = UserForm.Control12.Value
Range("H" & T).Value = UserForm.Tol12.Value
Range("I" & T).Value = UserForm.Delta12.Value
End If
'===ID13
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID13.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID13.Value
Range("F" & T).Value = UserForm.Mesure13.Value
Range("G" & T).Value = UserForm.Control13.Value
Range("H" & T).Value = UserForm.Tol13.Value
Range("I" & T).Value = UserForm.Delta13.Value
End If
'===ID14
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID14.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID14.Value
Range("F" & T).Value = UserForm.Mesure14.Value
Range("G" & T).Value = UserForm.Control14.Value
Range("H" & T).Value = UserForm.Tol14.Value
Range("I" & T).Value = UserForm.Delta14.Value
End If
'===ID15
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID15.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID15.Value
Range("F" & T).Value = UserForm.Mesure15.Value
Range("G" & T).Value = UserForm.Control15.Value
Range("H" & T).Value = UserForm.Tol15.Value
Range("I" & T).Value = UserForm.Delta15.Value
End If
'===ID16
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID16.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID16.Value
Range("F" & T).Value = UserForm.Mesure16.Value
Range("G" & T).Value = UserForm.Control16.Value
Range("H" & T).Value = UserForm.Tol16.Value
Range("I" & T).Value = UserForm.Delta16.Value
End If
'===ID17
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID17.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID17.Value
Range("F" & T).Value = UserForm.Mesure17.Value
Range("G" & T).Value = UserForm.Control17.Value
Range("H" & T).Value = UserForm.Tol17.Value
Range("I" & T).Value = UserForm.Delta17.Value
End If
'===ID18
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID18.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID18.Value
Range("F" & T).Value = UserForm.Mesure18.Value
Range("G" & T).Value = UserForm.Control18.Value
Range("H" & T).Value = UserForm.Tol18.Value
Range("I" & T).Value = UserForm.Delta18.Value
End If
'===ID19
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID19.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID19.Value
Range("F" & T).Value = UserForm.Mesure19.Value
Range("G" & T).Value = UserForm.Control19.Value
Range("H" & T).Value = UserForm.Tol19.Value
Range("I" & T).Value = UserForm.Delta19.Value
End If
'===ID20
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID20.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID20.Value
Range("F" & T).Value = UserForm.Mesure20.Value
Range("G" & T).Value = UserForm.Control20.Value
Range("H" & T).Value = UserForm.Tol20.Value
Range("I" & T).Value = UserForm.Delta20.Value
End If
'===ID21
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID21.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID21.Value
Range("F" & T).Value = UserForm.Mesure21.Value
Range("G" & T).Value = UserForm.Control21.Value
Range("H" & T).Value = UserForm.Tol21.Value
Range("I" & T).Value = UserForm.Delta21.Value
End If
'===ID22
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID22.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID22.Value
Range("F" & T).Value = UserForm.Mesure22.Value
Range("G" & T).Value = UserForm.Control22.Value
Range("H" & T).Value = UserForm.Tol22.Value
Range("I" & T).Value = UserForm.Delta22.Value
End If
'===ID23
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID23.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID23.Value
Range("F" & T).Value = UserForm.Mesure23.Value
Range("G" & T).Value = UserForm.Control23.Value
Range("H" & T).Value = UserForm.Tol23.Value
Range("I" & T).Value = UserForm.Delta23.Value
End If
'===ID24
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID24.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID24.Value
Range("F" & T).Value = UserForm.Mesure24.Value
Range("G" & T).Value = UserForm.Control24.Value
Range("H" & T).Value = UserForm.Tol24.Value
Range("I" & T).Value = UserForm.Delta24.Value
End If
'===ID25
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID25.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID25.Value
Range("F" & T).Value = UserForm.Mesure25.Value
Range("G" & T).Value = UserForm.Control25.Value
Range("H" & T).Value = UserForm.Tol25.Value
Range("I" & T).Value = UserForm.Delta25.Value
End If
'===ID26
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID26.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID26.Value
Range("F" & T).Value = UserForm.Mesure26.Value
Range("G" & T).Value = UserForm.Control26.Value
Range("H" & T).Value = UserForm.Tol26.Value
Range("I" & T).Value = UserForm.Delta26.Value
End If
'===ID27
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID27.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID27.Value
Range("F" & T).Value = UserForm.Mesure27.Value
Range("G" & T).Value = UserForm.Control27.Value
Range("H" & T).Value = UserForm.Tol27.Value
Range("I" & T).Value = UserForm.Delta27.Value
End If
'===ID28
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID28.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID28.Value
Range("F" & T).Value = UserForm.Mesure28.Value
Range("G" & T).Value = UserForm.Control28.Value
Range("H" & T).Value = UserForm.Tol28.Value
Range("I" & T).Value = UserForm.Delta28.Value
End If
'===ID29
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID29.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID29.Value
Range("F" & T).Value = UserForm.Mesure29.Value
Range("G" & T).Value = UserForm.Control29.Value
Range("H" & T).Value = UserForm.Tol29.Value
Range("I" & T).Value = UserForm.Delta29.Value
End If
'===ID30
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID30.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID30.Value
Range("F" & T).Value = UserForm.Mesure30.Value
Range("G" & T).Value = UserForm.Control30.Value
Range("H" & T).Value = UserForm.Tol30.Value
Range("I" & T).Value = UserForm.Delta30.Value
End If
'===ID31
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID31.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID31.Value
Range("F" & T).Value = UserForm.Mesure31.Value
Range("G" & T).Value = UserForm.Control31.Value
Range("H" & T).Value = UserForm.Tol31.Value
Range("I" & T).Value = UserForm.Delta31.Value
End If
'===ID32
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID32.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID32.Value
Range("F" & T).Value = UserForm.Mesure32.Value
Range("G" & T).Value = UserForm.Control32.Value
Range("H" & T).Value = UserForm.Tol32.Value
Range("I" & T).Value = UserForm.Delta32.Value
End If
'===ID33
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID33.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID33.Value
Range("F" & T).Value = UserForm.Mesure33.Value
Range("G" & T).Value = UserForm.Control33.Value
Range("H" & T).Value = UserForm.Tol33.Value
Range("I" & T).Value = UserForm.Delta33.Value
End If
'===ID34
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID34.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID34.Value
Range("F" & T).Value = UserForm.Mesure34.Value
Range("G" & T).Value = UserForm.Control34.Value
Range("H" & T).Value = UserForm.Tol34.Value
Range("I" & T).Value = UserForm.Delta34.Value
End If
'===ID35
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID35.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID35.Value
Range("F" & T).Value = UserForm.Mesure35.Value
Range("G" & T).Value = UserForm.Control35.Value
Range("H" & T).Value = UserForm.Tol35.Value
Range("I" & T).Value = UserForm.Delta35.Value
End If
'===ID36
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID36.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID36.Value
Range("F" & T).Value = UserForm.Mesure36.Value
Range("G" & T).Value = UserForm.Control36.Value
Range("H" & T).Value = UserForm.Tol36.Value
Range("I" & T).Value = UserForm.Delta36.Value
End If
'===ID37
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID37.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID37.Value
Range("F" & T).Value = UserForm.Mesure37.Value
Range("G" & T).Value = UserForm.Control37.Value
Range("H" & T).Value = UserForm.Tol37.Value
Range("I" & T).Value = UserForm.Delta37.Value
End If
'===ID38
'===Trouve la dernière ligne remplie
T = Sheets("DATASheet").Range("A65536").End(xlUp).Row + 1
If IsEmpty(UserForm.ID38.Value) Then
Sheets("DATASheet").Activate
Range("A" & T).Value = UserForm.IMAN.Value
Range("B" & T).Value = UserForm.RefSIZE.Value
Range("C" & T).Value = UserForm.NoSAMPLE.Value
Range("D" & T).Value = UserForm.RefSUPPLIER.Value
Range("E" & T).Value = UserForm.ID38.Value
Range("F" & T).Value = UserForm.Mesure38.Value
Range("G" & T).Value = UserForm.Control38.Value
Range("H" & T).Value = UserForm.Tol38.Value
Range("I" & T).Value = UserForm.Delta38.Value
End If
Unload UserForm
'===Ferme l'userform
UserForm.Hide
'==Focus sur la premiere cellule de la ligne
Sheets("DATASheet").Cells(T + 1, 1).Select
End Sub
Afficher la suite