XL 2019 mettre des croix automatiquement sur Excel

[fffffeefefef]

bonjour je rencontre un problème j'essaye depuis des jours des mettre de croix automatiquement dans certaines cellules. en faite j'ai un calendrier et je voudrais mettre des croix tous les trois jours notamment afin de représenter une fréquence de passage régulier.
pourriez vous m'aider svp ?

 

[chris]

Bonjour

En D6 à recopier à droite et en-dessous
=SI(MOD(D$5-$C$5;$B6)=0;"X";"")

Je ne vois pas l'intérêt du tableau structuré dont font partie les dates
Il serait plus judicieux de mettre A5:Q8 sous forme de tableau

 

[fffffeefefef]

super merci beaucoup Chris je me suis permis d'arranger ta formule, mais tu m'as beaucoup aidé
=SI(MOD(D$5-$C$5;$B$6);"";"X")

 

[R@chid]

Bonjour @ tous,
Salut Chris,

super merci beaucoup Chris je me suis permis d'arranger ta formule, mais tu m'as beaucoup aidé
=SI(MOD(D$5-$C$5;$B$6);"";"X")

fais attention à ce $

Sinon, on peut directement commencer à C5:

=SI(MOD(JOUR(C$5)-1;$B6)=0;"X";"")

@ tirer vers le bas et vers la droite


Cordialement

 

[mapomme]

Bonjour à tous,

Pour se dégager du début de la prestation (pas forcément en colonne C), un essai en VBA.
Modifier une valeur du tableau (fréquence ou début), le tableau se mettra automatiquement à jour.
(j'ai supprimé le tableau structuré qui n'apporte rien)

 

[job75]

Bonjour fffffeefefef, chris, R@chid, mapomme,

Perso je mettrai en C6 =REPT("X";NON(MOD(C$5-$C$5;$B6)))

qui "pèse" 28 octets en mémoire au lieu de 41 octets pour =SI(MOD(C$5-$C$5;$B6);"";"X")

La fonction SI est en effet gourmande en octets.

A+

 

[fffffeefefef]

Merci à tous pour vos réponses @mapomme tu as réaliser une macro pour le tableau ?

 

[mapomme]

@mapomme tu as réaliser une macro pour le tableau ?

Oui pour le tableau. Mais j'ai converti ton tableau structuré en plage normale. Je ne vois pas ce qu'apporte le tableau structuré. On peut très bien filtrer sans tableau structuré. La macro est dans le module de code rattaché à Feuil1.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim derlig&, dercol&, plage As Range, t, i&, j&, deb&

   If Me.FilterMode Then Me.ShowAllData
   derlig = Cells(Rows.Count, "b").End(xlUp).Row
   dercol = Cells(5, Columns.Count).End(xlToLeft).Column
   Set plage = Range(Cells(6, "b"), Cells(derlig, dercol))
   If Intersect(plage, Target) Is Nothing Then Exit Sub
   t = plage.Value
   For i = 1 To UBound(t)
      For deb = 2 To UBound(t, 2)
         If t(i, deb) <> "" Then Exit For
      Next deb
      For j = deb To UBound(t, 2): t(i, j) = "": Next
      For j = deb To UBound(t, 2) Step t(i, 1): t(i, j) = "X": Next
   Next i
   Application.EnableEvents = False: plage = t: Application.EnableEvents = True
End Sub

 

[fffffeefefef]

parfait merci bcp je me demande juste @mapomme si dans ta macro il est possible de mettre un autre X et d'enlever les précédents si ça tombe un dimanche par exemple

 

[fffffeefefef]

ou juste de pouvoirs écrire dans les cases vides