Concatener plusieurs cellules dans une boucle
Résolu/Fermé
ngio1301
Messages postés
46
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
14 mai 2022
-
Modifié le 6 déc. 2019 à 01:26
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022 - 12 déc. 2019 à 15:43
ngio1301 Messages postés 46 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 14 mai 2022 - 12 déc. 2019 à 15:43
A voir également:
- Concatener plusieurs cellules dans une boucle
- Formule excel pour additionner plusieurs cellules - Guide
- Concatener deux cellules excel - Guide
- Concaténer pdf - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellules excel - Guide
2 réponses
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
38
7 déc. 2019 à 16:31
7 déc. 2019 à 16:31
Bonjour
J'espère avoir répondu à ton problème.....
A+ François
J'espère avoir répondu à ton problème.....
Sub Recup()
Dim TopT As Range, cel As Range, mavar As String
Set TopT = Feuil1.Range("A2:A10")
mavar = ""
Columns(21).ClearContents
For Each cel In TopT
If cel <> "" Then
If cel = "" Then
Exit For
Else
cel.Select
mavar = "La porte du " & ActiveCell.Offset(0, 0)
mavar = mavar & " a été changé le: " & ActiveCell.Offset(0, 1)
mavar = mavar & ", à: " & ActiveCell.Offset(0, 2)
If ActiveCell.Offset(0, 4) = "" Then
GoTo 1 'decale d'une ligne les resultats???
Else
mavar = mavar & ", par M " & ActiveCell.Offset(0, 4)
mavar = mavar + ActiveCell.Offset(0, 10)
End If
mavar = mavar + ActiveCell.Offset(0, 15)
Feuil1.Range("U11").End(xlUp).Offset(1, 0).Value = mavar
End If
End If
1
Next cel
End Sub
A+ François
ngio1301
Messages postés
46
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
14 mai 2022
12 déc. 2019 à 15:23
12 déc. 2019 à 15:23
Bonjour François.
Toutes mes excuses pour ma réponse tardive. Je te remercie déjà de m'avoir répondu, mais avec les circonstances sociales je n'ai pas eu trop de temps ces jours-ci. je vais essayer ce que tu m'as envoyé et je te dis si c'est ok.
Toutes mes excuses pour ma réponse tardive. Je te remercie déjà de m'avoir répondu, mais avec les circonstances sociales je n'ai pas eu trop de temps ces jours-ci. je vais essayer ce que tu m'as envoyé et je te dis si c'est ok.
12 déc. 2019 à 15:43