Convertir une plage de données

[Don Foster]

Bonjour à toutes et à tous ,

Dans le fichier joint je voudrais convertir une plage de données Euro/Franc et inversement à l'aide d'un bouton.

J'ai réussit la mise en forme mais pas la convertion.

Je sollicite votre aide pour un petit coup de main.

Merci et bonne journée à vous.

@ + Don Foster

 

[job75]

Re : Convertir une plage de données

Bonjour,
Ci-joint votre fichier avec la macro complétée. J'ai supprimé Option Explicit.
A+

 

[Don Foster]

Re : Convertir une plage de données

Bonjour job75

Merci pour ta réponse qui me va très bien.

Bonne journée à toi.

@ + Don Foster

 

[Bebere]

Re : Convertir une plage de données

bonjour Don Foster,Job
une autre proposition
à bientôt

 

[job75]

Re : Convertir une plage de données

Bien Bebere, vous avez réécrit tout le programme (et même changé le nom et le caption du bouton) !
Perso, je trouve que la macro faite par Don Foster est très bien, simple et efficace. Je n'ai eu qu'à rajouter 2 boucles For each...Next. Bravo également pour la présentation agréable de la feuille de calcul !
A+ à tous.

 

[job75]

Re : Convertir une plage de données

Cela dit Don Foster, il y a une petite erreur dans votre/mon programme. Je n'avais pas vu la colonne TOTAL et ses formules. Ci-joint le fichier corrigé.

Par ailleurs, si vous préférez effacer les valeurs zéro, il suffit de modifier les 2 lignes de conversion en ajoutant un test :
If cellule.value <> "" then cellule.value = ... (sans End If)

Et si vous craignez l'entrée erronée d'un texte dans les cellules à convertir, écrivez en début de macro :
On error Resume Next

A+

 

[job75]

Re : Convertir une plage de données

Désolé, une erreur de lignage, prenez le fichier joint.
A+

 

[job75]

Re : Convertir une plage de données

Il arrive...

 

[job75]

Re : Convertir une plage de données

Je ne comprends pas, la correction n'a pas été prise en compte. Fausse manoeuvre avec zip sans doute.