Guillemets en VBA

[aude229]

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]

Re : Guillemets en VBA

Bonjour,

essaye peut être ceci, spérant que cela puisse t'aider :

If ActiveCell.Value = "< à 15km/h" Then ActiveCell.Value = """< à 15km/h"""

bon après midi
@+

 

[aude229]

Re : Guillemets en VBA

Merci c'est gentil, mais j'avais essayer quelque chose s'y rapprochant et cela ne marche pas :s !

Bon après midi à toi aussi.

 

[WUTED]

Re : Guillemets en VBA

Bonjour aude229, Pierrot93,

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

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

Bonne journée,
WUTED

 

[aude229]

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]

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]

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]

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

 

[Pierrot93]

Re : Guillemets en VBA

Re,

Merci c'est gentil, mais j'avais essayer quelque chose s'y rapprochant et cela ne marche pas :s !

bah... as tu essayé la syntaxe exacte que je te proposais, la cellule active étant renseignée par < à 15km/h

 

[Littledave]

Re : Guillemets en VBA

Salut,

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

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]

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...

 

[Pierrot93]

Re : Guillemets en VBA

Re,

Sur mon ficher il ne marche pas...

cela veut dire quoi ? message d'erreur ou pas le résultat attendu ? le classeur et / ou la feuille ne sont ils pas protégés ?

 

[aude229]

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.

 

[WUTED]

Re : Guillemets en VBA

Re,

Tu es sûre que tu appelles bien la propriété Cells de la feuille dont tu veux faire les modifications?

 

[Littledave]

Re : Guillemets en VBA

Re,

ta macro est elle vraiment activée ? Si tu mets un msgbox "macro activée", la boite de dialogue apparaît elle à l'écran ?