| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 03/12/2021 à 12:25 | AdrienM | Activer et désactiver une macro en cour avec des shapes | Ca marche !!! :D Voilà le code sname = Application.Caller For Each sh In ActiveSheet.Shapes If sh.Name Like "Rect*" Then If sh.Name = "Rectangle 3" Then sh.Fill.ForeColor.RGB = vbGreen Else sh.Fill.ForeColor.RGB = RGB(2, 78, 170) End If Next sh Pour les futur intéréssé, "Rectangle 3" c'est le nom de... |
| 03/12/2021 à 09:36 | AdrienM | Activer et désactiver une macro en cour avec des shapes | Encore merci pour tout votre aide, mais j'essaye vos solution depuis un moment et ça ne marche pas encore tout a fait. Ce code la marche bien: sname = Application.Caller For Each sh In ActiveSheet.Shapes If sh.Name = sname Then sh.Fill.ForeColor.RGB = vbGreen Else sh.Fill.ForeColor.RGB = vbRed Next... |
| 03/12/2021 à 07:21 | AdrienM | Activer et désactiver une macro en cour avec des shapes | Merci pour votre réponse. Le principe que je recherche marche parfaitement avec votre solution. Le bouton change de couleur quand je clique dessus et revient à la normale quand je clique sur un autre bouton. Par contre, tout devient rouge tous les bouton, une zone texte et graphique, et la ça me con... |
| 01/12/2021 à 10:28 | AdrienM | Activer et désactiver une macro en cour avec des shapes | J'ai crée une dizaine de formes rectangles, aux quels j'affecte une macro. Cette macro à pour objectif de modifier un graphie selon des paramètres donnés. Dans le même temps, je souhaite que le rectangle change de couleur quand j'active la macro en cliquant sur le bouton, et je souhaite que la coule... |
| 14/07/2021 à 15:38 | AdrienM | XfilterCopy importer des données sans mise en forme | J'ai crée ce petit code VBA pour importer des données issue d'une autre feuille de mon classeur. Sub FiltrerClientsAAA() 'On sélectionne la plage de donnée à copier pour l'importer. O2 c'est l'entête de colonne Sheets("ExportPeséeWork").Range("O4:O5000") _ .AdvancedFilter _ Action:=xlFilterCopy, _ C... |
| 08/07/2021 à 14:52 | AdrienM | Advance filter VBA avec conditions | Comme vous me l'avez conseillez j'ai crée une colonne supplémentaire en A pour faire une formule NBSI afin d'attribué des 0 et des 1 selon mon nom de client dans la feuille qui reçoit les donnée importées. Ensuite j'ai écris le code suivant pour virer les lignes qui ne me convenait pas. Sub Supprime... |
| 08/07/2021 à 11:36 | AdrienM | Advance filter VBA avec conditions | Malheureusement le code supprimait ma plage me donné et ne me copiait pas les données ailleurs. J'ai aussi fait une erreur dans mon énoncé de base. J'ai donc refait mon code et il marche, mais il manque un critère basé sur le nom des clients : Sub FiltrerBEHorsEnCompteFacturation() Sheets("SuiviBENK... |
| 07/07/2021 à 19:26 | AdrienM | Advance filter VBA avec conditions | Bonjour à tous, Je cherche à extraire les numéros de facture payé par n'importe quelle méthode de paiement SAUF " En compte facturatio n" via VBA. Ces numéros de facture doivent être copié et exporté vers une autre feuille. Aussi, certain numéro peuvent apparaitre plusieurs fois. Hors, je souhaite m... |
| 07/07/2021 à 12:19 | AdrienM | Supprimer les espaces fin de cellule dans une colonnes dans une feuille | Merci à vous deux pour vos réponses. Petite dernière question: Que veut dire : "For Each C In Range" et "Trim" dans le code? Bien cordialement... |
| 07/07/2021 à 09:34 | AdrienM | Supprimer les espaces fin de cellule dans une colonnes dans une feuille | Je vais essayer, merci. Du coup, je n'ai pas besoin de nommer la feuille dans laquelle la formule doit travailler... |
| 07/07/2021 à 08:50 | AdrienM | Supprimer les espaces fin de cellule dans une colonnes dans une feuille | Je travaille avec un fichier Excel qui possède 13 Feuilles. Parmi ces 13 feuilles, il y en a une dont je dois nettoyer la colonne. En effet, certaines cellules de cette colonne sont polluées par des espaces en fin de suite de mots. Je cherche donc une macro qui ne laverai que cette colonne de cette... |