Discussion :

[babou466]

bonjour à tous, j'ai un soucis de syntaxe je pense et je n'arrive pas à trouver la solution à mon problème. j'essaie de sélectionner une cellule pour lui appliquer une formule et mon code ne fonctionne pas dès la sélection de la cellule:

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
Sub Fin_MAJ_DATA()
 
Dim NbLigneData_Apres_1erRemplissage As Integer
Dim LigneData As Integer
Dim OngletDataProduit As String
OngletDataProduit = "DATA"
 
Sheets(OngletDataProduit).Select
 
'on compte le nombre de ligne remplie à la suite du remplissage automatique
NbLigneData_Apres_1erRemplissage = vgDerniereLigne_DebutData_Remplie + 1
While Cells(NbLigneData_Apres_1erRemplissage, 1).Value <> ""
    NbLigneData_Apres_1erRemplissage = NbLigneData_Apres_1erRemplissage + 1
Wend
 
'on remplie la dernière colonnes de DATA, par copie de le formule
For LigneData = vgDerniereLigne_DebutData_Remplie To NbLigneData_Apres_1erRemplissage - 1
    Cells(LigneData, 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"" "  'à voir si avec formule ou solution qui suit
Next LigneData
 
End Sub

si quelqu'un a une idée...
merci et bonne journée!

[babou466]

peut être que mon problème vient de la variable globale en fait...est ce qu'une variable reste globale quand on l'a stockée lors de la procédure associée à un premier bouton, quand on veut l'utiliser dans une procédure associée à un second bouton? si quelqu'un peut me renseigner...
merci et bonne journée

je veux dire par là que je me demande si un variable est globale pour l'ensemble du projet ou si c'est seulement pour l'assocition d'appel de procédures associées à un unique bouton de commande, pardon j'ai du mal à m'exprimer je crois...

[ouskel'n'or]

si quelqu'un a une idée...

Oui ! Tu changes de méthode pour trouver le dernière ligne renseignée et tu changes de méthode pour copier ta formule
Pour la dernière ligne renseignée, tu as dix méthodes plus directes de l'obtenir sur le forum ou dans la FAQ... En voici une

Code :

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

DerLig = Range("A" & Rows.Count).End(xlUp).Row

Pour la copie de la formule, il suffit que tu la places dans une première cellule et que tu la copies sur la plage de cellules concernée
Je suppose que tu la places sur la cellule H25 et que tu souhaites la recopier jusqu'en H & derlig, tu fais

Code :

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

Range("H25").copy Range("H26:H" & derlig)

Juste pour l'idée.
Bonne journée

[babou466]

merci pour l'idée, j'ai cependant encore un problème, il s'agit maintenant de la formule...
voici mon code:sachant que derling a stocké la bonne valeur et DerniereLigne_DebutData_Remplie aussi

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 + 1, 8).Select    'à voir si range en plus ou pas
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 + 1, 8)).Copy Range(Cells(DerniereLigne_DebutData_Remplie + 2, 8), 8 & DerLig)