Registre scolaire

michel.dupont

XLDnaute Occasionnel
sans doute d'une simplicité monstre...mais je n'arrive pas a automatiser par macro un calendrier qui met les élèves en a (absence) les samedis et dimanches...
en attaché mon petit fichier
merci de votre aide et meilleurs vœux !!!!
Michel Dupont
 

Pièces jointes

  • Test.xls
    137 KB · Affichages: 46
  • Test.xls
    137 KB · Affichages: 54
  • Test.xls
    137 KB · Affichages: 61

camarchepas

XLDnaute Barbatruc
Re : Registre scolaire

Bonsoir Manporta, Michel ,

un solution vba

Code:
Sub Absent()
Dim ColonneLettre As String, Colonne As Range

For Each Colonne In Range("B4:BM4")
If InStr(1, "SD", Colonne) > 0 Then
  ColonneLettre = Split(Colonne.Address, "$")(1)
   Range(ColonneLettre & 6 & ":" & ColonneLettre & 25) = "a"
End If
Next Colonne
 

Discussions similaires

Réponses
17
Affichages
1 K
Réponses
11
Affichages
906

Statistiques des forums

Discussions
312 501
Messages
2 089 014
Membres
104 005
dernier inscrit
Maxence