Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Guillemets en VBA

aude229

XLDnaute Nouveau
Bonjour,

J'ai un petit problème qui doit surement être très facile à résoudre.

J'ai plusieurs variable dans une colonne excel et j'aimerai que tout les case contenant < à 15km/h donne "< à 15km/h"

J'ai essayer un code mais cela n'a pas marche, j'ai plusieurs variable dans ma colonne mais j'ai aussi des lignes vides.

Quelque chose comme ça:

bbbb

aaa
< à 15km/h



ccc
456
8756
< à 15km/h


ect...

quelqu'un aurai t'il une solution à m'apporter.

Merci d'avance
 

Pierrot93

XLDnaute Barbatruc
Re : Guillemets en VBA

Bonjour,

essaye peut être ceci, spérant que cela puisse t'aider :
Code:
If ActiveCell.Value = "< à 15km/h" Then ActiveCell.Value = """< à 15km/h"""
bon après midi
@+
 

WUTED

XLDnaute Occasionnel
Re : Guillemets en VBA

Bonjour aude229, Pierrot93,

C'est trés barbare mais tu peux faire :

VB:
If ActiveCell.Value = "< à 15km/h" Then ActiveCell.Value = "'"  &  Chr(34)  &  "< à 15km/h"  &  Chr(34)

Bonne journée,
WUTED
 

aude229

XLDnaute Nouveau
Re : Guillemets en VBA

Et bah non cela ne fais rien du tout...

Je pourrai je vous donnerai un fichier exemple, mais je ne peut pas. Mais mon exemple montre bien le principe

Merci à vous deux !
 

WUTED

XLDnaute Occasionnel
Re : Guillemets en VBA

Re,

Je t'ai juste donné une façon de mettre des guillemets dans ta cellule, je crains que ton problème ne soit pas très bien exprimé, enfin personnellement je sais pas vraiment ce que tu veux.

Bonne journée,
WUTED
 

Misange

XLDnaute Barbatruc
Re : Guillemets en VBA

Bonjour
tu n'es pas obligée de joindre le fichier réel pour faire un exemple. Crée un petit classeur qui récapitule juste la partie qui t'intéresse mais là je pense qu'il est difficile de comprendre ce que tu cherches vraiment à faire.
 

aude229

XLDnaute Nouveau
Re : Guillemets en VBA

Oui j'ai bien vu, j'ai rajouter for i = 1 to 3000 j'ai mis le nom de la colonne dans laquelle je veux que mes guillemets apparaissent sur les noms, mais ça n'a pas marché. Je vais continuer à charcher !

Merci quand même
Bonne journée
 

Littledave

XLDnaute Junior
Re : Guillemets en VBA

Salut,

Tu peux utiliser ce code VBA qui modifie à la volée la donnée entrée :

Code:
Private Sub Worksheet_Change(ByVal MaCellule As Range)
    If MaCellule.Value = "< à 15km/h" Then MaCellule.Value = """< à 15km/h"""
End Sub

En espérant avoir répondu à ta demande

@++
David
 

aude229

XLDnaute Nouveau
Re : Guillemets en VBA

En fait sur une feuille excel normal que je peux faire moi même ce programme marche très bien:

Sub Guillemets()
For I = 1 To 30000
If Cells(I, 4) = "< à 15km/h" Then
Cells(I, 4) = " ""< à 15km/h"" "
End If
Next I
End Sub

Sur mon ficher il ne marche pas...
 

aude229

XLDnaute Nouveau
Re : Guillemets en VBA

Pas de message d'erreur, il ne se passe rien, le fichier était protéger mais j'ai enlever la protection pour faire ma manip. Mais je vais pouvoir y arriver vu que le code marche sur une autre feuille.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…