Renvoyer dans une cellule lorsqu'une ligne change de couleur
Résolu/Fermé
A voir également:
- Renvoyer dans une cellule lorsqu'une ligne change de couleur
- Aller à la ligne dans une cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Figer une ligne excel - Guide
- Apparaitre hors ligne whatsapp - Guide
- Sauter une ligne latex - Astuces et Solutions
1 réponse
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
28 févr. 2015 à 12:04
28 févr. 2015 à 12:04
bonjour
Si j'ai bien compris
Cdlt
Si j'ai bien compris
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("A" & lig & ":CW" & lig).Interior.ColorIndex = 15
If Not Intersect(Target, Range("A:CW")) Is Nothing Then Range("A1").Select
End If
End If
End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 15 Then Range("A1").Select
End Sub
Cdlt
2 mars 2015 à 09:55
Je te remercie beaucoup de ton aide
Merci