Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Changement $ -> ? et ? ->$

Changement $ -> ? et ? ->$

5 réponses
Avatar
Yann
Salut la foule,

J'ai plusieurs fichier ou mon signe de curencies et en Euro et je voudrait
tout passe en dollar avec une macros et inversement.
Le top serais d'avoir au debut une msgbox ou inputbox qui me demande ce que
je veux faire.
Dans mes fichiers j'ai plusieur feuilles.

Merci du coup de main
Yann
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Hervé
Salut Yann,
Essai ceci :

Sub DollarsEtEuros()
Dim FE As Worksheet
Dim Plage As Range
Dim Cel As Range
Dim Ligne As Long
Dim Colonne As Long
Dim QueFaire As String

QueFaire = InputBox("Quelle transformation voulez vous faire ?" _
& vbCrLf & _
"Valeur 1 = $ > ?" _
& vbCrLf _
& "Valeur 2 = ? > $")

If QueFaire = "1" Or QueFaire = "2" Then
On Error Resume Next
For Each FE In Worksheets
With FE
Ligne = .Cells.Find("*", .[A1], -4123, , _
1, 2).Row
Colonne = .Cells.Find("*", .[A1], -4123, , _
2, 2).Column
Set Plage = .Range(.Cells(1, 1), .Cells(Ligne, Colonne))
End With

Select Case QueFaire
Case 1
For Each Cel In Plage
Cel = Replace(Cel.Value, "$", "?")
Next Cel
Case 2
For Each Cel In Plage
Cel = Replace(Cel.Value, "?", "$")
Next Cel
End Select
Next FE
Else
MsgBox "Vous devez faire un choix entre 1 et 2 !"
End If

Set Cel = Nothing
Set Plage = Nothing
Set FE = Nothing
End Sub

Hervé.

"Yann" a écrit dans le message news:

Salut la foule,

J'ai plusieurs fichier ou mon signe de curencies et en Euro et je voudrait
tout passe en dollar avec une macros et inversement.
Le top serais d'avoir au debut une msgbox ou inputbox qui me demande ce
que

je veux faire.
Dans mes fichiers j'ai plusieur feuilles.

Merci du coup de main
Yann




Avatar
Hervé
Oups,
OE m'a mis un joli "?" à la place du signe Euro alors adapte ;o)
Hervé.

"Hervé" a écrit dans le message news:

Salut Yann,
Essai ceci :

Sub DollarsEtEuros()
Dim FE As Worksheet
Dim Plage As Range
Dim Cel As Range
Dim Ligne As Long
Dim Colonne As Long
Dim QueFaire As String

QueFaire = InputBox("Quelle transformation voulez vous faire ?" _
& vbCrLf & _
"Valeur 1 = $ > ?" _
& vbCrLf _
& "Valeur 2 = ? > $")

If QueFaire = "1" Or QueFaire = "2" Then
On Error Resume Next
For Each FE In Worksheets
With FE
Ligne = .Cells.Find("*", .[A1], -4123, , _
1, 2).Row
Colonne = .Cells.Find("*", .[A1], -4123, , _
2, 2).Column
Set Plage = .Range(.Cells(1, 1), .Cells(Ligne, Colonne))
End With

Select Case QueFaire
Case 1
For Each Cel In Plage
Cel = Replace(Cel.Value, "$", "?")
Next Cel
Case 2
For Each Cel In Plage
Cel = Replace(Cel.Value, "?", "$")
Next Cel
End Select
Next FE
Else
MsgBox "Vous devez faire un choix entre 1 et 2 !"
End If

Set Cel = Nothing
Set Plage = Nothing
Set FE = Nothing
End Sub

Hervé.

"Yann" a écrit dans le message news:

Salut la foule,

J'ai plusieurs fichier ou mon signe de curencies et en Euro et je
voudrait


tout passe en dollar avec une macros et inversement.
Le top serais d'avoir au debut une msgbox ou inputbox qui me demande ce
que

je veux faire.
Dans mes fichiers j'ai plusieur feuilles.

Merci du coup de main
Yann








