problème application formule

Version imprimable

bonjour à tous, je n'arrive vraiment pas à trouver mon erreur...il s'agit d'afecter une formule que j'ai auparavant enregistrée sur une macro,à une cellule, puis de la copier sur le reste de la colonne...et l'utilisation de la formule n'est pas correcte d'après le compilateur.Quelqu'un pourrait il me venir en aide? merci à vous et bonne journée

(les valeurs stockées dans derlig et DerniereLigne_DebutData_Remplie sont bonnes d'après mes espions)

voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 'on cherche la dernière ligne remplie de la totalité du tableau DerLig = Range("A" & Rows.Count).End(xlUp).Row 'on place la formule dans la première case concernée Cells(DerniereLigne_DebutData_Remplie, 8).Select ActiveCell.FormulaR1C1 = _ "=OR(RC[-1]=""gS"",LEFT(RC[-1],1)=""n"",RC[-1]=""gDT"",RC[-1]=""Sgi"",RC[-1]=""gRAS"",RC[-1]=""gV"")=TRUE ""non compté"" RC[-1]=""ADT"" ""RAS Rep"" RC[-1]=""CE"" ""C EXT"" OR(RC[-1]=""intr"",RC[-1]=""gT"")=TRUE ""avarie"" RC[-1]=""SA"" RC[-1]=""Sgs"" RC[-1]=""SNC"" " 'on la copie dans la suite de la colonne Range(Cells(DerniereLigne_DebutData_Remplie, 8)).Copy Range(Cells(DerniereLigne_DebutData_Remplie + 1, 8), 8 & DerLig)
le code suivant ne fonctionne pas non plus:

Code:

Range(Cells(DerniereLigne_DebutData_Remplie, 8)).Formula = "=OR(RC[-1]=""gS"",LEFT(RC[-1],1)=""n"",RC[-1]=""gDT"",RC[-1]=""Sgi"",RC[-1]=""gRAS"",RC[-1]=""gV"")=TRUE ""non compté"" RC[-1]=""ADT"" ""RAS Rep"" RC[-1]=""CE"" ""C EXT"" OR(RC[-1]=""intr"",RC[-1]=""gT"")=TRUE ""avarie"" RC[-1]=""SA"" RC[-1]=""Sgs"" RC[-1]=""SNC"" "

24/02/2009, 15h00
fred65200

bonjour,

peux tu donner la formule que tu voudrais obtenir sur Excel
@+

=SI(OU(LC(-1)="gS";GAUCHE(LC(-1);1)="n";LC(-1)="gDT";LC(-1)="Sgi";LC(-1)="gRAS";LC(-1)="gV")=VRAI;"non compté"; SI(LC(-1)="ADT";"RAS Rep";SI(LC(-1)="CE";"C EXT";SI(OU(LC(-1)="intr";LC(-1)="gT")=VRAI;"avarie";SI(OU(LC(-1)="SA";LC(-1)="Sgs";LC(-1)="SNC";LC(-1)="SNL";LC(-1)="StoDo")=VRAI;"Signalement";"ERREUR")))))

hors j'ai remarqué que l'enregistrement ne la prenait pas entière, aussi je l'ai reformulé de la manière suivante:
Code:

1 2 3 Cells(DerniereLigne_DebutData_Remplie, 8).Select ActiveCell.FormulaR1C1 = _ "=OR(RC[-1]=""gS"",LEFT(RC[-1],1)=""n"",RC[-1]=""gDT"",RC[-1]=""Sgi"",RC[-1]=""gRAS"",RC[-1]=""gV"")=TRUE ""non compté"", RC[-1]=""ADT"" ""RAS Rep"", RC[-1]=""CE"" ""C EXT"" ,OR(RC[-1]=""intr"",RC[-1]=""gT"")=TRUE ""avarie"", OR(RC[-1]=""SA"",RC[-1]=""Sigs"",RC[-1]=""SNC"",RC[-1]=""SNL"",RC[-1]=""StoDo"")=VRAI ""Signalement"" ""ERREUR"")))))"
qu'en pensez vous?

re chez moi, ça fonctionne

Code:

1
2
3
    
Cells(DerniereLigne_DebutData_Remplie, 8).FormulaR1C1 = _
        "=IF(OR(RC[-1]=""gS"",LEFT(RC[-1],1)=""n"",RC[-1]=""gDT"",RC[-1]=""Sgi"",RC[-1]=""gRAS"",RC[-1]=""gV"")=TRUE,""non compté"", IF(RC[-1]=""ADT"",""RAS Rep"",IF(RC[-1]=""CE"",""C EXT"",IF(OR(RC[-1]=""intr"",RC[-1]=""gT"")=TRUE,""avarie"",IF(OR(RC[-1]=""SA"",RC[-1]=""Sgs"",RC[-1]=""SNC"",RC[-1]=""SNL"",RC[-1]=""StoDo"")=TRUE,""Signalement"",""ERREUR"")))))"

tu peux aussi ecrire

Code:

range(DerniereLigne_DebutData_Remplie, "H"), cells(Laderdeder, "H")).formular1c1 = ...

