Discussion :

[seven10one6treize]

Bonjour à tous

Je crée un organigramme pour plusieurs équipes.
Les données vont servir pour différentes statistiques (âge moyen, nb. de femme et d'homme, ...)

J'ai besoin d'une macro pour indiquer un texte différent dans différentes cellules vides.
Chaque texte permet à l'utilisateur de remplir le tableau correctement (nom, prénom, ...)

Le texte doit réapparaître lorsque les données de la cellules sont effacées.

J'ai trouvé une formule intéressante mais seulement pour une cellule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Activate()
If Range("R17").Value = "" Then Range("R17").Value = "Nom"
End Sub
 
'Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$17" Then
If Range("R17").Value = "" Then Range("R17").Value = "Nom"
End If
End Sub

J'ai besoin d'étendre cette formule aux cellules du même type (Nom).
De même pour toutes les autres cellules de même type (Prénom, téléphone, ...)

N'étant pas spécialiste VBA, je ne sais pas comment adapter cette formule à plusieurs cellules...

J'ai joint un autre fichier qui donne une idée du fichier final.organigramme.xlsm

[seven10one6treize]

fichier...