Bonjour,
Je me tourne vers vous pour un problème un peu bizarre. Je traduis certains termes de la base de données pour une vente a l'internationale.
Comme il y a peu de vocabulaire pour la partie technique, c'est assez pratique.
Voici le code (j'ai raccourci, il y a une trentaine de termes et le problème n'est pas la) :
Ce qui est bizarre c'est aue ca marche bien SANS le ".Columns(2)", c'est donc lui qui génère l'erreur.
Par contre, en faisant un test de coloriage ActiveSheet().UsedRange.Interior.Color = RGB(200, 200, 200) ou ActiveSheet().UsedRange.Columns(2).Interior.Color = RGB(200, 200, 200), je n'ai aucun soucis (les zone grisées sont correct)
Donc ma question est simple : pourquoi une erreur sur une range plus restreinte ???
Je me permets une autre question car je ne trouve aucune de façon de faire (erreur 1004) : est-il possible de faire des if/then/else dans un each/next ? Genre :
J'ai du remplacer par 2 lignes pour faire l’opération :
Merci pour votre aide m(_ _)m
Je me tourne vers vous pour un problème un peu bizarre. Je traduis certains termes de la base de données pour une vente a l'internationale.
Comme il y a peu de vocabulaire pour la partie technique, c'est assez pratique.
Voici le code (j'ai raccourci, il y a une trentaine de termes et le problème n'est pas la) :
Code:
Sub サイズ翻訳()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet().UsedRange.Columns(2)
c.Value = Replace(c.Value, "ウエスト", "Waist")
c.Value = Replace(c.Value, "胴幅", "Jacket waist")
Next c
Application.ScreenUpdating = True
MsgBox "OK!"
End Sub
Par contre, en faisant un test de coloriage ActiveSheet().UsedRange.Interior.Color = RGB(200, 200, 200) ou ActiveSheet().UsedRange.Columns(2).Interior.Color = RGB(200, 200, 200), je n'ai aucun soucis (les zone grisées sont correct)
Donc ma question est simple : pourquoi une erreur sur une range plus restreinte ???
Je me permets une autre question car je ne trouve aucune de façon de faire (erreur 1004) : est-il possible de faire des if/then/else dans un each/next ? Genre :
Code:
if c.Value <> "" then c.Offset(0, 1).Value = c.Value & "-" & c.Offset(0, -1) else c.Offset(0, 1).Value = c.Offset(0, -1)
Code:
c.Offset(0, 1).Value = c.Value & "-" & c.Offset(0, -1).Value
c.Value = Replace(c.Value, "- ", "")
Merci pour votre aide m(_ _)m
Dernière édition: