Base de données -fonction-cellule blanche

[Marie]

Bonjour à tous,
Comment faire dans la base de données suivante :

médecin nom prenom adresse tel..
médecin nom prenom adresse tel..
médecin nom prenom adresse tel..
Kiné nom prenom adresse tel..
Kiné nom prenom adresse tel..

Pour que médecin ne soit pas visible, par ex en blanc, si sur la ligne au dessus il y a déjà médecin, exemple :

médecin nom prenom adresse tel..
nom prenom adresse tel..
nom prenom adresse tel..
Kiné nom prenom adresse tel..
nom prenom adresse tel..
et que je puisse continuer à trier par professions pour faire un annuaire professionnel dans une page HTML.
Merci de vos lumières
Marie

 

[Marie]

Aïe..! l'espace a été mangé dans mon exemple, je voudrais obtenir sans les petits points:
médecin nom prenom adresse tel..
........... nom prenom adresse tel..
........... nom prenom adresse tel..
Kiné nom prenom adresse tel..
........... nom prenom adresse tel..
Merci encore
Marie

 

[Chris]

Bonjour
Mise en forme conditionnelle
Formule
= (a2=a1)

mettre le texte en blanc (ou de la couleur du fond)

A appliquer sur toutes les cellules de A2 à la fin.

Mais je ne suis pas sûre que que la conversion en HTML en tienne compte.
A voir.

Chris

 

[CHti160]

salut "Marie,Chris"
et biensûr les autres

j'ai bidouillé ce petit morceau de code qui peu sûrement être amélioré

tu mets ce code dans VBA (Alt+F11)dans la partie code de ta feuil1
tu mets un bouton sur ta feuil1 et tu lies la macro celluleBlanche à ce bouton
Sub celluleBlanche()
Dim L As Integer
Dim cell As Range, maplage As Range
Dim temp1 As String
Range("A8").Select 'Cellule de debut de colonne
temp1 = ActiveCell.Value
L = Range("A65535").End(xlUp).Row
Set maplage = Worksheets("Feuil1").Range("A8:A" & L)'plage de rechervche
For Each cell In maplage
If ActiveCell.Offset(1, 0).Value = temp1 Then

ActiveCell.Offset(1, 0).ClearContents
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then Exit Sub
temp1 = ActiveCell.Value

End If
Next
End Sub
A+++
Jean Marie

 

[Chris]

Bonjour Jean Marie
Ton code semble parfait en fin de parcours mais...
Que se passe t'il si on ajoute des données et que l'on trie ?
Ton code supprime les valeurs il me semble.

Sinon on peut aussi ajouter une colonne entre médecin et nom qui reprend ou non la profession selon qu'il s'agit de la 1ere ligne ou pas et masquer la 1ere colonne lors de l'export HTML.

En mettant en B2 (nouvelle colonne)
=si(A2<>A1;A2;"")

Chris

 

[Marie]

Merci pour ta réponse cela me blanchi bien mes cellules mais pas dans l'ordre souhaité :
médecin (blanc)
médecin (blanc)
médecin (noir)
Je souhaiterait l'ordre inverse.
D'autre part rien ne se passe dans ma page Html
Merci encore
Marie

 

[Marie]

Bonjour Jean Marie,
Il faut que tu m'expliques comment faire un bouton je n'ai pas trouvé, je n'ai que des connaissances basic dans excel ! Loll
Ensuite je copie le code que tu as fait, j'ai 2 options général et worksheet que dois-je choisir ?
Merci infiniment pour ton aide
Marie

 

[CHti160]

Salut "Marie"
bonjour le "FORUM"
pour ce qui est de la solution de "Chris" tu prends pour référence dans la formule du format conditionnel la cellule vide qui se trouve juste au dessus de du premier medecin si ta colonne commence En A8 tu tapes =(A7=A8)
et la tu as ce que tu désires.
pour ce qui est du bouton dans ta feuil1 tu clic droit dans la barre des menus en haut tu coches Visual Basic
une nouvelle barre apparait tu clic sur les outils en croix ensuite tu promènes le pointeur de ta souris sur les éléments de cette boite
et tu clic sur " bouton de commande "et tu clic sur ta feuil1 le bouton "CommandButton1" apparait
tu double clic dessus une fenêtre s'ouvre et tu as le début d'une procèdure
Private Sub CommandButton1_Click()
là tu mets le nom de la Macro soit "celluleBlanche"sans les guillemets
End Sub
la macro étant copiée dans VBAProject(nom de ton projet) tu clic sur le +
tu double clic sur la feuil1 si ton tableau se trouve sur la feuil1
est la tu copies le code soit
Sub celluleBlanche()
Dim L As Integer
Dim cell As Range, maplage As Range
Dim temp1 As String
Range("A8").Select 'Cellule de debut de colonne
temp1 = ActiveCell.Value
L = Range("A65535").End(xlUp).Row
Set maplage = Worksheets("Feuil1").Range("A8:A" & L)'plage de rechervche
For Each cell In maplage
If ActiveCell.Offset(1, 0).Value = temp1 Then

ActiveCell.Offset(1, 0).ClearContents
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then Exit Sub
temp1 = ActiveCell.Value

End If
Next
End Sub
en espérant avoir été clair et précis
mais je ne comprend pas ce que veux dire
j'ai 2 options général et worksheet
worksheet veut dire Feuille mais peut être travailles tu sur MAC par exemple et la les choses ne sont pas tout a fait pareilles
je te prépare un fichier que je te posterai sous peu
A+++
Jean Marie

 

[Marie]

Merci Jean Marie pour toute la procédure, j'essaierai ce soir.
Je travaille bien, sur PC.
C'est vraiment sympa de m'aider
Amitiés à tous
Marie

 

[chris]

Re
J'ai testé ma proposition de mise en forme conditionnelle et de sauvegarde en tant que page web et ça marche très bien (Excel 2000).

Donc je ne comprends pas quand tu dis qu'il ne se passe rien dans ta page html.

Chris

 

[CHti160]

Re "Salut"
un petit fichier qui peut être adapté ,amélioré
A voir
A+++
Jean Marie