Besoin d'un petit code ou autre solution

JNP

XLDnaute Barbatruc

• 19 Mai 2011

• #2

Re : Besoin d'un petit code ou autre solution

Bonjour CmzxNéné 🙂,
Un petit code vite fait 😛,
il t'envoie le résultat dans la colonne de décalage que tu indiques dans Selection.Offset(I, 4) (soit ici 4 colonnes de décalage) en fonction de la cellule sélectionnée 🙄...

Code:

Sub test()
Dim Temp, I As Integer
Temp = Split(Selection, Chr(10))
For I = LBound(Temp) To UBound(Temp)
Selection.Offset(I, 4).FormulaLocal = Temp(I)
Next I
End Sub

Bon courage 😎

 

Vote positif 0 Vote négatif

C

CmzxNéné

XLDnaute Nouveau

• 19 Mai 2011

• #3

Re : Besoin d'un petit code ou autre solution

Bonjour JNP,

Et merci pour ton code qui est super.

J'ai un tout petit problème sur la colonne A : il me remplace tous les derniers chiffres par des 0
ex : 4972 5601 3419 3084 est copié de la manière suivante 4972 5601 3419 3080
Le dernier 4 est remplacé par un 0

Et cela se fait sur tous les enregistrements.

As-tu une idée ?

Merci encore.
Bonne journée

 

Dernière édition: 19 Mai 2011

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 19 Mai 2011

• #4

Re : Besoin d'un petit code ou autre solution

Re 🙂,
Le problème est qu'il est stocké sans double précision, mais uniquement pour cette colonne pour laisser les références en texte

Code:

Selection.Offset(I, 4).FormulaLocal = "'" & Temp(I)

Bon courage 😎

 

Vote positif 0 Vote négatif

C

CmzxNéné

XLDnaute Nouveau

• 19 Mai 2011

• #5

Re : Besoin d'un petit code ou autre solution

Re JNP,

Super, le résultat est probant.
En revanche, mes connaissances ont des limites et je ne comprend pas tes commentaires.
Encore merci.
Cdt

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 19 Mai 2011

• #6

Re : Besoin d'un petit code ou autre solution

Re 🙂,

CmzxNéné à dit:

je ne comprend pas tes commentaires.

Cliquez pour agrandir...

Lesquels 😛 ?
Bonne journée 😎

 

Vote positif 0 Vote négatif