Contenu récent par treza88

Merci à vous deux, Mais supprimer : Application.Calculation = xlCalculationAutomatic à résolut mon problème, la macro s'exécute en 6 secondes et je peux reprendre la main, merci gbinforme. Le code ci dessus devait forcer le recalcul du classeur et prendre du temps pour rien.

Bonjour à tous, Je voudrais avoir votre avis sur le temps réel d'exécution d'une macro, je m'explique. J'ai une macro avec avant End Sub le code suivant : Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True If nbNewProject < 2 Then MsgBox "durée du...

Merci laurent950, J'avais essayer comme ça, mais j'ai du me planter quelque part.

Bonjour à tous, j'ai cette erreur, et je ne trouve pas pourquoi, le chemin et le nom de fichier est correct puisqu'il fonctionne 2 lignes au dessus, pouvez vous me dire ce qui cloche. Code : file_Name = "Plan de charge.xlsm" ' Permet à l'utilisateur de sélectionner le fichier source...

Merci sousou, c'est a peu de chose près ce que j'ai fait au post #4, sauf que moi c'est la plage 1 au dessus de la plage 2. Mais j'ai l'erreur : "Argument ou appel de procédure incorrect"

j'ai deux plages dans un fichier source non ouvert dans 2 feuilles différentes et je veux affecter la première plage a un objet Range, puis intégrer/concaténer la deuxième plage dans ce même objet Range en passant par ou plusieurs objet Range. Plage de même largeur, mais hauteur différente...

J'ai essayé ça aussi, mais j'ai sur la deuxième ligne cette erreur : Argument ou appel de procédure incorrect Set plageUnion = Nothing plageUnion1.Copy plageUnion plageUnion2.Copy plageUnion.Offset(plageUnion1.Rows.Count, 0)

Bonjour à tous, Pouvez vous me dire pourquoi j'ai cette erreur sur la dernière ligne du code alors que mes deux autres plages sont remplies correctement et avec le même format. Par contre elles viennent de 2 feuille différente, est ce là le soucis ? Si oui comment puis je les concaténer ...

Merci Cousinub, tellement obnubilé par par les variables objet que je suis passé a coté des bases.

Bonjour à tous, J'ai un problème quand j'essaie de réaffecter une variable objet avec une autre valeur dans une boucle, la variable objet ne semble pas prendre la nouvelle valeur, c'est toujours la première qui reste active. Voici le début de mon code, dans lequel je ne comprends pas ma...

Bonjour, Dans mon cas et après une journée de recherche le numéro de ligne ne fonctionne pas, car ma formule est sur la même ligne en colonne F. Ce qui produit une formule a référence circulaire, donc c'est pour cela que je suis passé par une plage. Et de plus la formule reste matricielle et...

Bonjour et merci TooFatBoy pour la piste de réflexion. J'en suis arrivé à cette formule : INDIRECT(ADRESSE(3;SIERREUR(MAX(COLONNE(I3:XFD3)*(I3:XFD3<>"");COLONNE(J3));4)) Intégré dans ma boucle, ça donne ça : For Each cell In Sheets(feuilleActive).Range("F7" & ":F" & DernCel) If...

Merci pour vos proposition à vous deux, vous êtes toujours de bon conseil. Je vais tester l'affectation à un string, je ne pensais même pas que ça pouvais se faire. FormulaARRAY (que je ne connaissais pas) ne conviendra pas je pense, car ce n'est pas la même formule sur chaque lignes. Le TS ne...

Bonjour à tous, Je cherche comment je pourrais réduire le temps d'exécution d'une macro qui modifie environ 700 formules. Dans le fonctionnement, j'ai un tableau de environ 700 lignes avec des formules dans un colonne par exemple la F, ce tableau est actualiser toutes les semaines et on y...

Merci pour ton exemple de code laurent950 et ta simplification Phil69970. Par contre je me pose une question sur ce code, si c'est pour une extension du tableau, quel est l’intérêt de supprimer les encadrements déjà existant ? De mon coté je vois ça comme une opération inutile et...