Trouver les 7 derniers catactères d'une cellule

[Cougar]

Bonjour le forum,

Je cherche un code qui trouvera les 7 derniers caractères d’une cellule, les coupera et les copiera dans la cellule voisine (à droite).

Quelqu’un aurait une idée.

Merci

 

[Compte Supprimé 979]

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+

 

[Papaye]

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 :

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,

 

[Cougar]

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

 

[Monique]

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)

 

[Cougar]

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