Un bon code est sans Select !
1 2 3 4 5 6 7 8 9 10 11 12
| Sub essai()
Dim a As Integer, b As Integer, Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name <> "General" Then a = a + Ws.Range("D3").Value: b = b + 1
Next
With Worksheets("General")
If b Then .Range("D3").Value = a / b
.Activate
End With
End Sub |
Qui plus est il faut veiller à l'orthographe exact de la feuille car "General" n'est pas "Général" ni "Generale" …
Si la feuille totalisant est toujours la dernière, il est plus simple de boucler de la première feuille à l'avant dernière …
En étudiant une formule avec référence 3D (consulter la doc Excel), une seule ligne de code te sera nécessaire ‼
![Citation](https://forum.developpez.be/images/misc/quote_icon.png)
Envoyé par
andy05
comment fait on pour effacer les valeurs qui sont inscrites dans toutes les cases d'une feuille ?
Voir les méthodes
Cells.Clear et
Cells.ClearContents …
__________________________________________________________________________________________
Merci de cliquer sur
![+1](https://www.developpez.net/forums/images/smilies/poucevert.gif)
pour chaque message ayant aidé puis sur
![:resolu:](https://www.developpez.net/forums/images/buttons/resolu.gif)
pour clore cette discussion …
Partager