Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Si une cellule contient un mot alors le copier dans une autre cellule

Ragnarok001

XLDnaute Nouveau
Bonjour,
Je cherche une formule, peut être applicable avec une MFC ou VBA,
par exemple, si la cellule A1 contient "*EXCEL*", alors je souhaite que cette cellule (toute entière) soit copiée en A9 et sinon pas d'action

J'ai essayé avec =IF(COUNTIF(A1;"*EXCEL*");A1;A9) mais en vain..

Si ça vous parle je suis preneur
Merci bp !!
 

job75

XLDnaute Barbatruc
Bonjour le forum,

Si l'on veut aussi pouvoir modifier manuellement A9 il faut du VBA :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'désactive les évènements
If [A1] Like "*Excel*" Then [A9] = [A1] 'la casse est respectée
Application.EnableEvents = True 'réactive les évènements
End Sub
La casse est respectée.

A+
 

Pièces jointes

  • Excel(1).xlsm
    15.4 KB · Affichages: 4

Ragnarok001

XLDnaute Nouveau
Bonjour,

Tout d'abord, merci bp pour vos réponses,
je joins un exemple dans le 1er tableau excel joint dans ce fil, et je m'aperçois avoir fait une erreur dans mon pitch initial, en effet , si le mot Excel est compris dans une des cellules colonne A (nommée HN) alors copier/coller ou reporter toute la cellule dans la colonne I (nommée IP)

encore merci et bon aprem
 

Pièces jointes

  • Si et excel V1.xlsx
    24.9 KB · Affichages: 6

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…