Appliquer une formule de concaténation en VBA

Version imprimable

1 pièce(s) jointe(s)

Bonjour le forum,

Pouvez vous m'aider svp, je veux appliquer une formule de concaténation spécifique en VBA sur une plage de cellule.
Ci-contre mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Dim Somme As Variant
Dim Concatener As Variant
Dim Ligne As Integer
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Cells.CountLarge > 1 Then
 
    Else
        Ligne = ActiveCell.Row
 
        ' Application de la somme de Note_1 + Note_2 sur la colonne Somme
        If Not Intersect([J2:J10], Target) Is Nothing And Target.Count = 1 Then
            Somme = Cells(Ligne, 8).Value + Cells(Ligne, 9).Value
            Cells(Ligne, 10).Value = Somme
        End If
 
        'Appliquer la formule de concaténation de Note_1 + Note_2 + Somme
        'Adaptater la formule du style : TEXTE(Cells(ligne, 8);"0###")&""&TEXTE(Cells(ligne, 9);"0###")&""&TEXTE(Cells(ligne, 10);"0###")
        If Not Intersect([K2:K10], Target) Is Nothing And Target.Count = 1 Then
            Concatener = Cells(Ligne, 8) & "" & Cells(Ligne, 9) & "" & Cells(Ligne, 10)
            Cells(Ligne, 11).Value = Concatener
        End If
 
    End If
End Sub

Je veux appliquer une formule de concatenation du style :

Code:

TEXTE(Cells(ligne, 8);"0###")&""&TEXTE(Cells(ligne, 9);"0###")&""&TEXTE(Cells(ligne, 10);"0###")

Je met en PJ mon fichier XLS.

Merci d'avance :ave:

23/09/2020, 14h39
Jean-Philippe André

Bonjour,

comme il s'agit de deux choses différentes, pourrais-tu nous dire ce que tu cherches a faire entre
- mettre le résultat de la concaténation dans la cellule (en passant par .Value)
- mettre la formule avec les fonctions dont tu as parlé dans la cellule (en passant par .Formula)

Car selon ta réponse, les solutions proposées seront différentes :)

Merci pour nous.
23/09/2020, 15h11
JemaCodeur

Citation:

Envoyé par Jean-Philippe André

Bonjour,

comme il s'agit de deux choses différentes, pourrais-tu nous dire ce que tu cherches a faire entre
- mettre le résultat de la concaténation dans la cellule (en passant par .Value)

Salut,
Si j'ai bien compris c'est ce que je voulais faire sauf ça ne m'a pas réussit :) [débutant je suis ]

Citation:

Envoyé par Jean-Philippe André

- mettre la formule avec les fonctions dont tu as parlé dans la cellule (en passant par .Formula)

8O S'il existe une méthode en passant par Formula qui me permettra de d'avoir mon résultat attendu aussi je serais preneur.

Citation:

Envoyé par Jean-Philippe André

Car selon ta réponse, les solutions proposées seront différentes :)

Merci pour nous.

Merci encore de votre réaction.

Citation:
Envoyé par JemaCodeur
Code:

1 2 3 4 If Not Intersect([K2:K10], Target) Is Nothing And Target.Count = 1 Then Concatener = Cells(Ligne, 8) & "" & Cells(Ligne, 9) & "" & Cells(Ligne, 10) Cells(Ligne, 11).Value = Concatener End If
Citation:

Je veux appliquer une formule de concatenation du style :

Code:

TEXTE(Cells(ligne, 8);"0###")&""&TEXTE(Cells(ligne, 9);"0###")&""&TEXTE(Cells(ligne, 10);"0###")

Aussi bien dans VBA que dans la formule Excel, les & "" sont totalement inutiles.

Si tu veux l'équivalent VBA de la fonction TEXTE(), c'est Format().
Lire ceci : https://docs.microsoft.com/fr-fr/off...r-applications

Mais je ne comprends pas l'intérêt du format "0###". :koi:

23/09/2020, 15h39
JemaCodeur

Citation:

Envoyé par Menhir

Aussi bien dans VBA que dans la formule Excel, les & "" sont totalement inutiles.

