Dim vclasseurprincipal As Worksheet Dim vclasseurN1 As Worksheet Dim vchemin As String Dim i As Integer, x As Integer vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés" Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant") Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2") x = 2 While UCase(vclasseurN1.Cells(x, 1) & vclasseurN1.Cells(x, 2)) = nom x = x + 1 i = 14 While Not IsEmpty(vclasseurprincipal.Cells(i, 1)) i = i + 1 vclasseurprincipal.Cells(i, 1).Value = vclasseurN1.Cells(x, 3).Value vclasseurprincipal.Cells(i, 2).Value = vclasseurN1.Cells(x, 4).Value vclasseurprincipal.Cells(i, 3).Value = vclasseurN1.Cells(x, 5).Value x = x + 1 Wend Wend
Sub toto() Dim vclasseurprincipal As Worksheet Dim vclasseurN1 As Worksheet Dim vchemin As String Dim i As Integer, x As Integer Dim nom As String vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés" Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant") nom = UCase(vclasseurprincipal.cells(2, 1) & " " & vclasseurprincipal.cells(2, 2)) Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2") x = 2 While UCase(vclasseurN1.cells(x, 1) & " " & vclasseurN1.cells(x, 2)) = nom i = 14 While Not IsEmpty(vclasseurprincipal.cells(i, 1)) i = i + 1 vclasseurprincipal.cells(i, 1).Value = vclasseurN1.cells(x, 3).Value vclasseurprincipal.cells(i, 2).Value = vclasseurN1.cells(x, 4).Value vclasseurprincipal.cells(i, 3).Value = vclasseurN1.cells(x, 5).Value x = x + 1 Wend Wend End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionje n'arrives pas à comprendre ce que la macro fait.
UCase(vclasseurN1.Cells(x, 1) & " " & vclasseurN1.Cells(x, 2)) = nomest bien vérifiée au besoin en mettant un point d'arrêt sur cette ligne. puis avance pas à pas.
Dim vclasseurprincipal As Worksheet Dim vclasseurN1 As Worksheet Dim vchemin As String Dim i As Integer, x As Integer Dim nom As String vchemin = "C:\Documents and Settings\Sabine\Bureau\Sandie\Suivi des salariés" Set vclasseurprincipal = Workbooks("contrats.xls").Worksheets("avenant") nom = UCase(vclasseurprincipal.cells(2, 1) & " " & vclasseurprincipal.cells(2, 2)) Set vclasseurN1 = Workbooks("planning.xls").Worksheets("Feuil2") x = 2 While UCase(vclasseurN1.cells(x, 1) & " " & vclasseurN1.cells(x, 2)) = nom i = 14 While Not IsEmpty(vclasseurprincipal.cells(i, 1)) i = i + 1 vclasseurprincipal.cells(i, 1).Value = vclasseurN1.cells(x, 3).Value vclasseurprincipal.cells(i, 2).Value = vclasseurN1.cells(x, 4).Value vclasseurprincipal.cells(i, 3).Value = vclasseurN1.cells(x, 5).Value x = x + 1 Wend Wend End Sub