Addition de croix sur deux emplacements

Bonjour,

J’avais déposé une requête sur l’addition des croix dans des colonnes.

Celle-ci avait été solutionnée. (voir tableau joint).

Dans ma demande d’aujourd’hui, j’aimerais obtenir également l’addition

dans la partie AA24 / AR24, en plus de celle faite en F17 / W17.

(donc deux additions mais à des emplacements différents).

Merci pour vos réponses.

Bonjour

Remplace les deux codes par ceux-ci dessous

Private Sub Addition_Click()
Dim MaPlage As Range, Col As Range
    Set MaPlage = Range("F5:W14")
    For Each Col In MaPlage.Columns
        Col.Offset(12).Resize(1) = Application.CountIf(Col, "x")
        Range(Col.Offset(12).Resize(1).Address).Offset(7, 21) = Range(Col.Offset(12).Resize(1).Address).Value
    Next Col
End Sub

Private Sub Effacement_Click()
    Range("F17:W17,  AA24:AR24").ClearContents
End Sub

Si ok, lors de ta réponse clique sur la case à cocher verte à coté du bouton EDITER pour clôturer le fil

Crdlt

Merci Dan, super, çà marche impeccable.

J'ai une question subsidiaire ne maîtrisant pas le VBA.

Concernant l'emplacement AA24:AR24, s'il se trouvait en faite sur une autre feuille dans un autre classeur,

peut-on envoyer cette addition dans ce cas là, est-ce que cela est possible ?

Si oui, quel en serait alors le code ?

Merci pour ta réponse.

Re

Oui c'est possible avec ce code adapté par exemple

Private Sub Addition_Click()
Dim MaPlage As Range, Col As Range
    Set MaPlage = Range("F5:W14")
    For Each Col In MaPlage.Columns
        Col.Offset(12).Resize(1) = Application.CountIf(Col, "x")
        Workbooks("Nom.xlsx").Sheets("Feuil1").Range(Col.Offset(12).Resize(1).Address).Offset(7, 21) = Range(Col.Offset(12).Resize(1).Address).Value
    Next Col
End Sub

Private Sub Effacement_Click()
ThisWorkbook.ActiveSheet.Range("F17:W17").ClearContents
Workbooks("Nom.xlsx").Sheets("Feuil1").Range("AA24:AR24").ClearContents
End Sub

Avec "Nom.xlsx", le nom de ton fichier et "feuil1" le nom de la feuille dans ce fichier.

Les deux fichiers doivent être ouvert et le classeur actif est celui dans lequel se trouve le tableau et le code

Si ok, veille à clôturer le fil en cliquant sur le V vert à coté du bouton Editer

Crdlt

Merci pour tout Dan.