Si tu veux l'équivalent VBA de la fonction TEXTE(), c'est Format().
Lire ceci : https://docs.microsoft.com/fr-fr/off...r-applications

Salut Menhir;
Merci pour le liens je vais le potasser pour avoir ma réponse.

Citation:

Envoyé par Menhir

Mais je ne comprends pas l'intérêt du format "0###". :koi:

:mrgreen: Weah j'avoue que ce que je veux faire c'est un peut tordu, mais bon il me le faut puisse que la bonne concaténation de ces cellules me permettra de faire une récupération dans ma BD d'autres colonnes.

Bonjour,

Menhir, votre lien m'a permit d'avoir un début de solution.
Par contre, je suis toujours bloqué sur le formatage de la première cellules quand j'applique la formule suivantes.
Code:

1 2 3 4 5 6 If Not Intersect([K2:K10], Target) Is Nothing And Target.Count = 1 Then ' Existe - t - il une methode plus simple de le faire. Resultat = Format(Cells(ligne, 8), "0#") & "" & Format(Cells(ligne, 9), "0##") & "" & Format(Cells(ligne, 10), "0#") Cells(ligne, 11).Value = Resultat End If
S'il y a une méthode plus simple de le faire j'en serais ravis.

Merci.

24/09/2020, 09h34
Menhir

Il faudrait que tu commences par appliquer les mêmes formats que ceux se trouvant dans ta formule Excel.

Et prend aussi le temps de relire ma réponse précédente en entier.
24/09/2020, 10h11
JemaCodeur

Citation:

Envoyé par Menhir

Il faudrait que tu commences par appliquer les mêmes formats que ceux se trouvant dans ta formule Excel.

Bonjour Menhir,
j'applique ma formule comme ci-joint.

Code:

Format(Cells(Ligne, 8), "0##") & Format(Cells(Ligne, 9), "0##") & Format(Cells(Ligne, 10), "0##")

Cependant, au lieu d'avoir par exemple :
023045068
J'ai une valeur ne prenant pas en compte le premier zero :
23045068

Citation:

Envoyé par Menhir

Et prend aussi le temps de relire ma réponse précédente en entier.

Je crois savoir ce que vous voulez me faire savoir. les symboles &"" ? :koi:
24/09/2020, 10h49
Menhir

Décidément, j'ai l'impression que tu ne lis pas vraiment ce qu'on t'écrit.

Je le répète, il faudrait que tu commences par appliquer les mêmes formats que ceux se trouvant dans ta formule Excel.

Compare ça :

Code:

TEXTE(Cells(ligne, 8);"0###")&TEXTE(Cells(ligne, 9);"0###")&TEXTE(Cells(ligne, 10);"0###")

Avec ça :

Code:

Format(Cells(Ligne, 8), "0##") & Format(Cells(Ligne, 9), "0##") & Format(Cells(Ligne, 10), "0##")

Tu ne vois pas une différence dans les formats ???
24/09/2020, 11h10
JemaCodeur

Citation:

Envoyé par Menhir

Décidément, j'ai l'impression que tu ne lis pas vraiment ce qu'on t'écrit.

Je le répète, il faudrait que tu commences par appliquer les mêmes formats que ceux se trouvant dans ta formule Excel.

Compare ça :

Code:

TEXTE(Cells(ligne, 8);"0###")&TEXTE(Cells(ligne, 9);"0###")&TEXTE(Cells(ligne, 10);"0###")

Avec ça :

Code:

Format(Cells(Ligne, 8), "0##") & Format(Cells(Ligne, 9), "0##") & Format(Cells(Ligne, 10), "0##")

Tu ne vois pas une différence dans les formats ???

D'accord, je ne vois absolument pas de ce que vous voulez me faire savoir. Je présume que vous parlez du Format pour que je l'écris de la forme :

Code:

Format(Cells(Ligne, 8), "0###") & Format(Cells(Ligne, 9), "0###") & Format(Cells(Ligne, 10), "0###")

Sauf que si c'est ça, je crois que c'est à peu prés la même chose avec un # de moins et je ne crois pas que ça change grand chose à ma formule.

