tomy7
Messages postés62Date d'inscriptionmardi 22 janvier 2008StatutMembreDernière intervention25 avril 2008
-
25 févr. 2008 à 15:56
tomy7
Messages postés62Date d'inscriptionmardi 22 janvier 2008StatutMembreDernière intervention25 avril 2008
-
25 févr. 2008 à 17:07
bonjour a tous,
voici mon prob
Private Sub CommandButton2_Click()
Dim Line As Long
Dim NewSh As Worksheet
Set NewSh = ActiveWorkbook.Worksheets(Sheets.Count)
NewSh.Name = "Add" & Sheets.Count - 3
Line = Sheets("Main").Cells(Rows.Count, "G").End(xlUp).Row + 1
Sheets("Main").Rows(Line).Insert xlShiftDown
Worksheets("Main").Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(6, "C").Address
Worksheets("Main").Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(5, "J").Address
Worksheets("Main").Cells(Rows.Count, "I").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "F").Address
Worksheets("Main").Cells(Rows.Count, "J").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "Q").Address
Worksheets("Main").Cells(Rows.Count, "K").End(xlUp).Offset(1, 0).FormulaLocal = "=" & NewSh.Name & "!" & NewSh.Cells(266, "R").Address
If Worksheets("Main").Range("H" & Line).Value = "AC" Then
MsgBox "=L" & Line - 1 & "+I" & Line
Worksheets("Main").Cells(Rows.Count, "L").End(xlUp).Offset(1, 0).FormulaLocal = "=L" & Line - 1 & "+I" & Line
Worksheets("Main").Cells(Rows.Count, "M").End(xlUp).Offset(1, 0).FormulaLocal = "=M" & Line - 1 & "+J" & Line
End If
If Worksheets("Main").Range("H" & Line).Value = "EAC" Then
MsgBox "=L" & Line - 1
Worksheets("Main").Cells(Rows.Count, "L").End(xlUp).Offset(1, 0).FormulaLocal = "=L" & Line - 1
Worksheets("Main").Cells(Rows.Count, "M").End(xlUp).Offset(1, 0).FormulaLocal = "=M" & Line - 1 & "+J" & Line
End If
Worksheets("Main").Cells(Rows.Count, "N").End(xlUp).Offset(1, 0).FormulaLocal = "=1-(M" & Line & "/L" & Line & ")"
End Sub
Les deux lignes en rouge ne fonctinne pas alors que celle en vert tres bien....
une idée d ou vient le probleme?