Afficher les noms en relation avec des noms de la colonne A
Fermé
0548
Messages postés
73
Date d'inscription
samedi 21 mars 2015
Statut
Membre
Dernière intervention
19 janvier 2017
-
Modifié par 0548 le 9/09/2015 à 03:09
0548 Messages postés 73 Date d'inscription samedi 21 mars 2015 Statut Membre Dernière intervention 19 janvier 2017 - 11 sept. 2015 à 02:31
0548 Messages postés 73 Date d'inscription samedi 21 mars 2015 Statut Membre Dernière intervention 19 janvier 2017 - 11 sept. 2015 à 02:31
A voir également:
- Afficher les noms en relation avec des noms de la colonne A
- Les noms des animaux - Télécharger - Études & Formations
- Trouver une adresse avec un nom de famille gratuit ✓ - Forum Mobile
- Nom de l'adresse - Forum Réseaux sociaux
- Déplacer une colonne excel - Guide
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
4 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
9 sept. 2015 à 13:30
9 sept. 2015 à 13:30
Bonjour,
Une proposition avec une macro VBA
https://www.cjoint.com/c/EIjlDhbl46t
A+
Une proposition avec une macro VBA
https://www.cjoint.com/c/EIjlDhbl46t
A+
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 215
9 sept. 2015 à 13:32
9 sept. 2015 à 13:32
Bonjour,
avec une macro.
Regarde si ça correspond : https://www.cjoint.com/c/EIjlFGSiWom
eric
avec une macro.
Regarde si ça correspond : https://www.cjoint.com/c/EIjlFGSiWom
eric
0548
Messages postés
73
Date d'inscription
samedi 21 mars 2015
Statut
Membre
Dernière intervention
19 janvier 2017
9 sept. 2015 à 13:35
9 sept. 2015 à 13:35
Merci infiniment pour tous
Raymond PENTIER
Messages postés
58406
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
5 mai 2024
17 101
9 sept. 2015 à 03:12
9 sept. 2015 à 03:12
Salut.
Il y en a 612 !
Il y en a 612 !
Raymond PENTIER
Messages postés
58406
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
5 mai 2024
17 101
Modifié par Raymond PENTIER le 9/09/2015 à 03:29
Modifié par Raymond PENTIER le 9/09/2015 à 03:29
Je laisse le soin à mes petits camarades de CCM, qui dorment à cette heure (il n'est que 21h24 chez moi), de te proposer de belles formules pour calculer ce résultat ...
Moi, je me suis contenté de bidouiller, en créant un tableau de 4594 lignes sur 136 colonnes et en cherchant dans chacune des 615 328 cellules concernées s'il y a une occurrence authors/query.
Par sécurité, j'ai en dernière colonne les totaux par ligne (cela varie de 0 à 3)
et en dernière ligne les totaux par colonne (cela varie de 0 à 19).
https://www.cjoint.com/c/EIjbCmOYpDI
Moi, je me suis contenté de bidouiller, en créant un tableau de 4594 lignes sur 136 colonnes et en cherchant dans chacune des 615 328 cellules concernées s'il y a une occurrence authors/query.
Par sécurité, j'ai en dernière colonne les totaux par ligne (cela varie de 0 à 3)
et en dernière ligne les totaux par colonne (cela varie de 0 à 19).
https://www.cjoint.com/c/EIjbCmOYpDI
0548
Messages postés
73
Date d'inscription
samedi 21 mars 2015
Statut
Membre
Dernière intervention
19 janvier 2017
>
Raymond PENTIER
Messages postés
58406
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
5 mai 2024
9 sept. 2015 à 12:28
9 sept. 2015 à 12:28
Bonjour Raymond,
Merci pour tos mais j'ai pas pu accéder à votre fichier
Merci pour tos mais j'ai pas pu accéder à votre fichier
Raymond PENTIER
Messages postés
58406
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
5 mai 2024
17 101
>
0548
Messages postés
73
Date d'inscription
samedi 21 mars 2015
Statut
Membre
Dernière intervention
19 janvier 2017
9 sept. 2015 à 18:03
9 sept. 2015 à 18:03
C'est très curieux ! Essaie de nouveau ...
0548
Messages postés
73
Date d'inscription
samedi 21 mars 2015
Statut
Membre
Dernière intervention
19 janvier 2017
9 sept. 2015 à 19:19
9 sept. 2015 à 19:19
oui c'est bon j'ai cru que vous m'avez envoyer un fichier et non pas une image
0548
Messages postés
73
Date d'inscription
samedi 21 mars 2015
Statut
Membre
Dernière intervention
19 janvier 2017
11 sept. 2015 à 02:31
11 sept. 2015 à 02:31
Re Bonsoir ,
j'ai pu résoudre mon problème à l'aide de vos macro.
j'ai utilisé ce code là :
Option Explicit
Sub Lister ()
Dim Dico, d
Dim Cel As Range, C As Range
Dim Tablo
Dim i As Byte
Dim Texte As String
Dim Nb As Integer
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("Sheet1")
For Each Cel In .Range("A2:A" & Range("A" &Rows.Count).End(xlUp).Row)
Nb = 0
Texte = ""
For Each E In .Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
If InStr(C, Cel) > 0 Then
Nb = Nb + 1
Tablo = Split(E, ";")
For i = 0 To UBound(Tablo)
If Not Dico.Exists(Trim(Tablo(i))) Then Dico(Trim(Tablo(i))) = ""
Next i
End If
Next C
For Each d In Dico.keys
Texte = Texte & d & ", "
Next d
Cel1.Offset(0, 2) = Nb
If Texte <> "" Then Cel.Offset(0, 3) = Left(Texte, Len(Texte) - 2)
Dico.RemoveAll
Next Cel
End With
End Sub
Mais maintenant j'aimerai faire le même travail , pour les nouveaux noms qui sont affichés dans la colonne D.
j'ai ajouté des variables et j'ai refais le même travail , en remplaçant C par E et d par f etc.. ; mais j'ai pas eu le résultat que veux.
La raison est que j'ai maintenant plusieurs noms , séparées par des virgules .
j'ai voulu jouer sur les fonction (left ; right ; search ;..) mais j'ai pas pu trouvé une méthode exacte pour tous le fichier .
Je vous reviens en aide pour savoir comment faire Pour chercher tous les noms de la nouvelles colonnes D en B ?
j'ai pu résoudre mon problème à l'aide de vos macro.
j'ai utilisé ce code là :
Option Explicit
Sub Lister ()
Dim Dico, d
Dim Cel As Range, C As Range
Dim Tablo
Dim i As Byte
Dim Texte As String
Dim Nb As Integer
Set Dico = CreateObject("Scripting.Dictionary")
With Worksheets("Sheet1")
For Each Cel In .Range("A2:A" & Range("A" &Rows.Count).End(xlUp).Row)
Nb = 0
Texte = ""
For Each E In .Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
If InStr(C, Cel) > 0 Then
Nb = Nb + 1
Tablo = Split(E, ";")
For i = 0 To UBound(Tablo)
If Not Dico.Exists(Trim(Tablo(i))) Then Dico(Trim(Tablo(i))) = ""
Next i
End If
Next C
For Each d In Dico.keys
Texte = Texte & d & ", "
Next d
Cel1.Offset(0, 2) = Nb
If Texte <> "" Then Cel.Offset(0, 3) = Left(Texte, Len(Texte) - 2)
Dico.RemoveAll
Next Cel
End With
End Sub
Mais maintenant j'aimerai faire le même travail , pour les nouveaux noms qui sont affichés dans la colonne D.
j'ai ajouté des variables et j'ai refais le même travail , en remplaçant C par E et d par f etc.. ; mais j'ai pas eu le résultat que veux.
La raison est que j'ai maintenant plusieurs noms , séparées par des virgules .
j'ai voulu jouer sur les fonction (left ; right ; search ;..) mais j'ai pas pu trouvé une méthode exacte pour tous le fichier .
Je vous reviens en aide pour savoir comment faire Pour chercher tous les noms de la nouvelles colonnes D en B ?
11 sept. 2015 à 02:11