Affichage dans une cellule

Bonjour à tous

Dans mon fichier ci-joint, j'ai un problème d'affichage dans les cellules 1B-1C et 1D. Je ne peux plus écrire une entête.

Merci pour votre aide

José

Bonjour,

remplace ou modifie B1 par B3 de la plage

à voir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect, Z$, plage
Dim Flig&, ig&
Flig = Cells(Rows.Count, 1).End(xlUp).Row
plage = "B3:D" & Flig
    If Target.Count = 1 Then
        Z = Target.Value
        Lig = Target.Row
        Set isect = Application.Intersect(Target, Range(plage))
            If Not isect Is Nothing Then
                Range("B" & Lig & ":D" & Lig).ClearContents
                Target.Value = IIf(Z = "", "ü", "")
            End If
    End If
End Sub

crdlt,

André

Bonjour,

vous avez un code événementiel qui surveille ces trois colonnes afin de "déplacer" la coche "valide" d'une colonne à l'autre.

Votre code surveille à partir de la ligne 1 !

Hors il faut le limité à partir de la ligne 3 celle qui se trouve juste en dessous de la ligne d'entête.

Voici le code corrigé :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect, Z$, plage
Dim Flig&, ig&
Flig = Cells(Rows.Count, 1).End(xlUp).Row
plage = "B3:D" & Flig
    If Target.Count = 1 Then
        Z = Target.Value
        Lig = Target.Row
        Set isect = Application.Intersect(Target, Range(plage))
            If Not isect Is Nothing Then
                Range("B" & Lig & ":D" & Lig).ClearContents
                Target.Value = IIf(Z = "", "ü", "")
            End If
    End If
End Sub

On voit bien que l'on surveille à partir de B3...

@ bientôt

LouReeD

Merci à tous

A bientôt

José

Merci @ vous !

Bonjour Andre13

@ bientôt

LouReeD