Après tout c'est vous l'expert si vous dites que j'ai raté une chose .
24/09/2020, 11h43
Menhir

S'il y a 230 en colonne 8, Cells(ligne, 8);"0##") donnera "230" alors que Cells(ligne, 8);"0###") donnera "0230".
C'est ce que tu sembles indiquer dans ta réponse #8 entre le code en vert et celui en rouge.

Si tu ne mets pas le même nombre de # entre ta formule Excel et ta formule VBA, ça donnera forcément des résultats différents.
24/09/2020, 11h57
JemaCodeur

1 pièce(s) jointe(s)

Citation:

Envoyé par Menhir

S'il y a 230 en colonne 8, Cells(ligne, 8);"0##") donnera "230" alors que Cells(ligne, 8);"0###") donnera "0230".
C'est ce que tu sembles indiquer dans ta réponse #8 entre le code en vert et celui en rouge.

Si tu ne mets pas le même nombre de # entre ta formule Excel et ta formule VBA, ça donnera forcément des résultats différents.

D'accord je vois ce vous voulez me dire mais sauf que même si j'applique Cells(ligne, 8);"0###") me donnera 230 au lieu de 0230 dans la première cellules de concaténation.

Je vous mets en PJ le fichier XLS Actuelle.

Merci Quand même de vous intéresser à mon problème.
24/09/2020, 12h13
Menhir

Citation:

Envoyé par JemaCodeur

D'accord je vois ce vous voulez me dire mais sauf que même si j'applique Cells(ligne, 8);"0###") me donnera 230 au lieu de 0230 dans la première cellules de concaténation.

Je viens de tester, Format(230, "0###") renvoie 0230.

Si tu obtiens 230, c'est sans doute parce que la cellule dans laquelle tu places cette valeur n'est pas au format Texte.

Code:

Cells(Ligne, 11).NumberFormat = "@"

Citation:

Je vous mets en PJ le fichier XLS Actuelle.

Je n'ouvre jamais les fichiers joints, surtout les XLSM.

Citation:

Merci Quand même de vous intéresser à mon problème.

Je ne comprends pas trop le "quand même". :?
24/09/2020, 12h28
JemaCodeur

Citation:

Envoyé par Menhir

Je viens de tester, Format(230, "0###") renvoie 0230.

Si tu obtiens 230, c'est sans doute parce que la cellule dans laquelle tu places cette valeur n'est pas au format Texte.

Code:

Cells(Ligne, 11).NumberFormat = "@"

Je n'ouvre jamais les fichiers joints, surtout les XLSM.

Vous avez parfaitement raison c'était le format de mes cellules qui posait problème.

Citation:

Envoyé par Menhir

Je ne comprends pas trop le "quand même". :?

:lol: Rien de méchant, c'est juste que il n'y a que vous qui m'aidez et depuis hier vous ne m'avez pas laissé.:bravo:
Grace à vous, mon problème est résolu.

J'ai juste une question svp.

ET SI JE VOULAIS QUE LE RÉSULTAT DE LA CONCATÉNATION S'AFFICHE SANS QU'ON EST BESOIN DE CLIQUER DANS LA CELLULE COMMENT FAIRE ?
24/09/2020, 12h42
Pierre Fauconnier

5 pièce(s) jointe(s)
Citation:

Envoyé par Menhir

[...]
Si tu obtiens 230, c'est sans doute parce que la cellule dans laquelle tu places cette valeur n'est pas au format Texte.[...]

Ca devient n'importe quoi, les réponses sur ce forum... :aie:

Pièce jointe 580000

Pièce jointe 580001

Pièce jointe 580002

Qu'est-ce que le format de la cellule a à voir avec la fonction VBA Format()? Je me le demande... :koi:

Cela étant dit, peut-être le demandeur pourrait-il expliquer en français (sans jargon Excel et VBA) d'où il part et ce qu'il souhaite obtenir. On gagnerait du temps.

