Remplacer dans toutes les cellules

Version imprimable

13/11/2013, 15h47
arnogb69

Remplacer dans toutes les cellules

Bonjour tout le monde,

Je n'y connais rien en VBA, et du coup, j'ai un algo simple que je ne sais pas traduire...

Pour résumer, j'ai un fichier avec des noms de personnes (la liste est exhaustive).
Je dois parser toutes mes cellules, et remplacer un nom par son trigramme. Par exmple, j'ai pierre.dupont, après mon script je dois avoir PDT. La liste étant exhaustive, la transformation se fera "en dur"

En fonction des possibilités de VBA, mon algo est soit une liste de 'if', soit un 'switch-case' :

Citation:

Boucle sur toutes les cellules remplies, pour chaque cellule
Si 'contenu-cellule' == 'mon nom'
Alors Remplacement 'contenu-cellule' par 'mon trigramme'
Sinon
Rien
Fin Si
Fin boucle

Merci d'avance
13/11/2013, 15h54
Piixx_e

Bonjour !

Citation:

Envoyé par arnogb69

Je dois parser toutes mes cellules, et remplacer un nom par son trigramme. Par exmple, j'ai pierre.dupont, après mon script je dois avoir PDT. La liste étant exhaustive, la transformation se fera "en dur"

Tu as déjà une liste avec dans une colonne les noms et une colonne les trigrammes, ou il faut créer les trigrammes ?

Rassure toi, je ne crois pas que c'est très compliqué, je pourrais m'y pencher si tu as besoin, mais dans ce forum certains sont très forts et sauront sûrement répondre plus facilement que moi.

Mais si ta liste de trigrammes n'est pas créée, il y a facilement moyen de, par une boucle qui parcourt tous tes noms, de remplacer chaque nom par son trigramme, ou alors de remplir la colonne d'à côté. Il existe une fonction qui pourra te permettre de :
1) Prendre la première lettre du nom
2) Prendre la première lettre après le point
3) Prendre la dernière lettre du nom
4) Regrouper le tout et le copier soit dans la colonne d'à côté soit à la place du nom

Je crois que c'est possible, d'autres te répondront peut-être plus vite, mais je vais regarder :)
13/11/2013, 16h02
arnogb69

Citation:

Envoyé par Piixx_e

Tu as déjà une liste avec dans une colonne les noms et une colonne les trigrammes, ou il faut créer les trigrammes ?

Je l'ai déjà la liste des trigrammes...
En fait, je ne voulais pas compliquer mon algo, surtout qu'il faudrait que je rajoute une règle du style "si mon contenu est du type prenom.nom" pour limiter mes remplacements là où il faut

Je sais que mon algo n'est pas compliqué, ça me prendrait juste 3 minutes en php, mais je n'y connais vraiment rien en VBA.

Merci en tout cas
13/11/2013, 16h06
Piixx_e

Ahh d'accord !

Excuse moi, je n'avais pas du tout saisi ta demande :?

Mais que peut-il y avoir d'autres pour que tu doutes que ce soit de la forme prenom.nom ?
Est-ce que ça suffirait de vérifier qu'il y a un point dans la cellule ? Ou il faut vérifier qu'il y a "une chaine de caractères" + "." + "une chaine de caractères" ?
13/11/2013, 16h22
arnogb69

Je pense qu'il faut plus vérifier "chaine de caractères" + "." + "une chaine de caractères"

Mes autres cellules contiennent du texte (sans concaténation ou des chiffres...)
13/11/2013, 16h38
Piixx_e

Hum d'accord, je suppose que tu ne peux pas m'envoyer quelques exemples de trucs pas bons pour que je puisse essayer ça ?

