Donnée formule
Fermé
nizard01
Messages postés
5
Date d'inscription
lundi 16 janvier 2017
Statut
Membre
Dernière intervention
17 janvier 2017
-
17 janv. 2017 à 10:34
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 janv. 2017 à 12:23
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 janv. 2017 à 12:23
A voir également:
- Donnée formule
- Formule si et - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Formule excel moyenne - Guide
- Excel mise en forme conditionnelle formule - Guide
- Formule excel - Guide
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 311
17 janv. 2017 à 10:55
17 janv. 2017 à 10:55
Bonjour,
dropbox nécessite de s'inscrire !!! :-((
Dans l’attente
dropbox nécessite de s'inscrire !!! :-((
Mettre le classeur sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic droit-coller le raccourci dans votre message
Dans l’attente
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 311
17 janv. 2017 à 12:23
17 janv. 2017 à 12:23
proposition
Option Explicit
'-----------------------------------------------------------
Sub concatener_meme_zone()
Dim Derlig As Integer, D_zone As Object, T_zone, Cptr As Integer, Ref As String
Dim T_liste, T_cie, Lig As Integer
Application.ScreenUpdating = False
'--------------------------------------------------initialisation
Set D_zone = CreateObject("scripting.dictionary")
Derlig = Columns("B").Find(what:="*", searchdirection:=xlPrevious).Row
T_zone = Range("B4:C" & Derlig)
'-------------------------------------------------- traitement
For Cptr = 1 To UBound(T_zone)
Ref = T_zone(Cptr, 1)
If Not D_zone.exists(Ref) Then
D_zone.Add Ref, ""
Else
D_zone.Item(Ref) = D_zone.Item(Ref) & " " & T_zone(Cptr, 2)
End If
Next
'------------------------------------------------------restitution
T_liste = D_zone.keys
T_cie = D_zone.items
For Cptr = 0 To UBound(T_liste)
Lig = Columns("B").Find(T_liste(Cptr), Range("B3")).Row
Cells(Lig, "D") = T_cie(Cptr)
Next
End Sub
Modifié par Vaucluse le 17/01/2017 à 11:13
et salut Michel, ça va?
... ben non, tu peux récupérer le fichier via le bouton télécharger en haut à droite
menu "téléchargement direct"
et celle là je te la laisse, car je pense qu'il va falloir du VBA, je ne vois pas de formules directes pour traiter ça, sauf à passer par des colonnes intermèdiaires.
Bon courage
crdlmnt
17 janv. 2017 à 11:27
https://mon-partage.fr/f/qEAd1yZg/
Merci