Résultats de la recherche

Comme je suis débutant sur Excel, est ce que c'est possible de m'expliquer le raisonnement svp ?

Bonjour à tous, Je souhaite créer 2 graphiques qui permettent de colorier les écarts: 1er Graphique "CA MENSUEL" : Colorier les zones d'écarts mensuels avec 2 couleurs Verte : si courbe 2019 > courbe 2018 Rouge : si courbe 2018 > courbe 2019 2è Graphique "VARIATION CA MENSUEL" : Colorier les...

Je vous remercie !

Bonjour, Je reviens vers vous au sujet de la variable qui calcule le nombre traité dans la boucle. J'ai essayé votre VBA, Excel m'affiche à la fin le nombre 152, au lieu de 4. Dim no_fichier As Integer no_fichier = 0 ..... no_fichier= no_fichier + 1 End If

J'ai exécuté le dernier VBA que vous m'avez transmit, mais le fichier beugue. Modifications effectuées : Dim no_fichier As Integer no_fichier = 0 End If APRES no_fichier= no_fichier + 1

Bonsoir, Problème du 1èr code est résolu : End If Next objFile End If 'dans chaque condition. Je vous remercie ! Par contre dans le code ci-dessus, je souhaite savoir comment compter le nombre des fichiers crées dans la boucle SVP ? "no_fichier" dans "MsgBox" ne m'affiche pas le...

Bonjour, Je reviens vers vous encore une fois, j'ai rajouté une 3è condition dans le VBA et j'ai le même soucis, ça blogue au niveau de "Next i". Est ce que vous avez une idée de ce qu'il faut faire s'il vous plait ? Sub DELETE_SHEETS() lastrow = Range("G" & Rows.Count).End(xlUp).Row Wb =...

Désolé, il y a pas de "no_metier" dans le code, c'est "no_sport". Dim no_fichier As Integer no_fichier = 1 strCheminSource = ActiveWorkbook.FullName lder = ThisWorkbook.Worksheets("PARA").Range("B" & Application.Rows.Count).End(xlUp).Row derfichier = lder - 9 ' 9 car le tableau commence à...

Je m'excuse, j'ai fait des erreurs dans le dernier code : il y a que "no_fichier" Je viens de corriger à l'instant le VBA précédent que je vous ai adressé. Par contre, je n'ai pas compris votre dernière réponse.

Oui j'ai inclus votre VBA et ça a bien fonctionné ensuite, je vous remercie. Si vous me permettez, je voudrais profiter toujours de l'occasion , j'ai une autre macro avec laquelle j'ai essayé à plusieurs reprises de faire la même choses, sans succès (compter le nombre du traitement dans la...

CA MARCHE ;) ! JE VOUS REMERCIE BEAUCOUP. Une petite question, je souhaite savoir est ce qu'il existe une ligne de code pour COMPTER le nombre des fichiers traités dans la boucle pour les 2 conditions. Dans le code, j'ai mis : nombre = WorksheetFunction.CountIf(Range("G:G"), "OUI") Mais ça ne...

Bonjour à tous :), J'ai une macro qui ouvre des fichiers et supprime, soit la 2è ou la 3è feuille de chaque fichier enregistré dans un répertoire “J9”. Avant la macro fonctionnait bien avec la 1è condition. Lorsque j'ai ajouté la 2è condition (VBA ci-dessous) la macro a cessé de fonctionner...

Bonjour à tous, J'ai une macro qui ouvre des fichiers en passant par un “chemin” renseigné à la cellule “J9”, (puis ensuite, elle importe des données depuis une application). Objectif: A partir d’un tableau (dans l’onglet “Parametres), je souhaite que la macro ouvre UNIQUEMENT les fichiers qui...

Bonjour à tous, Je souhaite mettre en place une macro qui permet de : Déclencher un commentaire ‘’Veuillez Repoter SVP !’’ si on selectionne la valeur ’’SENT’’ dans la liste déroulante des cellules de la colonne B. Je souhaite, si c’est possible que la Macro exécute d’une façon automatique, sur...

Bonjor à tous, Je reviens vers vous au sujet de 2 formules SI(ET(OU( imbriquées que j’ai mis en place. La 1ère lorsque le statut est en "Validé", et la 2ème lorsque le statut est en "Facturé partiel". Les deux formules fonctionnent, certes lorsqu'elles sont saisies séparément. Le but est...

Bonjout à tous, Problème résolu, voici la correction. Bonne journée. =SI(ET(OU(U14<>0;AA14<>0);C14="VALIDÉ";OU(U14>BF14;U14>BN14;AA14>BF14;AA14>BN14));U14+AA14;SI(ET(OU(U14<>0;AA14<>0);C14="FACTURÉ...

Bonjor à tous, J’ai mis en place une formule SI(ET(OU (à l’aide des forums ect). Certes, Excel m’affche un message « Vous avez tapé un nombre trop important d’arguments ». La 2ème et 3ème SI (de la partie des colonnes U) me semble correcte, je pense que c’est la 4ème et 5ème SI (la partie...

Bonne jour à tous, Comme convenu voici le VBA de la macro. Bonne journée. Sub f2_Macro() ' ' F2_Macro Macro ' Range("C:C,D:D").Select Range("D1").Activate Selection.Delete Shift:=xlToLeft Range("I:I,J:J,K:K").Select Range("K1").Activate Selection.Delete Shift:=xlToLeft...

Oui Staple, c'est noté ! Je publierai la macro en question, par contre je peux la publier qu'à partir du lundi prochain, car la macro est enregistré dans un autre PC :(. Bon Week-end à vous ! Las-dias

Ok ! C'est noté. Je vous remercie.