Lorsqu'une ligne change de couleur la bloquer en écriture
Résolu/Fermé
Gopalkri1
Messages postés
20
Date d'inscription
mardi 29 juillet 2014
Statut
Membre
Dernière intervention
13 février 2018
-
7 janv. 2015 à 14:57
Gopalkri1 - 25 févr. 2015 à 07:36
Gopalkri1 - 25 févr. 2015 à 07:36
A voir également:
- Lorsqu'une ligne change de couleur la bloquer en écriture
- Écriture facebook - Guide
- Ecriture instagram - Guide
- Aller à la ligne excel - Guide
- Comment ne pas apparaître en ligne sur whatsapp - Guide
- Copiez la ligne indiquant aux moteurs de recherche de ne pas référencer la page. ✓ - Forum Référencement
13 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
7 janv. 2015 à 16:16
7 janv. 2015 à 16:16
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
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
Gopalkri1
Messages postés
20
Date d'inscription
mardi 29 juillet 2014
Statut
Membre
Dernière intervention
13 février 2018
Modifié par pijaku le 9/01/2015 à 11:38
Modifié par pijaku le 9/01/2015 à 11:38
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:
Dans mon fichier qui est plutôt lourd j'actionne aussi le solveur par le programme
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
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
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié par f894009 le 7/01/2015 à 16:42
Modifié par f894009 le 7/01/2015 à 16:42
Re,
J'ai pris votre code et je n'ai pas d'erreur 1004 !!!!!!!!!!!
J'ai pris votre code et je n'ai pas d'erreur 1004 !!!!!!!!!!!
Gopalkri1
Messages postés
20
Date d'inscription
mardi 29 juillet 2014
Statut
Membre
Dernière intervention
13 février 2018
8 janv. 2015 à 07:14
8 janv. 2015 à 07:14
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.
Je te mets mon fichier en pièce jointe
https://www.cjoint.com/?3AihuPzqdm2
D'avance merci.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Gopalkri1
Messages postés
20
Date d'inscription
mardi 29 juillet 2014
Statut
Membre
Dernière intervention
13 février 2018
8 janv. 2015 à 07:20
8 janv. 2015 à 07:20
Excuse moi f894009 le mot de passe du code est Gopalkri1
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
8 janv. 2015 à 10:48
8 janv. 2015 à 10:48
Bonjour,
je recupere votre fichier et vous tiens au courant
A+
je recupere votre fichier et vous tiens au courant
A+
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
8 janv. 2015 à 11:06
8 janv. 2015 à 11:06
Re,
fichier modifie: https://www.cjoint.com/c/EAilnOijIwW
protection feuille GENERAL, mais accessible par le VBA
suppression filtre a la fermeture
fichier modifie: https://www.cjoint.com/c/EAilnOijIwW
protection feuille GENERAL, mais accessible par le VBA
suppression filtre a la fermeture
Gopalkri1
Messages postés
20
Date d'inscription
mardi 29 juillet 2014
Statut
Membre
Dernière intervention
13 février 2018
8 janv. 2015 à 14:00
8 janv. 2015 à 14:00
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
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
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
8 janv. 2015 à 15:04
8 janv. 2015 à 15:04
Re,
fichier modifie: https://www.cjoint.com/c/EAipmE5TjqS
A+
fichier modifie: https://www.cjoint.com/c/EAipmE5TjqS
A+
Gopalkri1
Messages postés
20
Date d'inscription
mardi 29 juillet 2014
Statut
Membre
Dernière intervention
13 février 2018
9 janv. 2015 à 11:36
9 janv. 2015 à 11:36
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
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
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
9 janv. 2015 à 16:14
9 janv. 2015 à 16:14
Bonjour,
je regarde la chose
A+
je regarde la chose
A+
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
9 janv. 2015 à 16:20
9 janv. 2015 à 16:20
Re,
macro222 et Sub activ_event_excel() un copier/coller non modifie (ligne en gras)
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
Gopalkri1
Messages postés
20
Date d'inscription
mardi 29 juillet 2014
Statut
Membre
Dernière intervention
13 février 2018
9 janv. 2015 à 17:29
9 janv. 2015 à 17:29
Super f894009, tout fonctionne très bien je vous remercie mille fois.
Si vous venez sur Lyon ou si vous y êtes c'est avec plaisir que je paye une bonne bouffe Merci beaucoup!!!!
Si vous venez sur Lyon ou si vous y êtes c'est avec plaisir que je paye une bonne bouffe Merci beaucoup!!!!
Gopalkri1
Messages postés
20
Date d'inscription
mardi 29 juillet 2014
Statut
Membre
Dernière intervention
13 février 2018
9 janv. 2015 à 17:30
9 janv. 2015 à 17:30
Super f894009, tout fonctionne très bien je vous remercie mille fois.
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
9 janv. 2015 à 18:10
9 janv. 2015 à 18:10
Re,
tout le plaisir fut pour moi.
tout le plaisir fut pour moi.
Gopalkri1
>
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
25 févr. 2015 à 07:36
25 févr. 2015 à 07:36
Bonjour f894009,
J'aurais besoins d'une petite aide, lorsque j'applique le programme et que j'active les macro je n'ai plus accès aux filtres... et je n'arrive pas à débloquer ma situation pouvez vous m'aider s'il vous plait
merci
J'aurais besoins d'une petite aide, lorsque j'applique le programme et que j'active les macro je n'ai plus accès aux filtres... et je n'arrive pas à débloquer ma situation pouvez vous m'aider s'il vous plait
merci