XL 2016 rayer partie de cellule en fonction d'une autre

duncan67

XLDnaute Nouveau
Bonjour à tous,
Je me permets de solliciter votre aide afin de me dépatouiller pour cette partie VBA qui je n'en doute pas doit paraitre évidente pour vous mais un réel casse-tête pour moi ;)
J'ai découvert via l'enregistreur de maccro le .font.strikethrough, mais je peine à le mettre en pratique.
Je précise qu'une MFC m'est inutile car impossible de ne modifier qu'une partie de cellule en fonction d'une autre, d'ou mon passage par VBA.

Explication de la manip :
j'ai une case fusionnée A1:A3 avec écrit "salade/tomate/oignon" (non je ne fais pas de kebab, c'est pour simplifier le texte :p)
j'ai une case fusionnée B2:B4, résultat d'une liste déroulante de choix où il peut s'écrire "peut", "peut-être"et "ok"

But de la manip :
En fonction de ma liste déroulante de choix, si "ok" apparait en B2:B4, rayer salade et oignon en A1:A3 mais pas tomate
si "peut" ou "peut-etre" apparait en B2:B4, rayer salade et tomate en A1:A3 mais pas oignon
Pourriez-vous m'aider ? =D
 

soan

XLDnaute Barbatruc
Bonjour duncan67,

Bienvenue sur le forum ! :)
c'est juste pour t'indiquer ce raccourci clavier : Ctrl Maj 5
(5 du haut de la rangée haut du clavier central, pas le 5 du
pavé numérique)

ça barre le texte et ça le « débarre » alternativement ;
cela pour le texte d'une cellule entière, ou pour celui
d'une partie de cellule seulement.

pour ce qui est du « en fonction d'une autre », et pour
ce qui est de la liste déroulante, je laisse la suite à un
autre intervenant. ;)


-------------------------------------------------------------------

mais j'veux bien du kebab, plus salade et tomate ;
pas d'oignons, et livraison à domicile ; merci ! :p


-------------------------------------------------------------------

ah non, j'ai lu trop vite ! y'a pas d'kebab ! :confused:
bon, alors 2 croissants... avec un kebab. :D

sketch de Fernand Raynaud
(cliquer sur le lien bleu ci-dessus)


soan
 
Dernière édition:

haonv

XLDnaute Occasionnel
bonsoir duncan67,soan

Un essai sur le fichier joint.
A adapter selon le fichier réel.
Edit: Cells(1, 1).Characters(15, 6)
renvoie une partie de la cellule A1, 6 caractères a partir du 15° caractère .

Cordialement
 

Pièces jointes

  • duncan67 xld.xlsm
    15.8 KB · Affichages: 5
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
289 676
Messages
1 902 006
Membres
173 308
dernier inscrit
Mestafa
Haut Bas