Concaténer en VBA

**Philippe608** · 21/09/2017, 16h45

Bonjour,

Est-il possible de concaténer en VBA cellule par cellule ?

Par exemple Code ATT en B1
AB 600 22 en C1

Dans la colonne F:F je tape 52 j'obtiens dans la colonne E:E : ATT AB 600 22 52
Si c'est possible merci de me donner un exemple de code.

Si je change un code il ne faut que celui-ci soit répercuté dans les cellules déjà traitées.
Philippe
Merci,
@+

**unparia** · 21/09/2017, 18h45

Bonjour
Une simple formule, de surcroît très élémentaire !
L'opérateur de concaténation est &
Je fuis ...

**Menhir** · 21/09/2017, 18h50

C'est même possible sans VBA en mettant en E1

Code :

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

=$B$1&" "&$C$1&" "&F1

Puis tu copies E1 vers le bas autant que nécessaire.

**Philippe608** · 21/09/2017, 19h06

Bien sûr, mais il ne faut pas de formule dans mes cellules car parfois je suis obligé de mettre du texte ou des chiffres, il faut donc que VBA pilote ces cellules.

Merci et bonne soirée
Philippe

**unparia** · 21/09/2017, 19h19

il ne faut pas de formule dans mes cellules car parfois je suis obligé de mettre du texte ou des chiffres

Ah ? Et alors ?
Ou serait-ce qu'il s'agit finalement là d'un exercice imposé (un devoir, donc) à ne traiter qu'avec VBA ?

**Philippe608** · 21/09/2017, 19h43

Donc apparemment c'est pas possible !

Bonne soirée.

**unparia** · 21/09/2017, 19h48

Donc apparemment c'est pas possible !

Re "Ah ?"

**Philippe608** · 21/09/2017, 20h15

Avez-vous un exemple en VBA ?
Merci

**unparia** · 21/09/2017, 20h30

Je persiste et signe mon message n° 2
et refuse de traiter par VBA (pour les raisons indiquées dans mon second message) ce qui ne nécessite que Excel.

**Menhir** · 22/09/2017, 09h07

Envoyé par Philippe608

Avez-vous un exemple en VBA ?

Il semblerait que tu ne souhaites pas un exemple mais un code tout fait, non ?
Une question simple : as-tu un minimum de formation en VBA ou attends-tu que ce forum fasse tout ton travail à ta place ?

Comme il a été joliment dit récemment dans un autre message, ce forum a un but d'apprentissage.
Ce n'est donc pas un hasard si tu as l'impression que les intervenants de ce sujet trainent des pieds à te donner une solution toute faite à laquelle tu participes si peu.
Voir : http://club.developpez.com/regles/#LIV-N

La solution que je t'ai proposée peut s'adapter très facilement en VBA, pour peu qu'on en connaisse les bases les plus élémentaires.
http://bidou.developpez.com/article/VBA/
https://msdn.microsoft.com/fr-fr/lib.../gg264104.aspx

**Philippe608** · 22/09/2017, 12h32

Bonjour,

Non, je ne souhaite pas un code tout fait, mais je suis sûr d'une chose c'est qu'avec des formules dans ma colonne, le jour ou je vais changer les valeurs en B1 et C1 la répercussion sera dans toute la colonne, et je suis presque sûr que si l'on travaille avec VBA il n'y aura pas de problème, les cellules seront traitées une par une.

Le but est de saisir des enregistrements plus rapidement, avec cette méthode ça devrait aller plus vite.
J'ai raison ou pas ?
J'ai besoin d'un point de départ avec quelques conseils, je ne suis un pro de l'informatique.

Bonne journée.
Philippe

**taquatzieu** · 22/09/2017, 13h01

Bonjour,
As-tu pensé à l'enregistreur de macro pour commencer ?

**BENNASR** · 22/09/2017, 13h02

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
Dim j As Integer
With Sheets("feuil1")
i = .Range("A" & Rows.Count).End(xlUp).Row
 For j = 1 To i
.Cells(j, 3) = .Cells(j, 1) & .Cells(j, 2)
 Next j
End With
End Sub