Contenu récent par Englobe

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

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

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...

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

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...

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...

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

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

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.

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...

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...

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

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...

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;)

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...