J'ai un tableau cijoint dont il faut que je automatise le format monétaire
sur une zone specifique,
Exemple:
la rangée D13 a F24 il faut que soit formatée en Euros la rangée D30 a F30
en Francs Suisses et ainsi de suite pour chaque zone, evidement ce rapport es
variable
soit par le nombre de lignes ainsi que le type de devices.
Pour quoi en VB?, car ceci fait partie d'autres modules faites en VB.
http://www.cijoint.fr/cjlink.php?file=cj200806/cijwSD89WC.xls.
Note: Meme si le nombre de lignes et le type de devices varie, la disposition
reste toujours la meme.
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
Youky
Bonjour,<br /> Si d'autres monnaies il sera facile de rajouter<br /> Attention à une chose: Sheet1 que j'emploi est le codeName de la feuille<br /> (voir en fenetre projet le nom de gauche)et non le nom que tu as rennomé<br /> l'onglet<br /> Youky<br /> <br /> Sub EuroFrancs()<br /> With Sheet1.Range("A:A")<br /> Set c = .Find("EURO", LookIn:=xlValues)<br /> If Not c Is Nothing Then<br /> h = c.Row<br /> For k = h To Sheet1.[E65536].End(xlUp).Row<br /> If .Cells(k, 5) = "Total" Then<br /> .Range("D" & h + 1 & ":J" & k).NumberFormat = "#,##0.00 ?"<br /> Exit For<br /> End If<br /> Next<br /> End If<br /> <br /> Set c = .Find("SWISS FRANC", LookIn:=xlValues)<br /> If Not c Is Nothing Then<br /> h = c.Row<br /> For k = h To Sheet1.[E65536].End(xlUp).Row<br /> If .Cells(k, 5) = "Total" Then<br /> .Range("D" & h + 1 & ":J" & k).NumberFormat = "#,##0.00 F"<br /> Exit For<br /> End If<br /> Next<br /> End If<br /> End With<br /> End Sub<br /> <br /> "Dante Huapaya" <> a écrit dans le<br /> message de news: <br /> <blockquote class="block0"><br /> Bonjour a tous,<br /> <br /> J'ai un tableau cijoint dont il faut que je automatise le format monétaire<br /> sur une zone specifique,<br /> Exemple:<br /> la rangée D13 a F24 il faut que soit formatée en Euros la rangée D30 a F30<br /> en Francs Suisses et ainsi de suite pour chaque zone, evidement ce rapport<br /> es<br /> variable<br /> soit par le nombre de lignes ainsi que le type de devices.<br /> Pour quoi en VB?, car ceci fait partie d'autres modules faites en VB.<br /> <br /> http://www.cijoint.fr/cjlink.php?file=cj200806/cijwSD89WC.xls.<br /> Note: Meme si le nombre de lignes et le type de devices varie, la<br /> disposition<br /> reste toujours la meme.<br /> <br /> Merci de votre aide<br /> <br /> Carlos Dante<br /> <br /> </blockquote><br />
Bonjour,<br />
Si d'autres monnaies il sera facile de rajouter<br />
Attention à une chose: Sheet1 que j'emploi est le codeName de la feuille<br />
(voir en fenetre projet le nom de gauche)et non le nom que tu as rennomé<br />
l'onglet<br />
Youky<br />
<br />
Sub EuroFrancs()<br />
With Sheet1.Range("A:A")<br />
Set c = .Find("EURO", LookIn:=xlValues)<br />
If Not c Is Nothing Then<br />
h = c.Row<br />
For k = h To Sheet1.[E65536].End(xlUp).Row<br />
If .Cells(k, 5) = "Total" Then<br />
.Range("D" & h + 1 & ":J" & k).NumberFormat = "#,##0.00 ?"<br />
Exit For<br />
End If<br />
Next<br />
End If<br />
<br />
Set c = .Find("SWISS FRANC", LookIn:=xlValues)<br />
If Not c Is Nothing Then<br />
h = c.Row<br />
For k = h To Sheet1.[E65536].End(xlUp).Row<br />
If .Cells(k, 5) = "Total" Then<br />
.Range("D" & h + 1 & ":J" & k).NumberFormat = "#,##0.00 F"<br />
Exit For<br />
End If<br />
Next<br />
End If<br />
End With<br />
End Sub<br />
<br />
"Dante Huapaya" <DanteHuapaya@discussions.microsoft.com> a écrit dans le<br />
message de news: 009F0256-6C55-46D6-99C4-8E83BD3E5841@microsoft.com...<br />
<blockquote class="block0"><br />
Bonjour a tous,<br />
<br />
J'ai un tableau cijoint dont il faut que je automatise le format monétaire<br />
sur une zone specifique,<br />
Exemple:<br />
la rangée D13 a F24 il faut que soit formatée en Euros la rangée D30 a F30<br />
en Francs Suisses et ainsi de suite pour chaque zone, evidement ce rapport<br />
es<br />
variable<br />
soit par le nombre de lignes ainsi que le type de devices.<br />
Pour quoi en VB?, car ceci fait partie d'autres modules faites en VB.<br />
<br />
http://www.cijoint.fr/cjlink.php?file=cj200806/cijwSD89WC.xls.<br />
Note: Meme si le nombre de lignes et le type de devices varie, la<br />
disposition<br />
reste toujours la meme.<br />
<br />
Merci de votre aide<br />
<br />
Carlos Dante<br />
<br />
</blockquote><br />
Bonjour,<br /> Si d'autres monnaies il sera facile de rajouter<br /> Attention à une chose: Sheet1 que j'emploi est le codeName de la feuille<br /> (voir en fenetre projet le nom de gauche)et non le nom que tu as rennomé<br /> l'onglet<br /> Youky<br /> <br /> Sub EuroFrancs()<br /> With Sheet1.Range("A:A")<br /> Set c = .Find("EURO", LookIn:=xlValues)<br /> If Not c Is Nothing Then<br /> h = c.Row<br /> For k = h To Sheet1.[E65536].End(xlUp).Row<br /> If .Cells(k, 5) = "Total" Then<br /> .Range("D" & h + 1 & ":J" & k).NumberFormat = "#,##0.00 ?"<br /> Exit For<br /> End If<br /> Next<br /> End If<br /> <br /> Set c = .Find("SWISS FRANC", LookIn:=xlValues)<br /> If Not c Is Nothing Then<br /> h = c.Row<br /> For k = h To Sheet1.[E65536].End(xlUp).Row<br /> If .Cells(k, 5) = "Total" Then<br /> .Range("D" & h + 1 & ":J" & k).NumberFormat = "#,##0.00 F"<br /> Exit For<br /> End If<br /> Next<br /> End If<br /> End With<br /> End Sub<br /> <br /> "Dante Huapaya" <> a écrit dans le<br /> message de news: <br /> <blockquote class="block0"><br /> Bonjour a tous,<br /> <br /> J'ai un tableau cijoint dont il faut que je automatise le format monétaire<br /> sur une zone specifique,<br /> Exemple:<br /> la rangée D13 a F24 il faut que soit formatée en Euros la rangée D30 a F30<br /> en Francs Suisses et ainsi de suite pour chaque zone, evidement ce rapport<br /> es<br /> variable<br /> soit par le nombre de lignes ainsi que le type de devices.<br /> Pour quoi en VB?, car ceci fait partie d'autres modules faites en VB.<br /> <br /> http://www.cijoint.fr/cjlink.php?file=cj200806/cijwSD89WC.xls.<br /> Note: Meme si le nombre de lignes et le type de devices varie, la<br /> disposition<br /> reste toujours la meme.<br /> <br /> Merci de votre aide<br /> <br /> Carlos Dante<br /> <br /> </blockquote><br />