Pour info, on peut récupérer la valeur d'une cellule selon trois propriétés de celle-ci (en notant que, par défaut, et sauf instruction set qui affecte un objet, Cell équivaut à Cell.Value):
- Cell ou Cell.Value renvoie la valeur selon le type défini par Excel (nombre, date, texte,...)
- Cell.Value2 renvoie la valeur telle que manipulée par Excel et par VBA, et donc par Format(...) (<> que .Value uniquement pour les dates, dans les faits)
- Cell.Text renvoie du texte correspondant à la valeur affichée.
Pièce jointe 580003

Pièce jointe 580006

Donc, Format(...) n'a rien à voir avec le format de la cellule, si on utilise format(Cell.Value, "...").
24/09/2020, 12h49
Menhir

Citation:

Envoyé par Pierre Fauconnier

Ca devient n'importe quoi, les réponses sur ce forum... :aie:
Qu'est-ce que le format de la cellule a à voir avec la fonction VBA Format()? Je me le demande... :koi:

Je laisse le demandeur répondre :

Citation:

Envoyé par JemaCodeur

Vous avez parfaitement raison c'était le format de mes cellules qui posait problème.

Ca devient vraiment n'importe quoi la modération sur ce forum.
24/09/2020, 13h01
Pierre Fauconnier

Il n'est pas question ici de modération, puisque rien n'a été modéré. Evidemment, si tu imagines que chaque réponse de ma part sur le forum est un acte de modération, on n'est pas rendus. Ne pas confondre acte de modération et réponse technique, stp.

Je dis simplement que tu dis n'importe quoi en parlant de format texte:

Citation:

Si tu obtiens 230, c'est sans doute parce que la cellule dans laquelle tu places cette valeur n'est pas au format Texte.[...]

J'ai prouvé, copies d'écran à l'appui, que le format de la cellule n'avait rien à voir avec le fait d'obtenir 230 ou 0230. Que le demandeur ait trouvé son compte dans le reste de ta réponse ne change rien au fait que le format de la cellule n'altère en rien ce que renvoie Cell.Value (ou Cell, utilisation de la propriété par défaut).
24/09/2020, 13h37
Menhir

Citation:

Envoyé par Pierre Fauconnier

J'ai prouvé, copies d'écran à l'appui, que le format de la cellule n'avait rien à voir avec le fait d'obtenir 230 ou 0230. Que le demandeur ait trouvé son compte dans le reste de ta réponse ne change rien au fait que le format de la cellule n'altère en rien ce que renvoie Cell.Value (ou Cell, utilisation de la propriété par défaut).

Le problème n'est pas le format de la cellule source mais celui de la cellule destination qui reçoit la valeur.
24/09/2020, 13h39
Pierre Fauconnier

Citation:

Envoyé par Menhir

[...]

Essaie de relire et de comprendre ma réponse précédente et tu verras que le problème n'est pas lié au format de la cellule, le format n'étant lié en rien à cell.value ;)

J'ai dit!
24/09/2020, 14h36
JemaCodeur

Re...
Je crois que vous voulez tous la même chose messieurs, c'est d'aider un débutant à avancer et je salut votre sollicitude.:ave:

Après tout j'ai une question comme quoi :
Si je veux que ma formule de concaténation génère les valeurs sans que j’éprouve le besoin de cliquer sur la cellule comment faire ?

Ps : je pense que j'ai demandé dans le jargon français :ccool:
24/09/2020, 15h01
Pierre Fauconnier

Perso, je n'ai pas compris ce que tu souhaites réaliser. Un code doit se déclencher sur un évènement. Cela peut être la modification d'une cellule, la sélection d'une feuille, un clic sur un bouton, l'ouverture du classeur, ...

Donc, si tu veux que la macro s'enclenche, tu dois définir l'évènement qui permet cela. Après, il faudra voir si Excel et le VBA permettent de capturer cet évènement.
24/09/2020, 15h12
JemaCodeur
Citation:

Envoyé par Pierre Fauconnier

Perso, je n'ai pas compris ce que tu souhaites réaliser. Un code doit se déclencher sur un évènement. Cela peut être la modification d'une cellule, la sélection d'une feuille, un clic sur un bouton, l'ouverture du classeur, ...

