Résultats de la recherche

Bonjour Dranreb, Merci pour l'astuce. Ç'est vraiment du travail bien fait 💪 Par l'occasion, ne peut-on pas réécrire ceci autrement : With Range("K" & C.Row & ":M" & C.Row).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor =...

Non, ce n'est pas le cas, j'ai juste ce problème :

Bonjour Drabreb, J'ai essayé d'adapter le code et voici ce que j'ai trouvé comme solution : Sub RecupererDonnees() Dim TbDonnees(), TbResultat(), LgResultat&, LgDonnee&, TypeCategorie As String, Categorie As String Dim Couleur As Long TbDonnees =...

Bonsoir TooFatBoy, Dranreb, Merci pour vos réponses 👍 TooFatBoy : Ça évite d'avoir une ligne vide à la fin de chaque catégorie :) Dranreb : Tu as codé simple avec un traitement plus rapide 🫡 Une autre petite demande : Comment puis-je définir une couleur clair différente pour chaque catégorie...

Bonjour, Dans le code en PJ, l'extraction se fait un surplus d'une ligne vide. J'ai essayé de l’éviter mais voila pas moyen. Quelqu'un a-t-il l'idée qui m’échappe ou dois-je coder simple de ce qui a été présenté ? Merci pour votre aide.

Bonjour Patrick, Merci pour tes trucs ;)

Bonjour, Dans mon code global, je dois vérifier si l'entrée dans la colonne A est une date. Si c'est le cas, je procède ensuite à la vérification la date de la ligne précédente. Ensuite, j'initialise DateCrit : If Target.Count > 1 Or IsEmpty(Target) Or Not IsDate(Target) Then Exit Sub...

Private Sub Worksheet_Change(ByVal Target As Range) Dim ws1 As Worksheet Dim dateRow As Variant Dim DateCrit As Variant ' Spécifiez la feuille de calcul Set ws1 = ThisWorkbook.Sheets("Feuil1") If Target.Count > 1 Or IsEmpty(Target) Then Exit Sub ' Vérifiez si la...

Bonsoir Dudu2, Merci 👍 Private Sub Worksheet_Change(ByVal Target As Range) Dim ws1 As Worksheet Dim dateRow As Variant Dim DateCrit As Variant ' Spécifiez la feuille de calcul Set ws1 = ThisWorkbook.Sheets("Feuil1") If Target.Count > 1 Or IsEmpty(Target)...

J'ai compris, merci. Cependant, dans mon code global sur lequel je travaille, DateCrit est défini dans le cours d'exécution du code, et à servit dans plusieurs calculs sans erreurs, mais à chaque fois que cette est atteinte : ' Recherche la date dans la colonne A dateRow =...

Bonjour vgendron, DateCrit est initialisée depuis la feuille1, en C2.

Bonjour à tous, Je dois rechercher une date DateCrit dans la colonne A, mais voila, ce me génère une erreur 2042 sur cette ligne : ' Recherche la date dans la colonne A dateRow = Application.Match(DateCrit, ws2.Range("A2:A" & ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row), 0) Comment...

Bonjour à tous, Ce modèle gère les participations financières d'une ou plusieurs personnes pour un investissement. J'aimerais calculer automatiquement le gain individuel final de chaque participant en utilisant des formules. Cependant, pour y parvenir, je devrai d'abord effectuer des calculs...

Bonjour Bruno, Je vais essayé d'adapter le code. Merci pour ta réponse 🙏

Bonjour, J'aimerais corriger l'erreur #N/A qui est renvoyée lorsque j'utilise la fonction RANG() dans l'exemple en PJ. Merci d'avance.

Staple1600, Merci pour le code. Je vais faire des tests.

Bonjour, J'ai la chaîne suivante à partir de laquelle je voudrais extraire toutes les combinaisons possibles : myayw

Bonjour à tous, J'aimerais utilisé Excel pour générer des mots à partir d'une série de lettres. Comment puis-je procéder ? Merci d'avance.

Bonjour à tous, Triste nouvelle. Merci JB, tes lumières m'ont beaucoup aidé. Tu étais un grand atout pour nous, et tu vas beaucoup nous manquer. Mes sincères pensées à sa famille et ses amis.

merci pour le code.