Appliquer une formule de concaténation en VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

1 pièce(s) jointe(s)

Appliquer une formule de concaténation en VBA

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:

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 21h35.