Methode formula [Résolu]

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

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 116 internautes nous ont dit merci 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.