Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 =...
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,
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 à 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...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.