Discussion :

[babou466]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"" "

[fred65200]

bonjour,

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

[babou466]

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[fred65200]

re chez moi, ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

NB inutile de sélectionner.

[babou466]

merci beaucoup, c'est impécable, je ne suis pas très douée, j'ai un peu honte de mon erreur...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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+