Trouver les 7 derniers catactères d'une cellule

C

Compte Supprimé 979

Guest

• 3 Août 2007

• #2

Re : Trouver les 7 derniers catactères d'une cellule

Salut Cougar,

Et par fonction ça ne te convient pas ?
A1 = AAAA1234567
B1 mettre : =DROITE(A1;7)

A+

 

Vote positif 0 Vote négatif

Papaye

XLDnaute Occasionnel

• 3 Août 2007

• #3

Re : Trouver les 7 derniers catactères d'une cellule

Bonjour à tous,

Si j'ai bien compris et en supposant que tes données soient dans la colonne A entre les lignes 1 à 12. Yu veux donc copier les 7 derniers caractères de A ligne x dans la colonne B ligne x. Et retirer ces 7 caractères de la cellule A :

PHP:

Sub toto()
For i = 1 To 12
If Len(Cells(i, 1)) > 7 Then
Cells(i, 2) = Right(Cells(i, 1), 7)
Cells(i, 1) = Left(Cells(i, 1), Len(Cells(i, 1)) - 7)
End If
Next i
End Sub

On doit pouvoir aussi y arriver avec un TexttoColumns

Bon courage,

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 3 Août 2007

• #4

Re : Trouver les 7 derniers catactères d'une cellule

Bonjour à vous 2,

Voici selon le code de Papaye ce à quoi cela devrait ressembler :

Sub toto()
Range("d1").Activate
Descend:
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Loop
'ActiveCell.Offset(0, -1).Select
If Len(Cells(i, 1)) > 7 Then
Cells(i, 2) = Right(Cells(i, 1), 7)
Cells(i, 1) = Left(Cells(i, 1), Len(Cells(i, 1)) - 7)
ActiveCell.Offset(0, 1).Select
End If
GoTo Descend
End Sub

Merci

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 3 Août 2007

• #5

Re : Trouver les 7 derniers catactères d'une cellule

Bonjour,

Par formule

Le texte en A1
En B1 puis copier-coller vers la droite :
=STXT($A1;NBCAR($A1)-7+COLONNES($B1:B1);1)

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 3 Août 2007

• #6

Re : Trouver les 7 derniers catactères d'une cellule

Bonjour Monique,

La raison pourquoi je n'utilise pas la formule est que je dois aussi supprimer les 7 caractères.

Merci

 

Vote positif 0 Vote négatif