Sheets("SYN").Range("B1:B10").Cells.Clear Dim i As Integer Dim j As Integer For j = 1 To Sheets("SYN").Range("B1:B10").Cells.Count For i = 1 To Worksheets.Count If Worksheets(i).Name <> "SYN" And Worksheets(i).Name <> "Menu" Then Sheets("SYN").Cells(j, 2).Value = Sheets("SYN").Cells(j, 2).Value + Worksheets(i).Cells(j, 2).Value End If Next Next
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ICI Merci d'y penser dans tes prochains messages. |
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.