Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Pierrot93

XLDnaute Barbatruc

• 12 Février 2013

• #2

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Bonjour,

peut être ainsi, sans plus de détails... difficile d'en dire plus...

Code:

If Range("A1").Value Like "TATA*" Then Range("A1").Value = "TATA"

bonne journée
@+

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 12 Février 2013

• #3

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Merci Pierrot93 pour le code , mais c'est pas vraiment ce que je cherche , ton code m’efface toute la celule

 

Dernière édition: 12 Février 2013

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 12 Février 2013

• #4

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Bjr Pierrot et Ssassam

Chez moi le code de Pierrot fonctionne très bien, il remplace toute la chaîne qui suit TATA par TATA

Poste un petit fichier d'exemple pour que l'on puisse t'aider

Cordialement, Gérard

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 12 Février 2013

• #5

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Bonjour, ssassam 🙂, Pierrot 🙂, le Forum,

Un essai en pièce jointe.

A bientôt 🙂

P.S. : Bonjour, natorp

 

Pièces jointes

• 00 - ssassam - TATA.xls

  40 KB · Affichages: 50

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 12 Février 2013

• #6

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Re-bonjour,

Un nouvel essai (le premier supprimait la pauvre "TATA" 🙄 ) !

A bientôt 🙂

 

Pièces jointes

• 00 - ssassam - TATA V2.xls

  40.5 KB · Affichages: 59

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 12 Février 2013

• #7

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Bonjour à tous,

@00,

Tu as modifié ton exemple, mais comme je l'avais déjà fait d'une autre manière, je le joins :

Code:

Sub TATA()
Application.ScreenUpdating = False
For Each cel In Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeConstants)
  p = InStr(cel.Value, "TATA") + 3
  cel.Offset(0, 1) = Left(cel, p)
Next
Application.ScreenUpdating = True
End Sub

Bises à toi, ma petite ânesse préférée, toujours un plaisir de te croiser.

Cordialement à tous.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 12 Février 2013

• #8

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Re-bonjour, bonjour, Papou-net 😀,

Papou-net à dit:

...comme je l'avais déjà fait d'une autre manière, je le joins...

Cliquez pour agrandir...

Manière qui ne trucide pas la pauvre TATA 😎 ! Bravo !

Gros bisous, Papou-net et...

A bientôt 🙂🙂

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 12 Février 2013

• #9

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

DoubleZero à dit:

Re-bonjour,

Un nouvel essai (le premier supprimait la pauvre "TATA" 🙄 ) !

A bientôt 🙂

Cliquez pour agrandir...

RE

Astucieuse ton idée, 00, d'écrire les formules sans utiliser de boucle, puis de les remplacer par leur valeur.

Alors là, tu usurpes ton avatar de manière brillante.

Félicitations chère (ex)ânesse.

Bisous et à bientôt.

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 14 Février 2013

• #10

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Bonjour , DoubleZero merci pour le fichier je viens de le testé est ça marche nickel 20/20 merci comme toujours

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Février 2013

• #11

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Bonjour, le Fil, le Forum,

Merci, ssassam, pour le retour.

As-tu vu le travail de Papou-net ?

A bientôt 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2013

• #12

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

Bonsoir à tous


Pour le fun et pour le plaisir de croiser des aficionados de la Cellule (ils se reconnaîtront 😉 )

Code VBA:
Sub tata()
With Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
.Value = "=REPT(""TATA"",NOT(ISERR(SEARCH(""TATA*"",RC[-1]))))"
.Value = .Value
End With
End Sub
Code VBA:
Sub TATA_IN_A()' variante si tout doit finir en colonne A
With Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
.Value = "=REPT(""TATA"",NOT(ISERR(SEARCH(""TATA*"",RC[-1]))))"
.Value = .Value
End With
Columns(1).Delete
End Sub

 

Dernière édition: 14 Février 2013

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 14 Février 2013

• #13

Re : Macro : Si Celule "X" contien "TATA" alors suprimer ce quii suit

DoubleZero à dit:

Bonjour, le Fil, le Forum,

Merci, ssassam, pour le retour.

As-tu vu le travail de Papou-net ?

A bientôt 🙂

Cliquez pour agrandir...

Bonsoir tout le monde
Non j'ai pas encore tésté mais je vous promets la réposne sur la macro de "Papou-net" demain matin quant je serai au boulot.
a demain

 

Dernière édition: 14 Février 2013

Vote positif 0 Vote négatif