Fonction FormulaR1C1 qu ine marche pas tout les jours

Fonction FormulaR1C1 qu ine marche pas tout les jours - VB/VBA/VBS - Programmation

Marsh Posté le 09-01-2006 à 17:58:43    

Bonjour,
 
je travaille avec Excel et ses macros. Ca ressemble a du VB, c'est pour ca que je suis venu ici  
Je souhaiterai faire une fonction macro qui calcul un total dans un tableau.
 
Pour cela je fais "enregistrer la macro". ensuite a l'ecran je fais les étapes de ma requete. Puis je stope l'enregistrement.  
Excel ma généré une macro de la sorte:
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/01/2006 par opala
'
    Range("B17" ).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-12]C:R[-1]C)"
End Sub
 
Quand j'execute cette macro. le calcul se passe tres bien. Malheureusement, si j'insert ce code dans une fonction inclus dans mon fichier globale.xlm, fichié regroupant toutes les fonctions, j'ai une erreur à l'exécution:
'Erreur d'éxécution '1004' Erreur définie par l'application ou par l'objet'
 
Quand je fais un dégogage, l'appli s'arrete sur la formule FormulaR1C1
 
Merci pour vos réponses concernant mon problème
Molarisapa

Reply

Marsh Posté le 09-01-2006 à 17:58:43   

Reply

Marsh Posté le 09-01-2006 à 18:34:19    

c'est bon. j'ai trouvé.
je n'utilise pas Forumula, mais tout simplement:
 
Range("B17" ) = "=SOMME(B5:B16)"
 
par contre j'ai du mettre SOMME au lieu de SUM, donc je me demande si ma macro sera compatible avec une version US de Excel
 
Molarisapa

Reply

Marsh Posté le 27-11-2007 à 18:04:14    

Je up ce thread car j'ai besoin d'aide pour un problème identique :  
 
Mon but est, dans une macro, d'insérer à chaque ligne à la colone 5 une formule "=rechercheV(mon_numéro_de_ligne:colonne_1 ; zonne_de_recherche;...)"
avec numéro de ligne qui est une variable, puisque cette formule est dans une boucle.
 
J'ai essayé des tonnes de trucs style :
 

Worksheets(famille).Cells(z, 5).Select
ActiveCell.FormulaR1C1Local = "=RECHERCHEV(Cells(z, 1);commentaires!A:B;2;FAUX)"


 
Mais rien n'y fait.
 
Vous pouvez m'aider ?


Message édité par tuxbleu le 27-11-2007 à 18:04:44
Reply

Marsh Posté le 28-11-2007 à 10:31:00    

:bounce:

Reply

Marsh Posté le 29-11-2007 à 12:11:00    

voilà
 
ActiveCell.FormulaR1C1Local = "=RECHERCHEV(L" & z & "C1;commentaires!C1:C2;2;FAUX)"
 
 
Dans ton exemple Cells(z, 1)  est considéré comme du texte car entre guillemets
Et A:B est incorrect car tu utilises une fonction qui requiert du L1C1 (FormulaR1C1Local dans ton cas)

Reply

Marsh Posté le 29-11-2007 à 14:47:05    

merci,
 
J'ai contourné le problème en utilisant la fonction VB qui correspond à rechercheV :  
Application.WorksheetFunction.VLookup()
Et ca marche pas mal :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed