Discussion :

[arnogb69]

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' :

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

[Piixx_e]

Bonjour !

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

[arnogb69]

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

[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" ?

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

[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 ?

[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 :

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

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

[Piixx_e]

Wow. Je suis impressionnée, je fais vraiment pas le poids

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

[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 :

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

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

[Piixx_e]

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

[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 :

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

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.

[Piixx_e]

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 !

[arnogb69]

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 :

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

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 )

[EngueEngue]

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

Pour la feuille active:

Code :

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

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 :

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

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

[arnogb69]

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

En effet, je me suis trompé

Code :

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

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