[RESOLU] Ne garder que chaine à droite

sousou

XLDnaute Barbatruc

• 14 Janvier 2017

• #2

Bonjour voilà de quoi t'expliquer l'instruction
Selectionne une plage de cellule et lance la macro
Sub deb()
For Each i In Selection
resultat = Right(i, Len(i) - InStrRev(i, ":"))
MsgBox resultat
Next
End Sub

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 14 Janvier 2017

• #3

Merci beaucoup Sousou, c'est un bon début. je vais essayer d'adapter ton code.
En fait, mon tableau est assez grand, je glane sur le net des traitements de maladies d'oiseaux pour faire une base de données.

Je voulais remplacer le contenu des cellules (celles qui contiennent une chaine de caractères de part et d'autre du ":"), par juste ce qu'il y a à droite du ":".

Bon WE à toutes et à tous.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 14 Janvier 2017

• #4

Bonjour cathodique, Cath et bonne année

Si je ne dit pas de connerie, en reprenant l'exemple de sousou

Sub deb()
For Each i In Selection
resultat = Left(i, Len(i) - InStrRev(i, ":")) & Right(i, Len(i) - InStrRev(i, ":"))
MsgBox resultat
Next
End Sub

 

Dernière édition: 14 Janvier 2017

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 14 Janvier 2017

• #5

Bonjour Cathodique, Sousou, Lone-wolf, le Forum,

Autre façon de procéder:

Sub Demo()
Application.ScreenUpdating = False
For Each cel In Cells.SpecialCells(xlCellTypeConstants)
cel.Value = Trim(Replace(cel.Value, Left(cel.Value, InStr(cel.Value, ":")), ""))
Next
Application.ScreenUpdating = True
End Sub

La boucle balaie uniquement les cellules remplies et supprime la partie située à gauche du deux-points (celui-ci inclus).

Cordialement.

 

Pièces jointes

• Copie de Traitements.xlsm

  21.8 KB · Affichages: 32

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 14 Janvier 2017

• #6

Bonjour Papou-net et bonne année

En prenant comme exemple SOLEIL:ÉTÉ:MER dans une seule cellule. Résultats en PJ.

 

Pièces jointes

• Classeur1.xlsm

  17.8 KB · Affichages: 34

Dernière édition: 14 Janvier 2017

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 14 Janvier 2017

• #7

Salut


Attention Lone-wolf, tu auras un message d’erreur quand la cellule ne contiendra pas le " : " !
Un autre exemple ...

 

Pièces jointes

• à gauche.xlsm

  27.6 KB · Affichages: 39

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 14 Janvier 2017

• #8

Bonjour Si...

Voilà, j'ai ajouter des conditions mais je ne sais pas si c'est correct.

VB:

Sub Decompose()
Dim derlig&, k&
Dim NPr$, t1$, t2$, t3$

  On Error Resume Next
  With Feuil1
  derlig = .Range("A" & Rows.Count).End(xlUp).Row
  For k = 2 To derlig
  NPr = .Range("A" & k)
  If .Range("A" & k) Like "*.*" Or .Range("A" & k) Like "*;*" _
  Or .Range("A" & k) Like "*:*" Then
  t1 = Split(NPr, ":")(0)
  t2 = Split(NPr, ":")(1)
  t3 = Split(NPr, ":")(2)
  End If
  t1 = Replace(t1, t1, "OH")
  t2 = Replace(t2, t2, "LA")
  t3 = Replace(t3, t3, "LA !")

  resultat = "" & .Range("A" & k).Address & ":  " & _
  Left(t1, Len(t1) - InStrRev(t1, ":")) & ", " & _
  Right(t2, Len(t2) - InStrRev(t2, ":")) & ", " & _
  Right(t3, Len(t3) - InStrRev(t3, ":"))
  MsgBox resultat
  Next k
  End With
End Sub

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 14 Janvier 2017

• #9

Merci beaucoup Sousou, c'est un bon début. je vais essayer d'adapter ton code.
En fait, mon tableau est assez grand, je glane sur le net des traitements de maladies d'oiseaux pour faire une base de données.

Je voulais remplacer le contenu des cellules (celles qui contiennent une chaine de caractères de part et d'autre du ":"), par juste ce qu'il y a à droite du ":".

Bon WE à toutes et à tous.

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 14 Janvier 2017

• #10

Un très grand merci à vous.
Le code de Papou-net est impeccable, exactement le résultat escompté.
Je ferai un test avec le code de Lone-wolf.

Meilleurs vœux.

 

Vote positif 0 Vote négatif