Récupérer le contenu dune cellule et lajouter à celui dune autre

Résolu/Fermé
Anonyme - 5 juil. 2016 à 09:17
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 5 juil. 2016 à 09:53
Bonjour, j'ai un tableau assez volumineux à traiter et j'aurai besoin d'une macro ou une commande pour faire ça.
C'est assez simple j'ai deux cellules : l'une vide l'autre contient du texte.
J'aimerais que que la cellule vide soit remplit par du texte suivie du texte de la cellule pleine ( qui est située sur la même ligne).
Quelqu'un peut-il me faire une macro? Ou m’expliquer les commandes de bases?
Je n'ai aucune connaissance en langage VBA.
A voir également:

3 réponses

Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
5 juil. 2016 à 09:36
Bonjour ,

Quel texte veux-tu insérer dans ta cellule vide ?

Si c'est un texte que tu saisies à la main :

="ton texte que tu souhaites écrire "&tacellulepleine

A noter l'espace après le mot écrire pour obtenir un espace entre les 2 textes.

Si la premiere partie du texte provient d'une autre cellule :

=tapremierecellule & " " & tasecondecellule

Cdlt,
0
Merci beaucoup ça fonctionne c'est parfait !
Mon erreur était que j'utilisais un + et non un & c'est pour quoi j'avais une erreur #VALEUR
0
PHILOU10120 Messages postés 6367 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 2 avril 2024 795
5 juil. 2016 à 09:36
Bonjour

Le texte à ajouter est toujours le même

exemple on travail avec les colonne A et B
en A votre texte
en B cette formule =A1&" le texte à répéter"
0
Merci pour votre réponse !
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 5/07/2016 à 09:53
bonjour,

comme tu l'as pressentis, on ne peut pas écrire dans une cellule et en même temps copier par formule une autre cellule; il faut une macro

Option Explicit
'---------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Static Flag As Byte
If Target.Column = 1 And Flag = False Then
Flag = True
Target = Target & " " & Target.Offset(0, 1)
End If
Flag = False
End Sub


pour installer
faire un copier de cette macro
clic droit sur le nom de l'onglet de la feuille concernée (en bas de l'écran)
visualiser le code
coller


si tes macros ne sont activées fais signe en donnant ta version excel
 Michel
-1