Tableau excel

Hello,

@JCB40 StatutMembre quelques questions :

- Pourquoi faire des boucles sur toutes les cellules de chaque tableau pour mettre les valeurs alors la macro est activé à chaque saisie grace à Worksheet_Change ?

- Pourquoi calculer systématiquement à chaque changement, dans le VBA, les totaux ?
Range("D39").Value = Range("D30").Value + Range("D33").Value + Range("D36").Value

Range("J39").Value = Range("J30").Value + Range("J33").Value + Range("J36").Value
La fonctions SOMME(D30:D38) fait parfaitement l'affaire et n'est déclenché que s'il y a changement dans les cellules concernées

OK, il y a peu de cellule et la feuille étant peu rempli ça ne change pas grand chose, mais je trouve ça "pas académique", voici ma proposition qui fait exactement la même chose avec un minimum de macro.

@petithenri StatutMembre j'ai activé la protection pour éviter la saisie dans des cellules qui ne sont pas "à saisir", vous pouvez la désactiver via le bouton Format de l'onglet Accueil, Ôter la protection (je n'ai pas mis de mot de passe)

Si vous avez une très ancienne version c'est dans le menu Outils, Ôter la protection de la feuille.

https://cijoint.org/r/yRGuFtgu#AAfpqMd+zlwzZXgv97QwXbYgjeYMsa8FLOaaawrJ7ZM=

Une version fantaisie

https://cijoint.org/r/6s56bWtU#pGtwstK10J4fNIYejrsHYQO8DefNr8gLpPeRZf/OTzI=

merci beaucoup super ça fonctionne  merci encore

Hello,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Or Target.Column = 10 Then
        Application.EnableEvents = False
        If Target.Column = 4 Then Target.Offset(, 6) = 13
        If Target.Column = 10 Then Target.Offset(, -6) = 13
        Application.EnableEvents = True
    End If
End Sub

https://cijoint.org/r/NpDj0Tkj#qU3WOpYcDFXW4MF6L454CcAB4G9GW4gQUJqbL2rTt5s=

une macro à mettre sur le code de la feuille

Bonjour,

Je ne suis pas sûr de comprendre, on peut affecter sans difficulté une cellule pour que si elle vaut de 0 à 12 une autre vaille 13 et pareil dans l'autre sens mais une cellule aura une valeur numérique ou sera une formule que la condition va écraser.

Précise ce que tu souhaites en mettant ton fichier en ligne par exemple là:

https://cijoint.org/