Methode formula

Résolu
tomy7 Messages postés 62 Date d'inscription mardi 22 janvier 2008 Statut Membre Dernière intervention 25 avril 2008 - 25 févr. 2008 à 15:56
tomy7 Messages postés 62 Date d'inscription mardi 22 janvier 2008 Statut Membre Dernière intervention 25 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?

1 réponse

tomy7 Messages postés 62 Date d'inscription mardi 22 janvier 2008 Statut Membre Dernière intervention 25 avril 2008
25 févr. 2008 à 17:07
re

c etait juste une valeur dans une cellule plus bas qui empechai le bon fonctionnement....
Rejoignez-nous