MEC f(cellule du desous)

Bonjour à tous,

Dans une macro de Dan & Nad (merci à eux), j'ai cette ligne de code:

If Target.Count > 1 Then Exit Sub

Target.Interior.ColorIndex = 6 (ETC)

Cela correspond à la sélection d'une "case"(cellule A).

A la demande d'un forumeur, l'objectif est d'obtenir le même résultat (couleur) sur la "case" du dessus (Cellule B). J'ai donc inséré une ligne. Je voudrai associer à cette ligne une macro quasi-identique faisant référence à la "Case du dessous" (Cellule A). Malgré beaucoup de tatillonage, je n'arrive pas à trouver le "langage" nécessaire à cette macro. Je pense même qu'une "simple" formule devrait suffire. Persuadé que ce n'est pas compliqué mais restant un sempiternel ignare ( bien que je me soigne), je vous soumets ce problème.

Bien cordialement à tous,

Elfi

Bonjour,

Pas sûr d'avoir bien saisi ta demande là....

Peut-être en changeant cette ligne

Target.Interior.ColorIndex = 6 (ETC) 

par

Target.offset(-1,0).Interior.ColorIndex = 6

Si pas cela, explique avec des références de cellules, c'est plus facile.

Amicalement

Dan

Bonjour Nad-Dan,

Autant pour moi!:tap:

Simplification de la demande avec le fichier joint:

https://www.excel-pratique.com/~files/doc2/wqLUzTableauprofforum.xls

Merci encore,

amicalement,

Elfi

Re,

comme je te l'ai dit avant, tu dois ajouter dans la macro :

Target.offset(-1,0).Interior.ColorIndex = 6

Juste avant

Target.Interior.ColorIndex = 6

Idem pour chaque couleur.

Cela suppose que tu n'as pas de liste déroulante dans la ligne précédente comme je le vois dans ton fichier en ligne 8, 10 etc...

Amicalement

Dan

bonjour,

Même punition (voir ce fil):

Target.Offset(-1).Resize(2).Interior.ColorIndex = 6

A+

Bonjour à tous,

Merci Dan, je m'en occupe.

Galopin, en essayant ta mocro simplifiée, j'ai une erreur de compil: "variable i non définie". Ou ai-je fais l'erreur?

Bien cordialement,

Elfi

Re bonjours,

Dan, tout fonctionne. D'ailleurs, Sentenza, le forumeur demandeur a suivi la question et a trouvé tes réponses. Je pense qu'il est satisfait.

La macro de Galopin ne fonctionne pas chez moi. J'ai du oublier quelquechose quelquepart.

A+,

Elfi

bonjour,

rajoute :

Dim i as byte

(au début de la macro...)

A+

Hello Galopin,

c'est Nickel. Comme quoi, on peux arriver au même résultat avec deux macros differentes.

Merci pour tout et pour Sentenza

Amicalement,

Elfi

Rechercher des sujets similaires à "mec desous"