Supprimer des guillemets

job75

XLDnaute Barbatruc

• 5 Février 2018

• #2

Bonjour maval,

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

Code:

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

A+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 5 Février 2018

• #3

Bonjour Job,

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

@+
Max

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Février 2018

• #4

Bonjour à Tous

Max

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 6 Février 2018

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Février 2018

• #6

Bonjour,

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

A+

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 6 Février 2018

• #7

job75 à dit:

Bonjour,

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

A+

Cliquez pour agrandir...

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

P.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Février 2018

• #8

Bonjour,

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

@+
Max

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 6 Février 2018

• #9

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.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Février 2018

• #10

Salut Gosselien

Mon fichier avec ton code

 

Pièces jointes

• Transposes.xlsm

  69.7 KB · Affichages: 15

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 6 Février 2018

• #11

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.

 

Pièces jointes

• Transposes.xlsm

  69.8 KB · Affichages: 17

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Février 2018

• #12

Re,

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

Code:

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

Je te remercie sa fonctionne Nickel
Bonne soirée

Max

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 6 Février 2018

• #13

Ok

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

P.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Février 2018

• #14

Re,
Comment tu met résolu

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 6 Février 2018

• #15

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

 

Vote positif 0 Vote négatif