Renvoyer dans une cellule lorsqu'une ligne change de couleur

Résolu/Fermé

Gopalkri1 - Modifié par pijaku le 27/02/2015 à 07:43
Gopalkri1 - 2 mars 2015 à 09:55

Bonjour,
J'essaye de modifier la macro suivante A: cette macro fonctionne avec un onglet protégé ce qui implique que je ne peux pas partager mon fichier... j'aimerai modifier cette macro pour que lorsque deux cellule d'une ligne est remplie "ici BN et BM, la ligne change de couleur et implique que le fait de cliquer dans une cellule de cette ligne "définit" ici de A à CW-->"If Not Intersect(Target, Range("A:CW"))" me renvois à "A1" ici--> Is Nothing Then Range("A1").Select
cela me permettrai de partager ma feuille et d'empêcher l'écriture dans une ligne de cellule définit même lorsque ma feuille n'est pas protégée!

D'avance merci d'essayer de m'aider

A:

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

A voir également:

Renvoyer dans une cellule lorsqu'une ligne change de couleur
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Site de vente en ligne particulier - Guide
Piratage facebook changer mot de passe - Guide
Partage de photos en ligne - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
28 févr. 2015 à 12:04

bonjour
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

Gopalkri1
2 mars 2015 à 09:55

Super Frenchie83
Je te remercie beaucoup de ton aide
Merci

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Discussions similaires

Newsletters