Excel: divison des cellules Fermé

Question

Bonjour, 

J'ai un problème avec ma liste Excel et ses cellules:

J'ai une liste avec: Pays - Univ - Prof. Et j'aimerai que quand je sélectionne "Univ", il m'affiche tous les profs et le pays. Sachant que les cellules Pays et Univ sont fusionnées...
Avec le filtre automatique, il me donne seulement l'Univ et un Prof! Or il me faut tous les profs... Mystère, je cale... 
Merci, j'espère que vous comprenez mon soucis lol 

Configuration: Windows XP / Firefox 3.6.14

lermite222 · Answer

Bonjour,
j'espère que vous comprenez mon soucis
Beh non, c'est pas gagner :-)
Met un classeur exemple (sans donnée confidentiel) sur CiJoint.fr et mettre le lien sur un poste suivant.
A+

lermite222 · Answer

Je ne comprend toujours pas, les filtres automatique font ce que tu demande et je ne vois pas de cellule fusionnée.

Kev96 · Answer

Regarde, si tu vas sur les celles de 12 à 15. Il y a 1 cellule en A, 4 cellules en B et 1 cellule en C. Colonne C qui correspond à "Universidade FUMEC". Si je choisis cette dernière dans le filtre automatique, je n'aurai que le premier prof (B12) et le pays, or il me faudrait les 4 profs (B12 à B15). Pour les autres lignes c'est ok puisque il n'y a pas de fusion. Tu comprends? :-)

Krystan · Answer

Je comprend ton problème, en effet quand on fusionne des cellules, seul la première prend la valeur, les autres "disparaissent" donc c'est normal qu'elles n'apparaissent pas dans le filtre...

Pour l'instant la seule solution qui me viens à l'esprit serait de défusionner toutes les cellules et via une macro remplir les cellules vides par la valeur précédentes.

Bon, c'est une méthode plutôt bourrin et loin d'être esthétique (vive les répétitions), il doit surement y avoir plus simple !

Kev96 · Answer

Oui c'est tout à fait ça Krystan! Cependant ta méthode me conviendrait sans doutes mais comment fait-on avec la macro? Merci!

Krystan · Answer

Toujours version bourrin :)
Tu créer un bouton et tu colles ce code dedans :

Private Sub CommandButton1_Click()
'Sélection de la première cellule
Range("A1").Select
Dim Compteur
'Mettre le compteur à 0
Compteur = 0
Do
    Compteur = Compteur + 1
    'Si le compteur atteint 10, arrêter la boucle
    If Compteur = 10 Then
    Exit Do
    Else
    End If
    'Descendre d'une cellule
    ActiveCell.Offset(1, 0).Activate
    'Vérifier si la cellule est vide
    If ActiveCell.Value = "" Then
    'Si vide alors copier la cellule du dessus et coller
    ActiveCell.Offset(-1, 0).Activate
    ActiveCell.Copy
    ActiveCell.Offset(1, 0).Activate
    ActiveCell.PasteSpecial
    Else
    End If
    Application.CutCopyMode = False
Loop

End Sub

Donc ça c'est pour la colonne A, si tu veux mettre les autres colonnes, c'est le même code, tu as juste à changer A1 par la premiere cellule de la colonne que tu veux faire.

Ps1 : le compteur te permet de savoir sur combien de ligne travailler, pour l'instant il est a 10, tu dois au minimum mettre le nombre de ligne de ton fichier Excel

Ps2 : Je précise que c'est une version bourrin ^^ (2 minutes chrono)

lermite222 · Answer

Re,
Voir si cette solution te convient.
A+

Raymond PENTIER · Answer

Bonjour Kev96.

Tu t'es certainement aperçu, à travers cette discussion, qu'une base de données dans Excel sur laquelle on doit effecteur des tris, des filtres et tes recherches doit obéir à certaines règles absolues :

- Aucune ligne vide
- Aucune colonne vide
- Aucune cellule fusionnée
- La ligne 1 est réservée aux noms de colonnes (ou étiquettes de champs)
- La colonne A est réservée à la variable de référence SANS DOUBLON

Si l'une de ces obligations n'est pas respectée, inutile de nous consulter : 
c'est mission impossible !

Cordialement.

Kev96 · Answer

Merci Raymond, en effet, en remplissant les cellules ça fonctionne très bien, c'est juste un peu moins esthétique mais je fais abstraction, je préfère le pratique à l'esthétique.

lermite222: je ne parviens pas à dérouler la liste que tu as faite... Sinon ce procédé pourrait également convenir en cas de bon fonctionnement

Merci à vous!