Lorsqu'une ligne change de couleur la bloquer en écriture

Re,

Vous allez en ecrire combien des message pour le meme sujet ????

Je vous ai demande dans votre message precedent de mettre votre fichier a dispo pour pouvoir vous aider

Excusez moi f894009 je n'ai pas reçu le message précédent, c'est pour cela que je ne vous ai pas répondu.
En fait lorsque j'associe le programme que vous m'avez donné à mon fichier j'ai une erreur 1004 a la ligne :Range("BQ" & lig & ":CW" & lig).Interior.Color = vbRed dans ce programme:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C4:C60020")) Is Nothing Then Range("A1").Select
If Not Intersect(Target, Range("E4:M60020")) Is Nothing Then Range("A1").Select
'If Not Intersect(Target, Range("AX4:BD60020")) Is Nothing Then Range("A1").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    'deverrouiller et modifier les cellules
    If Not Application.Intersect(Target, Range("BM4:BM6000,BN4:BN6000")) Is Nothing Then
        lig = Target.Row
        If Range("BM" & lig) <> "" And Range("BN" & lig) <> "" Then
            'repondre au message
            retval = MsgBox("Archiver la ligne", vbYesNo, "VALIDATION SAISIE")
            ' si oui verrouiller cellules
            If retval = vbYes Then
                Range("BQ" & lig & ":CW" & lig).Interior.Color = vbRed
                Range("BQ" & lig & ":CW" & lig).Locked = True
            Else
            End If
        End If
    End If
End Sub

Dans mon fichier qui est plutôt lourd j'actionne aussi le solveur par le programme

' Macro222 Macro
'
Dim i
i = Range("F2").Value
Sheets("GENERAL").Select
    SolverOk SetCell:="$CI$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$CH$" & i
    SolverSolve True
End Sub

En fait c'est cette erreur 1004 qui m'embête... c'est pour cela que je voudrais protéger les cellules lorsqu'elles sont en couleur

Bien cordialement f894009

Re,

J'ai pris votre code et je n'ai pas d'erreur 1004 !!!!!!!!!!!

Bonjour f894009, peux tu m'aider encore un petit pet s'il te plait, lorsque je protège mon tableau dans l'onglet protéger la feuille j'ai erreur 1004, par contre lorsque je retire la protection je n'ai plus cette erreur!
Je te mets mon fichier en pièce jointe

https://www.cjoint.com/?3AihuPzqdm2
D'avance merci.

Excuse moi f894009 le mot de passe du code est Gopalkri1

Bonjour,

je recupere votre fichier et vous tiens au courant

A+

Re,

fichier modifie: https://www.cjoint.com/c/EAilnOijIwW

protection feuille GENERAL, mais accessible par le VBA
suppression filtre a la fermeture

Merci f894009,
je ne sais pas ce que vous avez modifiez mais c'est très bien. Mais lorsque j'utilise le bouton du solveur pour faire mes calculs j'ai erreur 1004 méthode range de l'objet Workseet a échoué... je n'y arrive pas... pouvez vous m'aider s'il vous plait merci encore

Re,

fichier modifie: https://www.cjoint.com/c/EAipmE5TjqS

A+

Bonjour f894009,
Lorsque j'utilise le solveur, la protection de la ligne en fonction de la saisie dans deux cellule ne fonctionne plus est-il possible par exemple d'utiliser le solveur et après de protéger les lignes validées? soit avoir les deux fonctions en même temps?
Merci de votre réponse.
Bien cordialement

Bonjour,

je regarde la chose

A+

Re,

macro222 et Sub activ_event_excel() un copier/coller non modifie (ligne en gras)

Sub Macro222()
'Macro Krishna GOPAL le 27/07/2014
' Macro222 Macro
'
    Dim i
    Application.EnableEvents = False
    i = Range("G1").Value
    Sheets("GENERAL").Select
    SolverOk SetCell:="$CI$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$CH$" & i
    SolverSolve True
    <gras>Application.EnableEvents = True</gras>
End Sub

Sub activ_event_excel()
    Application.EnableEvents = <gras>True</gras>
End Sub

Super f894009, tout fonctionne très bien je vous remercie mille fois.