Discussion :

[bonelzez]

Bonjour à tous,

Je cherche à automatiser une tâche laborieuse : insérer des quotes dans chaque cellule de mon fichier Excel (export d'un fichier d'un application et réinjection dans une autre application). Certaines cellules contiennent des chaînes de caractères et d'autres sont vides.

Pour les cellules qui contiennent quelque chose, ce sont soit une seule lettre soit une phrase. Je suppose qu'un code VBA peut faire ça.

Merci d'avance!

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim c As Range
For Each c In Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants)
    c.Replace "'", ""                   'éliminer les quotes existantes
    c.Value = "'" & c.Value & "'"       'pour encadrer le contenu de chaque cellule
    c.Replace " ", "' '"                'pour "encadrer" chaque mot de la cellule
Next c

[fring]

Petite précision, pour que la première quote soit prise en compte il faut la doubler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim c As Range
For Each c In Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants)
    c.Replace "'", ""                   'éliminer les quotes existantes
    c.Value = "''" & c.Value & "'"       'pour encadrer le contenu de chaque cellule
Next c

[bonelzez]

Merci de vos réponses très rapides, les scripts marchent bien en effet.

Existerait-il une astuce pour insérer des double quotes au lieu des quotes? VBA ajoute des double quotes automatiquement quand je remplace les quotes par des doubles quotes dans les codes que vous donnez.

[fring]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim c As Range
For Each c In Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants)
    c.Replace Chr(34), ""                       'éliminer les doubles quotes existantes
    c.Value = Chr(34) & c.Value & Chr(34)       'pour encadrer le contenu de chaque cellule
Next c

[bonelzez]

Tout simplement ! Thank you !

[bonelzez]

Pensez-vous qu'il soit possible de préciser de ne pas ajouter une virgule en fin de ligne??

[fring]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim c As Range
For Each c In Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants)
    If Right(c.Value, 1) = "," Then c.Value = Left(c.Value, Len(c.Value) - 1) '<-- suppression de la virgule en fin de chaîne
    c.Replace Chr(34), ""                       'éliminer les doubles quotes existantes
    c.Value = Chr(34) & c.Value & Chr(34)       'pour encadrer le contenu de chaque cellule
Next c