Methode formula [Résolu]

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

Votre réponse

1 réponse

Meilleure réponse
tomy7 62 Messages postés mardi 22 janvier 2008Date d'inscription 25 avril 2008 Dernière intervention - 25 févr. 2008 à 17:07
3
Merci
re

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

Merci tomy7 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de tomy7

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.