[vba] Formula R1C1 avec variables

Lulu - Modifié par Lulu le 20/07/2012 à 17:25
 lulu -
Bonjour,

J'ai une petite question concernant les arguments que l'on peut mettre lors de l'utilisation des formula R1C1:

Voilà mon code:
Dans ma cellule active, je veux calculer le sous total de plusieurs cellules issue de l'onglet Feuil1

ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,'Feul1'!R[&c1.row&]C[&c2.Column+1&]:R[&c2.row&]C[&c2.Column+1&])"

Mais ma syntaxe me renvoie une erreur 400 (j'ai aussi essayé en rajoutant les guillemets à la place des crochets, sans succès ...

Quelqu'un aurait il une solution à proposer ?

Merci d'avance

Lulu

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 juillet 2025 1 713
21 juil. 2012 à 08:52
Bonjour,

Pensez a mettre un espace devant et derriere le &

ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,'Feul1'!R[" & c1.Row & "]C[" & c2.Column + 1 & "]:R[" & c2.Row & "]C[" & c2.Column + 1 & "])"

Votre erreur ressemble plus a un probleme de definition de c1 et c2!!!
6

Discussions similaires

VBA - Excel - Tri d'un array numérique
van_horton -
eriiic -

Bonjour,

Je voudrais trier - avec une macro VBA - un array par ordre croissant.

Exemple : MonArray = (4, 5, 3, 2, 1, 7, 8, 6)

Résultat : TriArray = (1, 2, 3, 4, 5, 6, 7, 8)

D'avance merci,

Jerome

6 réponses
VBA pour Excel pour les nuls
Hachimoto2891 -
Hachimoto2891 -

Bonjour,

S'il vous plait je cherche la version électronique du livre "VBA pour Excel pour les nuls" en version PDF ou autres, et ça serait vraiment sympa si cette version est disponible gratuitement (sur un site peut être)!!!??.

Merci d'avance pour votre aide.

2 réponses
VBA remplir une textboxt avec date du jour
Tobar4 -
gbinforme -

Bonjour,

Je travaille actuellement sur un formulaire VBA (Userform) dans lequel je fais apparaitre différentes textbox.
Dans l'une d'entre elle, je demande à l'utilisateur de rentrer la date du jour.

Je souhaiterai que par défaut il m'affiche la date du jour.

Pouvez-vous m'indiquer comment faire ?

Merci par avance,

T.

Configuration: Windows 7 / Firefox 5.0.1

1 réponse
Atteindre la première cellule vide
djerimay -
djerimay -

Bonjour,



Configuration: Windows XP / Internet Explorer 7.0

J'ai réalisé un tableau sur 2 colonnes (A et B) qui s'étend sur toute la feuille jusque la dernière ligne utilisable d'Excel et qui n'est que partiellement rempli (ligne 1048575 est la dernière ligne de la feuille sur un tableau rempli jusque la ligne 335).

J'utilise Excel 2007 office standard et je suis débutant sur cette version ; je n'ai jamais utilisé VBA et je suis incapable de créer une macro.

Peut-on m'expliquer quelle commande/manipulation/macro ou autre je dois réaliser pour atteindre la première cellule vide à remplir de mon tableau sans avoir à de...

15 réponses
Mettre boucle for dans condition if VBA
Jack -
vordano -

Bonjour,

Je voudrais savoir s'il était possible de mettre un boucle for dans une condition if, par exemple:

if UBound(tab_bd)>0 and
for c=0 to UBound(tab_bd)
cells(tab_bd(c),6)=cells(tab_bd(0),6)
cells(tab_bd(c),7)=cells(tab_bd(0),7)
cells(tab_bd(c),8)=cells(tab_bd(0),8)
then
msgbox("ok")
end if

Pour l'instant ça ne marche pas...
Merci d'avance à ceux qui pourront m'éclairer sur ce point.

Configuration: Windows 7 / Firefox 13.0.1

35 réponses
VBA Excel : Alimenter ComboBox
sifusalade -
eriiic -

Bonjour,

J'ai créé un UserForm avec un ComboBox. Ce que je veux, c'est alimenter ce ComboBox avec une liste d'adresses qui sont contenue dans une feuille nommé "Adresses".

Je n'arrive absolument pas à l'alimenter, quoi que je fasse, cette liste reste vide.

Private Sub UserForm1_Activate() Sheets("Adresses").Select Me.ListeDestinataire.RowSource = "a3:" & Range("a3").End(xlDown).Address (j'ai essayé .Range aussi)
End Sub

J'ai même essayé de créer une variable
Dim SourceDestinataire as Range Me.ListeDestinataire.RowSource = SourceDestinataire

Mais rien à faire, dès que je fais dérouler ce ComboBox, il...

22 réponses