Probleme de condition et d'application d'une macro

Bonjour,

j'aimerai que la formule ou la macro me remplisse les cellules lorsqu'elles sont vides avec un P comme présent et un A comme absents sans toucher aux cellules contenant déjà une donnée.La cellule C5 contient une formule mais qui efface toutes les cellules lorsque je l'étend vers toutes les cellules.La macro elle s'applique sur la cellule C4 j'aimerais pouvoir l'appliquer a toutes les cellules

Merci beaucoup de votre aide

PS:je precise je ne connait pas VBA

Salut,

Tu peux essayer ceci:

Const LIG_DEB As Byte = 4
Const LIG_FIN As Byte = 9
Const COL_DEB As Byte = 3
Const COL_FIN As Byte = 33

Sub CommandButton1_Click()
    Dim Col As Byte, Lig As Byte

    For Col = COL_DEB To COL_FIN
        For Lig = LIG_DEB To LIG_FIN
            If Cells(Lig, Col).Value = "" Then
                With Cells(LIG_DEB - 1, Col)
                    Cells(Lig, Col).Value = IIf(.Value = "M" Or .Value = "A" Or .Value = "A", "P", "A")
                End With
            End If
        Next Lig
    Next Col
End Sub

++

Bonjour,

Merci Minick ça fonctionne

J'ai juste modifié une valeur dans cette ligne "Value = "M" Or .Value = "A" Or .Value = "A", "P", "A")

il y avait un A que j'ai remplacé par un N.

encore merci pour ton efficacité.