Modification d une macro

Bonjour ,

Cette macro fonctionne très bien je voudrais juste pouvoir et savoir comment modifier comme l exemple ligne 9 et 10 que certaines cellule ne soit pas prise en compte dans le changement de couleurs (actuellement jusqu a 50 lignes ).

Merci

cdt

Bonjour,

Sub Colors()
    Dim Lgn As Range, Col As Range, Plg As Range, clr&, i%, k%
    With ActiveSheet
        Set Lgn = .Range("L3:W3")
        Set Col = .Range("D4:D19")
        Set Plg = .Range("L4:W19")
    End With
    Application.ScreenUpdating = False
    For i = 1 To Plg.Rows.Count
        If Col.Cells(i, 1) = "" Then
            clr = Col.Cells(i, 1).Interior.Color
            Plg.Rows(i).Interior.ColorIndex = xlColorIndexNone
            For k = 1 To Plg.Columns.Count
                If Lgn.Cells(1, k).Interior.Color = clr Then Plg.Cells(i, k).Interior.Color = clr
            Next k
        End If
    Next i
End Sub

Tu mets quelque chose dans la colonne couleurs D : si la cellule n'est pas vide, la ligne sera ignorée.

Bonsoir

Merci de votre réponse , mais la colonne D peux avoir des noms ou des chiffres(voir précèdent post) ,donc cela ne résous pas mon petit problème.

je sais vous allais me répondre "Quand tu poses une question, il est logique d'avoir un résultat précisément adapté à la question que tu as posée. Il faut apprendre à poser la question pour laquelle tu veux effectivement une réponse ! ".

Merci :

CDT

La problématique est simple ! Tu veux dans ton système de traitement pouvoir faire en sorte que des plages (groupes de cellules, définis ici en lignes entières de la plage d'application du traitement, mais qui étaient antérieurement définis comme plage quelconque de cette plage, éventuellement multizones). Il faut donc une signalisation qui puisse s'intégrer à ton projet et à partir de laquelle on puisse dans le code récupérer les critères permettant de cerner les plages à exclure.

Tu es seul à pouvoir définir comment tu souhaites signaler les plages à exclure d'une façon qui s'intègre à ton projet. Et cette signalisation doit pouvoir être prise en charge par le code : soit on sait où trouver cette signalisation, et on sait comment l'interpréter pour identifier les plages à exclure (au niveau de chaque cellule de la plage qu'on traite).

La balle est dans ton camp !

Bonjour ,

Merci de m avoir répondu

Existe t' il une possibilité de pouvoir récupéré l' ensemble des noms ou chiffres de la colonne D vers les colonnes L4: X207 en fonction de la couleur.

Est ce possible en faisant un X dans la colonne F de pouvoir conserver des lignes prédéfini en couleurs aujourd’hui exemple L9 :X10,demain L100:X120.

En espèrent avoir répondu correctement

Merci

CDT

Si ta conservation porte sur des lignes, et si tu veux signaler ces lignes dans une autre colonne que D, c'est possible bien sûr sans problème.

Si tu choisis par exemple F pour ça, il suffit de remplacer If Col.Cells(i, 1) = "" Then par If Col.Cells(i, 3) = "" Then dans la dernière macro proposée...

Si tu modifies la plage d'application en L4:X207, tu modifies également tes plages d'étalonage : D4:D207 et L3:X3. Si tu ajustes ces références dans la macro, le reste suivra.

Cordialement.

Je pense que l on se comprend pas

J en suis toujours au même problème "Existe t' il une possibilité de pouvoir récupéré l' ensemble des noms ou chiffres de la colonne D vers les colonnes L4: X207 en fonction de la couleur.

Est ce possible en faisant un X dans la colonne F de pouvoir conserver des lignes prédéfini en couleurs aujourd’hui exemple L9 :X10,demain L100:X120."

Le décalage de D VERS F ne répond pas a ma question .

Merci

cdt

Existe t' il une possibilité de pouvoir récupéré l' ensemble des noms ou chiffres de la colonne D vers les colonnes L4: X207 en fonction de la couleur.

Dans les documents fournis jusqu'à présent, aucun nom ni chiffre dans la colonne D ! Commence par en mettre et indique précisément ce qu'il doit en advenir, de façon que l'on puisse interpréter exactement ce que tu entends par "récupéré vers". Et on le fera !

Pour le reste, j'ai largement répondu !...

Le décalage de D VERS F ne répond pas a ma question .

Bien sûr que SI ! C'est la réponse nécessaire et strictement suffisante à ta question ! On travaille avec une plage, une ligne de la largeur de la plage, une colonne de la hauteur de la plage. Tu utilises une autre colonne pour un critère, on l'atteint en référence avec la colonne de travail, donc par le décalage qu'elle présente avec cette dernière.

Cordialement.

Bonjour

Voici un fichier avec des noms (des exemples) est il possible de copier les noms et couleur dans les colonnes L4 a X207, les noms de la colonne D SONT VARIABLE COMME LES COULEURS ;

"Dans les documents fournis jusqu'à présent, aucun nom ni chiffre dans la colonne D ! Commence par en mettre et indique précisément ce qu'il doit en advenir, de façon que l'on puisse interpréter exactement ce que tu entends par "récupéré vers". Et on le fera"

MERCI

CDT

Re,

Sub Colors()
    Dim Lgn As Range, Col As Range, Plg As Range, clr&, i%, k%
    With ActiveSheet
        Set Lgn = .Range("L3:W3")
        Set Col = .Range("D4:D19")
        Set Plg = .Range("L4:W19")
    End With
    Application.ScreenUpdating = False
    For i = 1 To Plg.Rows.Count
        If Col.Cells(i, 3) = "" Then
            clr = Col.Cells(i, 1).Interior.Color
            With Plg.Rows(i)
                .Interior.ColorIndex = xlColorIndexNone
                .ClearContents
            End With
            For k = 1 To Plg.Columns.Count
                If Lgn.Cells(1, k).Interior.Color = clr Then
                    With Plg.Cells(i, k)
                        .Interior.Color = clr
                        .Value = Col.Cells(i, 1)
                    End With
                End If
            Next k
        End If
    Next i
End Sub

Cordialement.

MERCI au plaisir de vous posez de mauvaise questions

"Quand tu poses une question, il est logique d'avoir un résultat précisément adapté à la question que tu as posée. Il faut apprendre à poser la question pour laquelle tu veux effectivement une réponse !

Merci

Cordialement.