@+

NB inutile de sélectionner.

merci beaucoup, c'est impécable, je ne suis pas très douée, j'ai un peu honte de mon erreur:roll:...vous pouvez peut être m'aider pour un autre soucis...voilà une fois que j'ai affecter cette formule à ma case, je souhaiterais la copie dans le reste de ma colonne et la sélection n'est pas bonne...si vous avez une idée du changement que je devrais effectuer...et bonne soiré à vous!

voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Fin_MAJ_DATA()
 
Dim DerniereLigne_DebutData_Remplie As Integer
Dim NbLigneData_Apres_1erRemplissage As Integer
Dim LigneData As Integer
Dim OngletDataProduit As String
OngletDataProduit = "DATA"
 
Sheets(OngletDataProduit).Select
 
'on compte le nombre de lignes remplies au préalable de DATA (celles en rouges)
DerniereLigne_DebutData_Remplie = 2
While Cells(DerniereLigne_DebutData_Remplie, 1).Interior.ColorIndex = 3
    DerniereLigne_DebutData_Remplie = DerniereLigne_DebutData_Remplie + 1
Wend
 
'on cherche la dernière ligne remplie de la totalité du tableau
DerLig = Range("A" & Rows.Count).End(xlUp).Row
 
'on place la formule dans la première case concernée
Cells(DerniereLigne_DebutData_Remplie, 8).FormulaR1C1 = _
        "=IF(OR(RC[-1]=""gS"",LEFT(RC[-1],1)=""n"",RC[-1]=""gDT"",RC[-1]=""Sgi"",RC[-1]=""gRAS"",RC[-1]=""gV"")=TRUE,""non compté"", IF(RC[-1]=""ADT"",""RAS Rep"",IF(RC[-1]=""CE"",""C EXT"",IF(OR(RC[-1]=""intr"",RC[-1]=""gT"")=TRUE,""avarie"",IF(OR(RC[-1]=""SA"",RC[-1]=""Sgs"",RC[-1]=""SNC"",RC[-1]=""SNL"",RC[-1]=""StoDo"")=TRUE,""Signalement"",""ERREUR"")))))"
 
'on la copie dans la suite de la colonne
Range(Cells(DerniereLigne_DebutData_Remplie, 8)).Copy Range(Cells(DerniereLigne_DebutData_Remplie + 1, 8), 8 & DerLig)
 
End Sub

Une seule ligne de code comme mentionné précédemment
Code:

1 2 3 Range(Cells(DerniereLigne_DebutData_Remplie, 8),Cells(DerLig, 8).formular1c1 = _ ......la formule
@+

24/02/2009, 16h47
babou466

malin ! j’ai en fait repris l’application de la formule dans un for en faisant juste varier la ligne , ça fonctionne aussi, mais votre solution est plus synthétique ! merci beaucoup pour votre aide
24/02/2009, 16h50
fred65200

et je pense beaucoup plus rapide qu'une boucle.:D
fred