Autres Conversion de formule de calcul Excel en VBA

Papychou56

XLDnaute Nouveau
Bonjour à toutes et tous.

Papy patauge...dès qu'il veut s'attaquer au VBA!

Dans une feuille "Exemple", j'ai un ajout de ligne quand la dernière ligne est remplie: pas de problème, ça fonctionne .

Dans cet ajout de ligne, j'ai une cellule avec une formule de calcul:

=> SI(E11=" "; " ";MOYENNE((E11/G4+((I11/I4+K11/K4)/2))/24;((E11+(I11/I4)+(K11/K4))/G4)/24)).....ça fonctionne parfaitement.

Je souhaiterai l'intégrer dans une formule en VBA, du style:

=> Worksheets("Exemple").Cells(der_ligne, 7).Formula = (formule Excel convertie en VBA)

Et là....je bloque! Avez-vous une idée?

D'avance, merci.

P.S.: je travaille avec Excel 2003.
 

frangy

XLDnaute Occasionnel
Bonjour,

VB:
Worksheets("Exemple").Cells(der_ligne, 7).Formula = "=IF(E11="""","""",AVERAGE((E11/G4+((I11/I4+K11/K4)/2))/24,((E11+(I11/I4)+(K11/K4))/G4)/24))"
Cordialement.
 

Papychou56

XLDnaute Nouveau
Worksheets("Exemple").Cells(der_ligne, 7).Formula = "=IF(E11="""","""",AVERAGE((E11/G4+((I11/I4+K11/K4)/2))/24,((E11+(I11/I4)+(K11/K4))/G4)/24))"
Bonjour Frangy et merci pour ton travail.
J'ai essayé le code mais il m'indique "Erreur d'exécution'100a': Erreur définie par l'application ou par l'objet"
Je cherche mais je ne vois pas (rien d'étonnant pour un débutant...).
 

frangy

XLDnaute Occasionnel
Pour avancer, il est souhaitable que tu mettes à disposition un fichier sans données confidentielles et avec le code associé.
Cela permettra de comprendre la cause de cette erreur.

Cordialement.
 

ChRouca

XLDnaute Nouveau
Bonjour à toutes et tous.

Papy patauge...dès qu'il veut s'attaquer au VBA!

Dans une feuille "Exemple", j'ai un ajout de ligne quand la dernière ligne est remplie: pas de problème, ça fonctionne .

Dans cet ajout de ligne, j'ai une cellule avec une formule de calcul:

=> SI(E11=" "; " ";MOYENNE((E11/G4+((I11/I4+K11/K4)/2))/24;((E11+(I11/I4)+(K11/K4))/G4)/24)).....ça fonctionne parfaitement.

Je souhaiterai l'intégrer dans une formule en VBA, du style:

=> Worksheets("Exemple").Cells(der_ligne, 7).Formula = (formule Excel convertie en VBA)

Et là....je bloque! Avez-vous une idée?

D'avance, merci.

P.S.: je travaille avec Excel 2003.
Bonjour,
Remplacez SI par IF, MOYENNE par AVERAGE et le séparateur ; par ,
 

Papychou56

XLDnaute Nouveau
Pour avancer, il est souhaitable que tu mettes à disposition un fichier sans données confidentielles et avec le code associé.
Cela permettra de comprendre la cause de cette erreur.

Cordialement.
Merci Frangy et ChRouca.

Ci-joint mon fichier exemple. Le code doit servir à remplir la cellule "E11" et suivantes dans la colonne, avec un format "hh/mm" et s'enregistre lors du renseignement de la feuille "Profils" à l'aide d'une ComboBox (Bouton "Entrer les données".
 

Fichiers joints

Papychou56

XLDnaute Nouveau
Bonjour Frangy.
Un grand merci pour ton travail. C'est exactement ce que je cherchais à faire.
Maintenant, je vais décortiquer le code pour en apprendre un peu plus .
C'est vraiment super d'avoir des gens comme toi pour aider des débutants comme moi.
 

Discussions similaires


Haut Bas