Effacer des cellules

[MacMac]

Voila si s'est possible je voudrai que les cellule de G61 a R 61 s'efface le contenu et se colorise tout seul quand j'ecrit dans la cellule F61 merci de votre aide

 

[pierrejean]

Re : Effacer des cellules

bonjour MacMac

teste ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "F1" Then
Range("G61:R61").ClearContents
Range("G61:R61").Interior.ColorIndex = 3
End If
End Sub

 

[mjo]

Re : Effacer des cellules

Bonjour,

A la lecture de ton message on pourrait supposer que tu crois interroger une base de données robotisée de Microsoft.

Il n'en est rien, XLD est un forum d'amateurs bénévoles.

Il est donc aisé de comprendre que ceux-ci apprécient qu'on s'adresse à eux comme à des êtres humains et non pas comme à une machine.

La différence réside essentiellement en quelques mots conventionnels qui favorisent les relations futures : bonjour, salut, merci, ...

je voudrai que les cellule de G61 a R 61 s'efface le contenu
Pas très français, et de plus pas très compréhensible !
Que contiennent tes cellules, des formules, des constantes, ... ?
Par effacer entends-tu supprimer ou cacher ?

et se colorise tout seul
une simple MFC (Mise en forme conditionnelle sous le menu Format) répond à ta demande.

mjo

 

[MacMac]

Re : Effacer des cellules

ou place ton le code car je vien essayer de le mettre dans la racine de ma feuille
et dans le fichier thiswordbook et sa pas l' aire de fonctionner merci

 

[MacMac]

Re : Effacer des cellules

desoler je ne voulais pas etres mal poli ou sans gene je suis tres satisfait de l'aide que l'on peut m'apporter encor desoler

 

[pierrejean]

Re : Effacer des cellules

bonsoir

va en Visual basic par
outils > macro > Visual basic editor

ensuite clique a gauche (explorateur de projet) sur la feuille concernée
puis dans la partie droite selectionne dans la liste deroulante de gauche
Worksheet
puis dans celle de droite
Change
enfin copie le corps de la macro entre le private sub et le end sub

 

[MacMac]

Re : Effacer des cellules

bonsoir , pierrejean

Deja je tient a te remercier de l'aide que tu m'apporte
j' ai bien compris se que m'explique et j'ai bien effectuer tes recommandation mais sans succes

je croit effectivement le message au dessus j'ai du mal expliquer se que je voulez
encor desoler de pas etre clair je suis nouveau et le temp de comprendre il faut biensur un temp d'apprentissage
bon je vais essyer de mieux expliquer

le mieux s'est que je joint la feuill ou cela que je voudrai que sa se realise avec deux commentaire a l'interieur

merci MacMac

 

[pierrejean]

Re : Effacer des cellules

bonsoir MacMac

tout d'abord je m'excuse : il y avait une erreur dans le code fourni
il y avait F1 au lieu de F61

mais cela n'aurait pas été suffisant pour ce que tu souhaites

vois maintenant si cela te convient

 

[MacMac]

Re : Effacer des cellules

rebonsoir pierrejean
je ne dirai que bravo encor une epine sortie du pied
mais encor une question et si la cellule F1 et vide on ne revient pas en couleur initial elle reste en couleur peut on y remedier
et un grand merci s'est exactement se que je voulais

SLT Macmac

 

[MacMac]

Re : Effacer des cellules

Bonjour le forum

PierreJean

Desoler de t'ennuyer

voila ton code d'hier marche a merveille et je tien a te remercier mais j'aurais une question concernat l'inverse
pour plus de detail j'ai mi se code dans une feuille de base que je rempli par userform et que je sauvegarde par une autre macro sous un nom different et mais la couleur reste si je ne met rien dans la cellule F1 y a t'il un moyen d'y remedier merci .

 

[pierrejean]

Re : Effacer des cellules

bonjour MacMac

excuse moi je n'avais pas remarqué ta demande

teste cela

 

[MacMac]

Re : Effacer des cellules

Bonsoir le forum

je ne te dirai qu'un grand merci car les premier test me sattisfait grandement
cela fonctionne parfaitement .

SLT Macmac