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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 !!
 
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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
544
Retour