Discussion :

[JemaCodeur]

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 :

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

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 :

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

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

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

[JemaCodeur]

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 ]

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

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

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

Merci pour nous.

Merci encore de votre réaction.

[Menhir]

Code :

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

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

Je veux appliquer une formule de concatenation du style :

Code :

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

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

[JemaCodeur]

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.

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

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.

[JemaCodeur]

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 :

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

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.

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

[JemaCodeur]

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 :

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

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

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

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

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

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

Avec ça :

Code :

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

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

[JemaCodeur]

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 :

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

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

Avec ça :

Code :

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

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 :

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

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 .

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

[JemaCodeur]

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.

[Menhir]

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 :

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

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

Je vous mets en PJ le fichier XLS Actuelle.

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

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

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

[JemaCodeur]

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 :

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

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.

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

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

[Pierre Fauconnier]

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









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


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.

Donc, Format(...) n'a rien à voir avec le format de la cellule, si on utilise format(Cell.Value, "...").

[Menhir]

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

Je laisse le demandeur répondre :

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.

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

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

[Menhir]

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.

[Pierre Fauconnier]

[...]

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!

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

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