XL 2010 VBA - Insérer une formule pour certaines cellules

tchi456 · 2 Février 2022

Bonjour,

J'ai des formules dans les cellules des colonnes M et T que je souhaiterais mettre dans un code VBA plutôt qu'inscrire dans chaque cellule.

Voici les formules en question:

Cellules de la colonne M: =SI(ET(L<>"";K<>"";L<>"");J*K*L;"")
Cellules de la colonne T: =SI(ET(S<>"";R<>"";S<>"");Q*R*S;"")

Avez-vous une astuce qui pourrait m'aider?

Mes meilleures salutations,

Thierry

job75 · 2 Février 2022

Bonjour tchi456,

Pas très cohérentes vos formules : dans ET vous avez 2 fois L<>"" et S<>"".

Sinon il n'y a vraiment aucune astuce :

VB:

Sub Test()
[M2:M1000] = "=IF(AND(L2<>"""",K2<>""""),J2*K2*L2,"""")"
[T2:T1000] = "=IF(AND(S2<>"""",R2<>""""),Q2*K2*S2,"""")"
End Sub

A+

tchi456 · 3 Février 2022

Bonjour Job75,

J'ai bien insérer votre formule ci-dessus mais rien ne s'inscrit dans dans les cellules des colonnes M et T.

[M7:M1000] = "=IF(AND(J7<>"";K7<>"",L7<>""),J7*K7*L7,"")"
[T7:T1000] = "=IF(AND(Q7<>"";R7<>"",S7<>""),Q7*R7*S7,"")"

Est-ce que ça change qqch de mettre 4 guillemets plutôt que 2?

Meilleures salutations,

Thierry

tchi456 · 3 Février 2022

Je joins un fichier test comme exemple.

job75 · 3 Février 2022

Bonjour tchi456, le forum,

tchi456 à dit:
Est-ce que ça change qqch de mettre 4 guillemets plutôt que 2?

Ben vous n'avez qu'à essayer !!!

Dans le fichier joint vos formules en notation R1C1 vont bien, celles-ci en notation A1 aussi :

VB:

Sub Test1()
    With Sheets("Test")
        .Range("M7:M1000") = "=IF(COUNTBLANK(J7:L7),"""",J7*K7*L7)"
        .Range("T7:T1000") = "=IF(COUNTBLANK(Q7:S7),"""",Q7*R7*S7)"
    End With
End Sub

Si vous ne connaissez pas renseignez-vous sur la fonction NB.VIDE (COUNTBLANK).

A+

tchi456 · 3 Février 2022

job75 à dit:
Bonjour tchi456, le forum,

Ben vous n'avez qu'à essayer !!!

Dans le fichier joint vos formules en notation R1C1 vont bien, celles-ci en notation A1 aussi :

VB:

Sub Test1() With Sheets("Test") .Range("M7:M1000") = "=IF(COUNTBLANK(J7:L7),"""",J7*K7*L7)" .Range("T7:T1000") = "=IF(COUNTBLANK(Q7:S7),"""",Q7*R7*S7)" End With End Sub

Si vous ne connaissez pas renseignez-vous sur la fonction NB.VIDE (COUNTBLANK).

A+

Bonjour Job75,

Si je comprends bien il pas possible de se passer de la formule dans les cellules.

job75 · 3 Février 2022

tchi456 à dit:
Si je comprends bien il pas possible de se passer de la formule dans les cellules.

Bah c'est classique, pour ne conserver que les valeurs :

VB:

        .Range("M7:M1000") = .Range("M7:M1000").Value
        .Range("T7:T1000") = .Range("T7:T1000").Value

XL 2010 VBA - Insérer une formule pour certaines cellules

tchi456

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

tchi456

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

tchi456

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires