Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour au forum
Pour un classeur avec 10 feuilles numérotées de 1 à 10, comment mettre en a1 de chaque feuille une valeur si le nom de la feuille est pair ou impair?
regarde le code ci-dessous, à utiliser dans un module standard :
Code:
Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Range("A1").Value = IIf(ws.Name Mod 2 = 0, "PAIR", "IMPAIR")
Next ws
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.