XL pour MAC Format conditionnel

[candido57]

Bonjour,
Je voudrait insérer une X si la cellule n’est pas vide .
Par exemple dans la cellule A1 est saisir 50 ou autre chose, il faudrait mettre une X automatiquement dans la cellule F1.

Merci d’avance pour vos réponses.

 

[Staple1600]

Bonjour @candido57 , le fil

Je voudrait insérer une X si la cellule n’est pas vide .

Et nous nous voudrions voir toujours un petit Bonjour commencer une discussion...
(comme le stipule la charte du forum depuis une palanquée d'années désormais)

Sinon plein d'exemples dans les archives du forum, relatifs à ta question
(là aussi voir la charte du forum, qui conseille une petite recherche avant de poser sa question)

 

[candido57]

Oui vous avez raison , excusez moi

 

[candido57]

Voila j’ai modifier ma demande en rajoutant bonjour

 

[Staple1600]

Re,

Une possibilité par formule
En F1
=SI($A1<>"";"X";"")
puis recopie vers le bas

 

[Staple1600]

@candido57

Une version plus esthétique
(par macro)
(à mettre dans le code de la feuille concernée)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
    If Not IsEmpty(Target) Then
        If Target.Count = 1 Then
        With Target.Offset(, 5)
            .Value = "X"
            .Font.Bold = -1
            .BorderAround ColorIndex:=3, Weight:=xlThick
            .HorizontalAlignment = xlCenter
        End With
        End If
    End If
End If
End Sub

 

[candido57]

Ok ça fonctionne.

Merci beaucoup

 

[Staple1600]

Re

@candido57
Tu parles de la formule ou du code VBA ?