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