Parce que je me disais que peut-être, il suffisait de lui dire : s'il n'y a pas un point (donc s'il y en a zéro c'est faux et s'il y en a strictement plus qu'un c'est faux) ou s'il y a un chiffre, c'est faux. Et peut être rajouter que si le point est le 1er ou dernier caractère c'est faux aussi.

Il y a d'autres cas, ou ça pourrait convenir et suffire comme raisonnement ?
13/11/2013, 16h45
EngueEngue
Pix, il suffit d'affecter à une variable x un split avec le point et de tester le uperbound de faire un if ubound(x) = 1
Code:

1 2 3 4 5 Sub toto() Stringue = "nom.prenom" x = Split(Stringue, ".") If UBound(x) = 1 Then MsgBox ("C'est un nom et prénom") End Sub
13/11/2013, 16h53
Piixx_e

Wow. 8O Je suis impressionnée, je fais vraiment pas le poids :lol:

Mais pour le coup, je serais vraiment ravie que tu m'expliques ce que tu viens d'écrire, je ne connais pas la moitié des fonctions utilisées. (si tu as le temps bien sûr, sinon l'aide VBA est mon amie !)

Merci d'avance :oops:
13/11/2013, 16h56
EngueEngue
Tu as le code en dessous...

La fonction split(Chaine,Delimiteur) va te séparer ta chaine de caractères dans un tableau
Code:

1 2 stringue = nom.prenom: x = split(stringue,".")
Va te donner un tableau avec x(0) = nom et x(1) = prenom

Donc si la borne supérieure de x vaut 1 la condition "chaine" & "." & "chaine" est vérifiée...
13/11/2013, 17h00
Piixx_e

Citation:

Envoyé par EngueEngue

Tu as le code en dessous...

J'avais vu, mais ça ne m'a pas aidée, d'où ma question, je ne voulais pas encombrer la page en recopiant le code c'est tout :)

J'ai compris maintenant, merci pour l'explication :D

Voilà ce qui devrait répondre à ta question l'ami si ma compréhension de ton pb est bonne et s'il n'y a pas de coquilles puisque non testé
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub toto2() dim x() As string with sheets("Feuil1") For each c in .usedrange x = split(c.value, ".") If ubound(x) = 1 Then c.value = ucase(left(x(0), 1)) & ucase(left(x(1), 1)) & ucase(right(x(1), 1)) End if next end with end sub
Testé et approuvé: Il va te changer toutes les cases de la sorte "chaine" & "." & "chaine" dans la Feuille qui s'appelle Feuil1 par la premiere lettre de la premiere chaine la premiere de la deuxieme et la derniere de la deuxieme en majuscules.

13/11/2013, 17h22
Piixx_e

Citation:

Envoyé par arnogb69

Je l'ai déjà la liste des trigrammes...
En fait, je ne voulais pas compliquer mon algo, surtout qu'il faudrait que je rajoute une règle du style "si mon contenu est du type prenom.nom" pour limiter mes remplacements là où il faut

En fait il a déjà la liste des trigrammes ! Mais voilà arnogb69, si jamais tu voulais aussi ne pas avoir la colonne des trigrammes à faire, EngueEngue t'as tout dit je crois :)

Bonne continuation !

Citation:
Envoyé par EngueEngue
Voilà ce qui devrait répondre à ta question l'ami si ma compréhension de ton pb est bonne et s'il n'y a pas de coquilles puisque non testé
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub toto2() dim x() As string with sheets("Feuil1") For each c in .usedrange x = split(c.value, ".") If ubound(x) = 1 Then c.value = ucase(left(x(0), 1)) & ucase(left(x(1), 1)) & ucase(right(x(1), 1)) End if next end with end sub
Testé et approuvé également!!
Merci beaucoup
Juste une dernière remarque, plus d'ordre générique... il n'y a pas possibilité de ne pas nommer la feuille, mais de prendre toutes les feuilles actives? (la c'est pour chipoter ;) )

Toutes les feuilles actives ? Il n'y a qu'une seule feuille active en même temps..

Pour la feuille active:

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub toto2()
dim x() As string
    with Activesheet
        For each c in .usedrange
            x = split(c.value, ".")
            If ubound(x) = 1 Then
                c.value = ucase(left(x(0), 1)) & ucase(left(x(1), 1)) & ucase(right(x(1), 1))
            End if
        next
    end with
end sub

Pour toutes les feuilles du classeur:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub toto2()
dim x() As string
    For each WS in activeworkbook.worksheets
With WS
        For each c in .usedrange
            x = split(c.value, ".")
            If ubound(x) = 1 Then
                c.value = ucase(left(x(0), 1)) & ucase(left(x(1), 1)) & ucase(right(x(1), 1))
            End if
        next
 
    end with
Next Ws
end sub

Citation:

Envoyé par EngueEngue

Toutes les feuilles actives ? Il n'y a qu'une seule feuille active en même temps..

En effet, je me suis trompé :aie:

Citation:

Envoyé par EngueEngue

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub toto2()
dim x() As string
    For each WS in activeworkbook.worksheets
With WS
        For each c in .usedrange
            x = split(c.value, ".")
            If ubound(x) = 1 Then
                c.value = ucase(left(x(0), 1)) & ucase(left(x(1), 1)) & ucase(right(x(1), 1))
            End if
        next
 
    end with
Next Ws
end sub

Et je pars sur celle là

Merci