Résultats de la recherche

  1. E

    Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas

    Merci Dranreb, Je regarde de ce côté. Bonne journée
  2. E

    Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas

    Merci sylvanu, Cette correction fonctionne à merveille. Question Comment rendre exécutable un changement de couleur de fond de cellule par contre... si c'est possible? Encore merci
  3. E

    Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas

    Bonjour, Je n'arrive pas à faire déclencher la macro . Private Sub Worksheet_Change(ByVal Target As Range) Call Remplit End Sub Je veux que la macro Remplit s'exécute lors d'un changement de couleur dans une cellule ou une entrée. Lorsque d'un essai précédent, il y avait une boucle sans fin...
  4. E

    Microsoft 365 Peut-on insérer un code EntireRow.AutoFit dans une Function?

    Merci Dranreb, J'ai ma réponse à ma recherche. Je vais considérer la macro comme solution. Bonne journée
  5. E

    Microsoft 365 VBA Function Recherche d'une couleur et renvoi résultats

    Bonjour, la solution est trouvé avec l'aide de sylvanu. Sub Remplit() DL = [A65500].End(xlUp).Row Set Plage = Range("A13:A" & DL) For L = 4 To 9 Cells(L, "B") = RenvoiResultat(Cells(L, "A"), Plage) Cells(L, "C") = CompterCouleur(Plage, Cells(L, "A")) Next L Rows("4:9").EntireRow.AutoFit...
  6. E

    Microsoft 365 Peut-on insérer un code EntireRow.AutoFit dans une Function?

    Bonjour, J'ai une solution de sylvanu. Ce sera par contre avec macro. Sub Remplit() DL = [A65500].End(xlUp).Row Set Plage = Range("A13:A" & DL) For L = 4 To 9 Cells(L, "B") = RenvoiResultat(Cells(L, "A"), Plage) Cells(L, "C") = CompterCouleur(Plage, Cells(L, "A")) Next L...
  7. E

    Microsoft 365 Peut-on insérer un code EntireRow.AutoFit dans une Function?

    Bonjour, C'est lorsque que je me positionne dans A4 et que je fais un ENTER que B4 s'ajuste en hauteur. Mais ça ne fonctionne pas à partir de la Function avec l'ajout de Range("A4").WrapText = True ni pour Range("B4").WrapText = True. Merci
  8. E

    XL 2016 RechercheV avec plusieurs résultats

    Bonsoir, Ça fonctionne à merveille. Je vais appliquer cette macro sur un changement d'état de la feuille pour qu'il s'exécute automatiquement. Encore merci
  9. E

    XL 2016 RechercheV avec plusieurs résultats

    Bonsoir, Je vérifie demain matin et te reviens. Ça me semble vraiment intéressant et je crois que ce sera la solution. Encore merci.
  10. E

    Microsoft 365 Peut-on insérer un code EntireRow.AutoFit dans une Function?

    Bonjour, Ça ne fonctionne pas. Suite à un changement de couleur dans la feuille, la cellule qui contient la fonction ne s'ajuste pas. Function RenvoiResultat(Choix As Variant, Plage As Variant) Application.Volatile c = Choix.Interior.ColorIndex For Each cell In Plage If...
  11. E

    Microsoft 365 Peut-on insérer un code EntireRow.AutoFit dans une Function?

    Bonjour, J'ai une fonction dont je désire que la hauteur de la cellule A4 s'ajuste automatiquement suite ;a l'ajout ou retrait de données dans celle-ci. Est-il possible de mettre un code à même la Function? Function RenvoiResultat(Choix As Variant, Plage As Variant) Application.Volatile...
  12. E

    XL 2016 RechercheV avec plusieurs résultats

    Merci sylvanu, Je vais l'utiliser en attente. BFDS ;)
  13. E

    XL 2016 RechercheV avec plusieurs résultats

    Bonjour sylvanu, Question J'ai formaté la ligne 5 pour une ajustement automatique de la hauteur mais quand des lignes vertes s'ajoutent ou se retirent, la hauteur de ligne ne s'ajuste pas automatique. Donc des résultats ne sont pas visibles dans la cellules ou que des sauts de lignes demeurent...
  14. E

    XL 2016 RechercheV avec plusieurs résultats

    Bonjour sylvanu, C'est exactement ce que je cherchais. Je suis débutant et viens de comprendre qu'un array a ses particularités. Encore merci;)
  15. E

    XL 2016 RechercheV avec plusieurs résultats

    Bonjour, Peut-on utilisé ce code pour une recherche plutôt par couleur. J'ai tenté avec cette modification mais le résultat renvoyé est #VALEUR. Function RenvoiResultat(Choix As Range, Plage As Range) t = Plage c = Choix.Interior.ColorIndex For i = 13 To UBound(t) If t(i...
  16. E

    Microsoft 365 VBA Function Recherche d'une couleur et renvoi résultats

    Bonjour, Je buche... je cherche l'erreur. J'essai ce code simple mais toujours comme résultat #VALEUR! en modifiant certains paramètre. Function RenvoiResultat(Choix As Range, Plage As Range) t = Plage c = Choix.Interior.ColorIndex For i = 13 To UBound(t) If t(i...
  17. E

    Microsoft 365 VBA Function Recherche d'une couleur et renvoi résultats

    Bonsoir, Je me concentre sur la couleur en A4 soit vert foncé pour l'instant. Je verrai pour trouver par la suite car tenter de par moi-même également. :) Je veux que la recherche couleur de A4 me renvoi les nos de références de la colonne B. Pour les autres couleurs, j'ai seulement besoin du...
  18. E

    Microsoft 365 VBA Function Recherche d'une couleur et renvoi résultats

    Bonjour, J'essai avec ce jumelage mais sans résultat. Function RenvoiResultat(PlageCouleur As Range, Couleur As Range) Dim CodeCouleur As Integer CodeCouleur = Couleur.Interior.ColorIndex Set CCell = PlageCouleur For Each CCell In PlageCouleur If CCell.Interior.ColorIndex =...
  19. E

    Microsoft 365 VBA Function Recherche d'une couleur et renvoi résultats

    Bonjour, J'ai fait une recherche et je n'ai pas trouvé. J'ai une fonction qui compte le nombre de cellule d'une couleur dans une plage. J'ai une fonction qui recherche une donnée dans une plage et renvoi les résultats dans une seule cellule. J'aimerais une fonction qui recherche une couleur...
  20. E

    Englobe

    Bonjour à tous. J'ai à utiliser et créer des fichiers Excel dans le cadre de mon travail. Je ne suis un expert mais débrouillard. Suite à des recherche j'ai navigué sur ce site et j'ai pu voir le sérieux et l'esprit de partage... c'est ce qui m'a motiver à être membre. Merci