Convertion de formule en VBA

Pierrot93

XLDnaute Barbatruc

• 5 Août 2015

• #2

Re : Convertion de formule en VBA

Bonjour,

Quelqu'un aurait une piste ?

Cliquez pour agrandir...

utilise l'enregistreur de macro en rentrant la formule dans les cellules puis copier collage spéciale => valeurs...

bon après midi
@+

 

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 17 Août 2015

• #3

Re : Convertion de formule en VBA

Hello,
Merci de ta réponse,
Je rentre de vacances et je me replonge dans cette question
j'essaye avec la colonne K ... et l'enregistreur de macro,

Code:

Colonne K
=SI($B2>$S$1;"X";"")

cela donne

Code:

Sub Macro1()
    ActiveCell.FormulaR1C1 = "=IF(R[1]C2>R1C19,""X"","""")"
End Sub

et du coup, est-ce que cela est correct ?

Code:

 PRIVATE SUB Formules ()
 With Sheets("COMPTE)
 Dim I, j As Integer

j = .Range("A1").End(xlDown).Row

For I = 2 To j
.Cells(I, "K").FormulaR1C1 = "=IF(R[1]C2>R1C19,""X"","""")"
Next
End with

end sub

Merki !!!

Bonne journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Août 2015

• #4

Re : Convertion de formule en VBA

Bonjour,

et du coup, est-ce que cela est correct ?

Cliquez pour agrandir...

le meilleur moyen de le savoir est de tester...

on pourrait optimiser ainsi :

Code:

Option Explicit
Sub test()
With Sheets("COMPTE")
    .Range("K1:K" & .Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=IF(R[1]C2>R1C19,""X"","""")"
End With
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 17 Août 2015

• #5

Re : Convertion de formule en VBA

Hello jolie formule

J'ai une erreur d'excution 9 l'indice n'appartient pas à la sélection.

c'est bizarre

Merci

Seb

 

Pièces jointes

• BUDGET - v2 .xlsm

  97.2 KB · Affichages: 33
• BUDGET - v2 .xlsm

  97.2 KB · Affichages: 39

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Août 2015

• #6

Re : Convertion de formule en VBA

Re,

vérifie le nom de l'onglet... comptes (avec un s)....

 

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 17 Août 2015

• #7

Re : Convertion de formule en VBA

.... EFFECTIVEMENT....lol

Bon cela marche nikel ! merci

petite question :
Comme je remplie cet onglet via un usf comme faire pour que cette action de création de formule dans la colonne K (ou autre) s’exécute.

je me dis que cela serait bien de lancer la macro à la validation des données l'usf mais existe-t-il une manière plus efficace ?

Merci

seb

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Août 2015

• #8

Re : Convertion de formule en VBA

Re,

pas sur d'avoir bien compris ton souci, mais tu peux sans doute envoyer le code via un bouton sur ton usf.... ce quand tu valides tes données... A voir...

 

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 17 Août 2015

• #9

Re : Convertion de formule en VBA

Ok je me réexplique,
Je voudrais que cette macro (formules) intervienne au moment de la validation des données (sans cliquer sur un bouton)
--> du coup , appeler la macro (formules) juste avant que l'usf ne se ferme !

ou tout autre solution si elle est optimale

Suis-je plus clair ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Août 2015

• #10

Re : Convertion de formule en VBA

Re,

mets le code dans cette procédure, ce dans le module de l'userform :

Code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'ton code
End Sub

 

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 17 Août 2015

• #11

Re : Convertion de formule en VBA

nikel,
par contre ce que je ne comprends pas c qu'il prend les lignes en décaler.
Je m'explique
dans la ligne 3 J'aurais du avoir "X" en K3 car B3 > S1 et là il me met un "X" en K2 ..... je vois pas ou est l'erreur dans

Code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
With Sheets("COMPTES")
    .Range("K1:K" & .Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=IF(R[1]C2>R1C19,""X"","""")"
End With
End Sub

à moi de commencer en

Code:

k2:k&....

ya un truc que je pige pas ...
tu vois toi ??

 

Pièces jointes

• BUDGET - v2 .xlsm

  101.2 KB · Affichages: 37
• BUDGET - v2 .xlsm

  101.2 KB · Affichages: 40

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Août 2015

• #12

Re : Convertion de formule en VBA

Re,

utilise l'nregistreur de macro et applique ensuite la même formule à la plage concernée... vois pas ta formule dans le fichier et pas trop le temps de chercher...

 

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 17 Août 2015

• #13

Re : Convertion de formule en VBA

effectivement cela a marché, merci

Le bon code est :

Code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
With Sheets("COMPTES")
    .Range("K2:K" & .Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=IF(RC2>R1C19,""X"","""")"
End With
End Sub

allez je me lance pour les autres formules

bonne am

Seb

 

Vote positif 0 Vote négatif

GADENSEB

XLDnaute Impliqué

• 17 Août 2015

• #14

Re : Convertion de formule en VBA

Tout fonctionne avec ta méthode d'analyse mais j'ai une erreur sur :

Code:

    .Range("H2:H" & .Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=IF(RC6]="""","""",IF(ISERROR(SEARCH("" - "",RC6,SEARCH("" - "",RC6)+1)),RIGHT(RC6,LEN(RC6)-SEARCH("" - "",RC6)-2),RIGHT(RC6,LEN(RC6)-SEARCH("" - "",RC6,SEARCH("" - "",RC6)+1)-2)))"

sachant que la formule originelle est :

Code:

=SI(F2="";"";SI(ESTERREUR(CHERCHE(" - ";F2;CHERCHE(" - ";F2)+1));DROITE(F2;NBCAR(F2)-CHERCHE(" - ";F2)-2);DROITE(F2;NBCAR(F2)-CHERCHE(" - ";F2;CHERCHE(" - ";F2)+1)-2)))

Ta une idée ?

Merci de ton aide ;-)

Bonne am
Seb

 

Dernière édition: 17 Août 2015

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Août 2015

• #15

Re : Convertion de formule en VBA

Re,

perso pas formuliste, mais fais bien attention aux références absolues et relatives.... placement du $ quand tu enregistres la macro...

 

Vote positif 0 Vote négatif