Avatar
Yann
Ok merci je vais essayer.
Moi aussi OE ma fait le coup du ? et j'ai essaye d'effacer le post mais il
est toujours la. :o((

Tout ca pour dire --> desole pour le doublon, c'est pas dans mes habitudes
de me repeter, du moins pas encore ;o)

Yann

"Hervé" wrote in message
news:u8cPf%
Oups,
OE m'a mis un joli "?" à la place du signe Euro alors adapte ;o)
Hervé.

"Hervé" a écrit dans le message news:

Salut Yann,
Essai ceci :

Sub DollarsEtEuros()
Dim FE As Worksheet
Dim Plage As Range
Dim Cel As Range
Dim Ligne As Long
Dim Colonne As Long
Dim QueFaire As String

QueFaire = InputBox("Quelle transformation voulez vous faire ?" _
& vbCrLf & _
"Valeur 1 = $ > ?" _
& vbCrLf _
& "Valeur 2 = ? > $")

If QueFaire = "1" Or QueFaire = "2" Then
On Error Resume Next
For Each FE In Worksheets
With FE
Ligne = .Cells.Find("*", .[A1], -4123, , _
1, 2).Row
Colonne = .Cells.Find("*", .[A1], -4123, , _
2, 2).Column
Set Plage = .Range(.Cells(1, 1), .Cells(Ligne, Colonne))
End With

Select Case QueFaire
Case 1
For Each Cel In Plage
Cel = Replace(Cel.Value, "$", "?")
Next Cel
Case 2
For Each Cel In Plage
Cel = Replace(Cel.Value, "?", "$")
Next Cel
End Select
Next FE
Else
MsgBox "Vous devez faire un choix entre 1 et 2 !"
End If

Set Cel = Nothing
Set Plage = Nothing
Set FE = Nothing
End Sub

Hervé.

"Yann" a écrit dans le message news:

Salut la foule,

J'ai plusieurs fichier ou mon signe de curencies et en Euro et je
voudrait


tout passe en dollar avec une macros et inversement.
Le top serais d'avoir au debut une msgbox ou inputbox qui me demande
ce



que
je veux faire.
Dans mes fichiers j'ai plusieur feuilles.

Merci du coup de main
Yann












Avatar
sabatier
tu penses à quelqu'un en particulier en disant cela, Yann?, lança l'homme en
sifflotant, l'air absent...
jps

"Yann" a écrit dans le message de
news:%
c'est pas dans mes habitudes de me repeter, du moins pas encore ;o)

Yann



Avatar
Yann
Bon apres essaie il me change bien les euro en dollar et vice versa mais
seulemant en caractere mais pas dans les cellules avec des chiffres ou des
formule formater.
Je sais pas si je me fait bien comprendre.

"Yann" wrote in message
news:%
Ok merci je vais essayer.
Moi aussi OE ma fait le coup du ? et j'ai essaye d'effacer le post mais il
est toujours la. :o((

Tout ca pour dire --> desole pour le doublon, c'est pas dans mes habitudes
de me repeter, du moins pas encore ;o)

Yann

"Hervé" wrote in message
news:u8cPf%
Oups,
OE m'a mis un joli "?" à la place du signe Euro alors adapte ;o)
Hervé.

"Hervé" a écrit dans le message news:

Salut Yann,
Essai ceci :

Sub DollarsEtEuros()
Dim FE As Worksheet
Dim Plage As Range
Dim Cel As Range
Dim Ligne As Long
Dim Colonne As Long
Dim QueFaire As String

QueFaire = InputBox("Quelle transformation voulez vous faire ?" _
& vbCrLf & _
"Valeur 1 = $ > ?" _
& vbCrLf _
& "Valeur 2 = ? > $")

If QueFaire = "1" Or QueFaire = "2" Then
On Error Resume Next
For Each FE In Worksheets
With FE
Ligne = .Cells.Find("*", .[A1], -4123, , _
1, 2).Row
Colonne = .Cells.Find("*", .[A1], -4123, , _
2, 2).Column
Set Plage = .Range(.Cells(1, 1), .Cells(Ligne, Colonne))
End With

Select Case QueFaire
Case 1
For Each Cel In Plage
Cel = Replace(Cel.Value, "$", "?")
Next Cel
Case 2
For Each Cel In Plage
Cel = Replace(Cel.Value, "?", "$")
Next Cel
End Select
Next FE
Else
MsgBox "Vous devez faire un choix entre 1 et 2 !"
End If

Set Cel = Nothing
Set Plage = Nothing
Set FE = Nothing
End Sub

Hervé.

"Yann" a écrit dans le message news:

Salut la foule,

J'ai plusieurs fichier ou mon signe de curencies et en Euro et je
voudrait


tout passe en dollar avec une macros et inversement.
Le top serais d'avoir au debut une msgbox ou inputbox qui me demande
ce



que
je veux faire.
Dans mes fichiers j'ai plusieur feuilles.

Merci du coup de main
Yann