Lorsqu'une ligne change de couleur la bloquer en écriture
Résolu
Gopalkri1
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
Gopalkri1 -
Gopalkri1 -
A voir également:
- Lorsqu'une ligne change de couleur la bloquer en écriture
- Partage de photos en ligne - Guide
- Changer de dns - Guide
- Écriture facebook - Guide
- Mètre en ligne - Guide
- Ecriture en gras - Guide
13 réponses
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
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
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
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
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
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
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
Super f894009, tout fonctionne très bien je vous remercie mille fois.