Autres Conversion de formule de calcul Excel en VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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...).
 
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 ,
 
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".
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
214
Réponses
10
Affichages
500
Réponses
4
Affichages
445
Réponses
6
Affichages
392
Retour