Bonjour à toutes et à tous
J'ai un soucis sur excel en vba
Dans la plage 1 ("A1:AE1") j'ai une série des jours de la semaine (lun, mar, mer, jeu, ven, sam, dim)
Dans la plage 2 ("A2:AE30") j'ai prévu de mettre des congés et autres petits trucs

Ce que je cherche à faire c'est que dans la plage 2, il y ai un "x" par rapport aux sam et dim de la plage 1SANS UTILISER DE MFC,
car il faudra par la suite compter le nombre de cellule de couleur

Merci d'avance. @+

Salut,

mettre un X pour les samedi et dimanche cela revient a dire je ne veux pas des samedi et dimanche alors pourquoi tu les mets dans ton tableau ?

Si tu ne peux t'en passer tu n'as pas besoin besoin de macro ça c'est dela mise en forme car une fois fait cela ne changera jamais vu que tu tiens compte du nom du jour et pas de la date.

Et si tu ne peux vraiment pas te passer de la macro, alors tu as juste a boucler sur la premier ligne et chaque fois que tu trouves un samedi ou un dimanche tu remplis ta colonne de X jusqu'a la derniere ligne de la plage2.
Mais ne fais pas de recherche sur la plage 2 en fonction de la plage 1 car cela vas prendre un temps fou pour rien !
Pour te donner un ordre d'idee et au vue de la taille de ton tableau cela reviendrait a verifier 30^3 cellules (27000) pour des cellules qui ne servent a rien

A+

Tu as raison pour la première partie, mais il se peut qu'il y ai des sam ou dim travaillés lors de l'année. C'est pour ça que je ne veux pas utiliser de mfc.
Tu aurais un code vba svp

Merci d'avance @+

Si tu veux augmenter tes chances d'avoir des réponses, ne cliques pas "Réponse acceptée" tant que ton problème n'est pas résolu totalement. Tu peux inverser en resélectionnant ce bouton. Les gens qui passent et qui voient que tu as accepté vont continuer leur chemin sans s'y arrêter, pensant que c'est résolu.

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

merci pour l'info mais j'ai toujours besoin de savoir comment faire? aidez moi svp

...

Sub XpourWeekEnd()
Dim Plage1 As Range, MaCellule As Range

Set Plage1 = Range("A1:AE1")
For each MaCellule in Plage1
    If Lcase(MaCellule.Value) = "samedi" or Lcase(MaCellule.Value) = "dimanche" then
       Range(Cells(2,MaCellule.Column),Cells(30,MaCellule.Column)).value = "X"
    End If
Next
End Sub

A+ (j'en suis sur )

Merci beaucoup pour ce merveilleux code bigfish.
il marche à merveille.

@+