Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour insérer avant le texte d'une cellule le contenu d'une autre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion leflohic
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

leflohic

Guest
Bonjour,

Colonne A : liste de prénom
Colonne B : liste de nom

Je chercher à enserrer dans les cellules de la colonne B le contenue de la colonne A en gardant le contenu de la colonne B (prénom + nom) et cela depuis la ligne 2 jusqu'à la dernière ligne avec une valeur .

Ci-dessous un début de macron avec les problème suivants :
- Je n'arrive qu'avec la valeur de la cellule A2 mais je n'arrive pas à faire toute la colonne
- Je n'arrive pas a faire de le Range de la cellule B2 à la dernière avec du texte

Merci par avance

Sub Test()
Dim c As Range
For Each c In Range ("B2:B100")
If c.Value <> "" Then c.Value = [A2].Value & c.Value
Next
End Sub
 
Trier par date Trier par votes
Bonjour
Code: 
Sub Test()
Dim c As Range,Dl%
Dl= Range("B" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne B
For Each c In Range ("B2:B"&Dl)
If c.Value <> "" Then c.Value = c.offset(0,-1) & " " & c.Value
Next
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
M12 à dit:
Bonjour
Code: 
Sub Test()
Dim c As Range
For Each c In Range ("B2:B100")
If c.Value <> "" Then c.Value = c.offset(0,-1) & " " & c.Value
Next
End Sub
Cliquez pour agrandir...

Merci cela fonction parfaitement.

Avez-vous la solution pour le Range de la cellule B2 à la dernière ligne avec valeur (et non à la B100 ) ?
 
Vote positif 0 Vote négatif
Bonjour tout le monde
Mon habitude est d'utiliser l'autre boucle plutôt que each
Sub Test()
Dim i As Integer
For i = 2 To Cells(100000, 1).End(xlUp).Rows - 1
Cells(i, 2) = Cells(i, 2) & " " & Cells(i, 1)
Next i
End Sub
Bien à vous
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2016 ajouter, une nouvelle feuille avec le contenu d'une cellule
Réponses
7
Affichages
123
job75
D
  • Résolu(e)
XL 2016 macro effacer en plusieurs en fonction d'un autre cellule
Réponses
13
Affichages
248
job75
  • Question Question
Microsoft 365 Extraire éléments d'une cellule
Réponses
9
Affichages
314
Hecatonchire
H
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
125
Nico Gre
N
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
744
Constantin
C
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
146
berru76
B
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
182
sylvanu
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
C
  • Question Question
Microsoft 365 Insérer le contenu d'une cellule dans le texte d'une autre cellule
Réponses
2
Affichages
620
chris427
C
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
343
Diane272727
D
N
  • Résolu(e)
XL 2013 Vérifier ci cellule pleine : réponse cellule adjacente
Réponses
3
Affichages
395
Nico77
N
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
573
job75
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
301
TooFatBoy
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
572
sylvanu
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
475
sousou
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
3 K
Rheeem
R
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
423
juju91
J
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
703
lynyrd
P
  • Question Question
XL 2021 inscrire le nombre d'une cellule dans une liste dans une colonne
Réponses
6
Affichages
439
OKBI
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…