Donc, si tu veux que la macro s'enclenche, tu dois définir l'évènement qui permet cela. Après, il faudra voir si Excel et le VBA permettent de capturer cet évènement.

Ce que je veux faire concrètement c'est comme dans l’exemple de mon fichier xls en PJ.
1. Si je modifie une cellule de la colonne Note_1 , la colonne Concaténation le prend directement en compte.
2. Item pour les autres colonnes suivantes.
24/09/2020, 15h25
Pierre Fauconnier

1 pièce(s) jointe(s)

Tu pourrais utiliser une formule dans ton tableau structuré, en mettant le format de la colonne "Concatener" (voire de la colonne entière de la feuille) en standard.

Pièce jointe 580021

Je ne comprends même pas comment on en est arrivé à autant de messages sur ce problème basique... Mais bon, je suppose que répondre envers et contre tout est plus valorisant que d'aider le demandeur initial en essayant de comprendre son problème et d'y répondre au mieux :vomi:
24/09/2020, 15h39
JemaCodeur

D'accord si je comprends bien, vous voulez que je met la formule directement sur la feuille excel ?
Sinon j'ai bien saisie votre réponse.

Merci
24/09/2020, 15h44
Pierre Fauconnier

Ben oui. C'est l'essence même du tableau structuré... ;)
24/09/2020, 15h47
JemaCodeur

Citation:

Envoyé par Pierre Fauconnier

Ben oui. C'est l'essence même du tableau structuré... ;)

C'est exactement ce que je fuis, c'est pour cela je veux passer par Vba.
Car, je veux éviter l'effacement des cellules qui supprime en même temps la formule appliquer à la cellule.
24/09/2020, 15h49
Pierre Fauconnier

Pourquoi ne pas utiliser ce qu'Excel met à ta disposition?

Le tableau structuré permet justement de se passer de VBA dans ton cas de figure... Que n'aimes-tu pas dans le tableau structuré?
24/09/2020, 16h01
JemaCodeur

Citation:

Envoyé par Pierre Fauconnier

Pourquoi ne pas utiliser ce qu'Excel met à ta disposition?

Le tableau structuré permet justement de se passer de VBA dans ton cas de figure... Que n'aimes-tu pas dans le tableau structuré?

Bon,

Si j'applique la formule directement dans le tableau structuré, l'utilisateur par faute d'inattention peux supprimer les valeurs générer par les formules (ça m'est déjà arrivé) tout en croyant que les formules restent (alors que non).
Ainsi, il m'a fallu que je refasse tout le boulot. Pour l'exemple que j'ai mis en PJ ça va, Par contre s'il s'agissait d'un grand projet avec un deadline définie et une multitudes de formule :marteau:

Donc pour éviter tout ce pétrin et comme l'informaticien est de nature paresseux :lol: je cherche à mettre tous mes formules en vba de ce fait je suis tranquille.

J’espère bien répondre à votre question
24/09/2020, 17h37
Pierre Fauconnier

Forme tes utilisateurs à Excel, plutôt que monter l'usine à gaz qui sera de toute façon poreuse... ;) Ou alors, développe une application en C# ou autre dans laquelle tes utilisateurs ne pourront rien faire d'autre que ce que tu as explicitement prévu...
25/09/2020, 09h47
JemaCodeur

Citation:

Envoyé par Pierre Fauconnier

Forme tes utilisateurs à Excel, plutôt que monter l'usine à gaz qui sera de toute façon poreuse... ;) Ou alors, développe une application en C# ou autre dans laquelle tes utilisateurs ne pourront rien faire d'autre que ce que tu as explicitement prévu...

Bonjour,
Je suis en train de faire une Application du genre.:lol:
Et, comme je dois faire une importation en masse des données du fichier XLS dans ma BD via l'application et que ce n'est pas moi le développeur qui dois remplir ce fichier, il faut que j'en mets le plus de contraintes possible pour empêcher au utilisateurs de faire des bêtises qui vont me retomber dessus.

Merci à vous tous, j'apprends toujours de vous :bravo::resolu:

Fuseau horaire GMT +2. Il est actuellement 07h00.