Supprimer des guillemets

[maval]

Bonjour,

Sur ma feuille je rentre en colonne "C" des noms de pays et j'ai en colonne A5:A200, E5 :E200 et G5:200 des formules tel que:
=SI(C5="";"";Translate(C5;"fr";"es")) .
Quand mes colonnes sont traduite.
J'ai un code qui me permet de copier et coller sur un autre feuille.

Sub CopierColler()
    Sheets("traduction").Range("A5:G100").Copy
    Sheets("CopierColler").Range("A5").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("CopierColler").Select
End Sub

Mon problème est que les cellules des colonne A5:A200, E5 :E200 et G5:200 non remplis me donne sur ma deuxième feuille des truc comme sa.
, "Saint Jean", "Sainte Marie", "Barbuda", "Saint Paul", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",

Peut-on supprimer ceci", "", "", "", "", "", "", "", "", "", "", "", ""

Je vous remercie de votre aide

Max

 

[job75]

Bonjour maval,

Encore 49 posts et vous allez être barbatruc, félicitations !

Sub Transpose_pays()
'---
For I = 5 To lig
If Range("A" & I) <> "" Then
'-----
End If
Next

A+

 

[maval]

Bonjour Job,

Je ne comprend pas pourquoi j'ai toujours met , "",
"Saint Jean", "Sainte Marie", "Barbuda", "Saint Paul", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",

@+
Max

 

[maval]

Bonjour à Tous

Max

 

[gosselien]

Bonjour,

ça me parait normal:
tu copies-colles de la ligne 5 à la ligne 100 et donc à l'arrivée, tu n'as que 7 villes en colonne A mais 100 lignes occupées; on le voit avec la variable "lig" qui est à 100 donc tu peux tester par exemple si la cellule de la colonne A = 0 ou pas...
dans ton code transpose_pays

For i = 5 To lig
   If Not Len(Cells(i, 1)) = 0 Then ' ICI 
      esp = esp & av & Range("A" & i) & ap
      fr = fr & av & Range("C" & i) & ap
      eng = eng & av & Range("E" & i) & ap
      ger = ger & av & Range("G" & i) & ap
   End If
Next

 

[job75]

Bonjour,

@gosselien If Not Len(Cells(i, 1)) = 0 Then c'est kif-kif If Range("A" & I) <> "" Then de mon post #2 !

A+

 

[gosselien]

Bonjour,

@gosselien If Not Len(Cells(i, 1)) = 0 Then c'est kif-kif If Range("A" & I) <> "" Then de mon post #2 !

A+

Hello Job..
Very sorry , je n'ai pas été attentif à ta proposition, je te présente toutes mes confuses

P.

 

[maval]

Bonjour,

Je ne comprend toujours pas pourquoi j'ai toujours met , "", "",
"Saint Jean", "Sainte Marie", "Barbuda", "Saint Paul", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "",

@+
Max

 

[gosselien]

re,

moi j'obtiens:
regionsPays['en'] = ["Saint George", "Saint Pierre", "Saint Philippe", "Saint Jean", "Sainte Marie", "Barbuda", "Saint Paul"];

regionsPays['en'] = ["Saint George", "Saint Pierre", "Saint Philip", "Saint Jean", "Sainte Marie", "Barbuda", "St.Paul"];

regionsPays['en'] = ["Saint George", "Sankt Peter", "Heiliger Philipp", "Johannes", "St. Maria", "Barbuda", "St. Paul"];
et rien de +

P.

 

[maval]

Salut Gosselien

Mon fichier avec ton code

 

[gosselien]

re,

tu devais mettre mes 2 lignes entre tes lignes de code et pas tout seul.. hors tu as essayé de faire tourner ce code tout seul
je n'ai pas touché ton code, j'ai simplement ajouté un test si len <> 0

P.

 

[maval]

Re,

Autant pour moi je m'excuse tu as raison.
Donc tu as rajouter cette ligne.

If Not Len(Cells(I, 1)) = 0 Then ' ICI

Je te remercie sa fonctionne Nickel
Bonne soirée

Max

 

[gosselien]

Ok

Tu peux indiqué dans ton titre que c'est résolu alors

P.

 

[maval]

Re,
Comment tu met résolu

 

[gosselien]

Tu édites ton titre "supprimer les guillemets" avec le petit crayon en bas de chaque post que tu as écris