Bonjour,
j'ai un tableau qui se cré par VBA.
comment faire pour que dans ma colonnes H, je puisse y insérer une formule
qui ne s'éxécute que lorsque la celulle A est non vide?
merci.
Yann
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Il faut modifier la formule de l'exemple :
Sub test() Dim c As Range, Plage As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",""TAFORMULE"","""")" Next c End Sub
Cordialement. Daniel "Sunburn" a écrit dans le message de news:
Bonjour, j'ai un tableau qui se cré par VBA. comment faire pour que dans ma colonnes H, je puisse y insérer une formule qui ne s'éxécute que lorsque la celulle A est non vide? merci. Yann
Bonjour.
Il faut modifier la formule de l'exemple :
Sub test()
Dim c As Range, Plage As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",""TAFORMULE"","""")"
Next c
End Sub
Cordialement.
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 9FBFE72E-D793-4755-BFA0-AA02F3167A5F@microsoft.com...
Bonjour,
j'ai un tableau qui se cré par VBA.
comment faire pour que dans ma colonnes H, je puisse y insérer une formule
qui ne s'éxécute que lorsque la celulle A est non vide?
merci.
Yann
Bonjour. Il faut modifier la formule de l'exemple :
Sub test() Dim c As Range, Plage As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",""TAFORMULE"","""")" Next c End Sub
Cordialement. Daniel "Sunburn" a écrit dans le message de news:
Bonjour, j'ai un tableau qui se cré par VBA. comment faire pour que dans ma colonnes H, je puisse y insérer une formule qui ne s'éxécute que lorsque la celulle A est non vide? merci. Yann
Sunburn
Re, en fait, il bug. ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D * le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1 moi je voudrais qu'il effectue le calcul. C'est possible? Merci. Yann
Re,
en fait, il bug.
ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D
* le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1
moi je voudrais qu'il effectue le calcul. C'est possible?
Merci.
Yann
Re, en fait, il bug. ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D * le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1 moi je voudrais qu'il effectue le calcul. C'est possible? Merci. Yann
Daniel
Si je comprends bien : Sub test() Dim c As Range, Plage As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")" Next c End Sub Daniel "Sunburn" a écrit dans le message de news:
Re, en fait, il bug. ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D * le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1 moi je voudrais qu'il effectue le calcul. C'est possible? Merci. Yann
Si je comprends bien :
Sub test()
Dim c As Range, Plage As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
c.Offset(, 7).FormulaR1C1 =
"=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")"
Next c
End Sub
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 1E566BB2-93D6-45BD-860B-88E5BCB08EFF@microsoft.com...
Re,
en fait, il bug.
ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne
D
* le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1
moi je voudrais qu'il effectue le calcul. C'est possible?
Merci.
Yann
Si je comprends bien : Sub test() Dim c As Range, Plage As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")" Next c End Sub Daniel "Sunburn" a écrit dans le message de news:
Re, en fait, il bug. ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D * le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1 moi je voudrais qu'il effectue le calcul. C'est possible? Merci. Yann
Jacky
Bonjour,
moi je voudrais qu'il effectue le calcul. C'est possible? '----------
Sub jj() Dim c As Range, Plage As Range, x As Long Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage x = c.Row If c <> "" Then Range("h" & x) = Range("d" & x) * Range("f" & x) / 151.67 * 1.47 Next c End Sub '---------- -- Salutations JJ
"Daniel" a écrit dans le message de news: %
Si je comprends bien : Sub test() Dim c As Range, Plage As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")" Next c End Sub Daniel "Sunburn" a écrit dans le message de news:
Re, en fait, il bug. ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D * le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1 moi je voudrais qu'il effectue le calcul. C'est possible? Merci. Yann
Bonjour,
moi je voudrais qu'il effectue le calcul. C'est possible?
'----------
Sub jj()
Dim c As Range, Plage As Range, x As Long
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
x = c.Row
If c <> "" Then Range("h" & x) = Range("d" & x) * Range("f" & x) /
151.67 * 1.47
Next c
End Sub
'----------
--
Salutations
JJ
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23Y4DVy74GHA.1252@TK2MSFTNGP04.phx.gbl...
Si je comprends bien :
Sub test()
Dim c As Range, Plage As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
c.Offset(, 7).FormulaR1C1 =
"=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")"
Next c
End Sub
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 1E566BB2-93D6-45BD-860B-88E5BCB08EFF@microsoft.com...
Re,
en fait, il bug.
ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la
colonne D
* le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1
moi je voudrais qu'il effectue le calcul. C'est possible?
Merci.
Yann
moi je voudrais qu'il effectue le calcul. C'est possible? '----------
Sub jj() Dim c As Range, Plage As Range, x As Long Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage x = c.Row If c <> "" Then Range("h" & x) = Range("d" & x) * Range("f" & x) / 151.67 * 1.47 Next c End Sub '---------- -- Salutations JJ
"Daniel" a écrit dans le message de news: %
Si je comprends bien : Sub test() Dim c As Range, Plage As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")" Next c End Sub Daniel "Sunburn" a écrit dans le message de news:
Re, en fait, il bug. ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D * le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1 moi je voudrais qu'il effectue le calcul. C'est possible? Merci. Yann
Sunburn
Re, oui ça fonctionne impec. par contre je voudrais avoir le résultat, avec séparateur de milliers et avec 2 virgules. C'est possible? Yann
Si je comprends bien : Sub test() Dim c As Range, Plage As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")" Next c End Sub Daniel "Sunburn" a écrit dans le message de news:
Re, en fait, il bug. ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D * le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1 moi je voudrais qu'il effectue le calcul. C'est possible? Merci. Yann
Re,
oui ça fonctionne impec.
par contre je voudrais avoir le résultat, avec séparateur de milliers et
avec 2 virgules. C'est possible?
Yann
Si je comprends bien :
Sub test()
Dim c As Range, Plage As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
c.Offset(, 7).FormulaR1C1 =
"=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")"
Next c
End Sub
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 1E566BB2-93D6-45BD-860B-88E5BCB08EFF@microsoft.com...
Re,
en fait, il bug.
ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne
D
* le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1
moi je voudrais qu'il effectue le calcul. C'est possible?
Merci.
Yann
Re, oui ça fonctionne impec. par contre je voudrais avoir le résultat, avec séparateur de milliers et avec 2 virgules. C'est possible? Yann
Si je comprends bien : Sub test() Dim c As Range, Plage As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")" Next c End Sub Daniel "Sunburn" a écrit dans le message de news:
Re, en fait, il bug. ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D * le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1 moi je voudrais qu'il effectue le calcul. C'est possible? Merci. Yann
Sunburn
en fait c'(est bon : Sheets("Formation").Columns("I:I").NumberFormat = "# ##0.00"
voili voilou. Yann
Re, oui ça fonctionne impec. par contre je voudrais avoir le résultat, avec séparateur de milliers et avec 2 virgules. C'est possible? Yann
Si je comprends bien : Sub test() Dim c As Range, Plage As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")" Next c End Sub Daniel "Sunburn" a écrit dans le message de news:
Re, en fait, il bug. ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D * le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1 moi je voudrais qu'il effectue le calcul. C'est possible? Merci. Yann
en fait c'(est bon :
Sheets("Formation").Columns("I:I").NumberFormat = "# ##0.00"
voili voilou.
Yann
Re,
oui ça fonctionne impec.
par contre je voudrais avoir le résultat, avec séparateur de milliers et
avec 2 virgules. C'est possible?
Yann
Si je comprends bien :
Sub test()
Dim c As Range, Plage As Range
Set Plage = Range("A1", Range("A65536").End(xlUp))
For Each c In Plage
c.Offset(, 7).FormulaR1C1 =
"=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")"
Next c
End Sub
Daniel
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 1E566BB2-93D6-45BD-860B-88E5BCB08EFF@microsoft.com...
Re,
en fait, il bug.
ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne
D
* le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1
moi je voudrais qu'il effectue le calcul. C'est possible?
Merci.
Yann
en fait c'(est bon : Sheets("Formation").Columns("I:I").NumberFormat = "# ##0.00"
voili voilou. Yann
Re, oui ça fonctionne impec. par contre je voudrais avoir le résultat, avec séparateur de milliers et avec 2 virgules. C'est possible? Yann
Si je comprends bien : Sub test() Dim c As Range, Plage As Range Set Plage = Range("A1", Range("A65536").End(xlUp)) For Each c In Plage c.Offset(, 7).FormulaR1C1 = "=IF(RC1<>"""",RC4*RC6/151.67*1.47,"""")" Next c End Sub Daniel "Sunburn" a écrit dans le message de news:
Re, en fait, il bug. ma formule est Ò*F2/151.67*1.47 en fait, c'est le chiffre de la colonne D * le chiffre de la colonne D /151.67 * 1.47.
il me met ma formule en H1 moi je voudrais qu'il effectue le calcul. C'est possible? Merci. Yann
