Methode formula [Résolu]

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

Votre réponse

1 réponse

Meilleure réponse
Messages postés
62
Date d'inscription
mardi 22 janvier 2008
Dernière intervention
25 avril 2008
- 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é 90 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.