Je viens seulement d'apprendre que des arbres généalogiques très élaborés
pouvaient être réalisés avec Excel. Et moi qui croyais qu'Excel n'était fait
que pour effectuer des calculs!
J'aimerais m'initier à cet aspect d'Excel mais je ne sais comment m'y
prendre. Qui pourrait m'indiquer des pistes de didacticiels (gratuits ou pas
trop chers) ou bien des sites pour me donner les bases de ce type de
schémas? Merci d'avance!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JièL Goubert
Bonjoir(c) Armand
Le 22/01/2006 12:06 vous avez écrit ceci :
Bonjour,
Je viens seulement d'apprendre que des arbres généalogiques très élaborés pouvaient être réalisés avec Excel.
Ben voyons... y paraitrais même qu'on peut faire des courrier avec :->
Et moi qui croyais qu'Excel n'était fait que pour effectuer des calculs!
Ben de base oui, tout comme un marteau n'est destiné qu'a enfoncer des clous, mais des fois on s'en sert pour des vis... de la à dire qu'on peut tout faire avec un marteau...
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Bonjoir(c) Armand
Le 22/01/2006 12:06 vous avez écrit ceci :
Bonjour,
Je viens seulement d'apprendre que des arbres généalogiques très élaborés
pouvaient être réalisés avec Excel.
Ben voyons... y paraitrais même qu'on peut faire des courrier avec :->
Et moi qui croyais qu'Excel n'était fait
que pour effectuer des calculs!
Ben de base oui, tout comme un marteau n'est destiné qu'a enfoncer des
clous, mais des fois on s'en sert pour des vis... de la à dire qu'on peut
tout faire avec un marteau...
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
Je viens seulement d'apprendre que des arbres généalogiques très élaborés pouvaient être réalisés avec Excel.
Ben voyons... y paraitrais même qu'on peut faire des courrier avec :->
Et moi qui croyais qu'Excel n'était fait que pour effectuer des calculs!
Ben de base oui, tout comme un marteau n'est destiné qu'a enfoncer des clous, mais des fois on s'en sert pour des vis... de la à dire qu'on peut tout faire avec un marteau...
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Fils Père Bouchez Droc Bourgeat Gidel Fleury Bouchez Michaut Miroux Aubert Gidel Droc Miroux Gavrillot Bouchez Gidel Droc Momo Droc Toto Momo
Dim bdt, n, ligne Sub vpersonnes(parent, niv) ' procédure récursive ligne = ligne + 1 Range("B16").Offset(ligne, niv) = parent Range("B16").Offset(ligne, niv).Borders(xlEdgeLeft).Weight = xlThin Range("B16").Offset(ligne, niv).Borders(xlEdgeBottom).Weight = xlThin
For i = 1 To n If bdt(i, 2) = parent Then vpersonnes bdt(i, 1), niv + 1 End If Next i End Sub
Sub organigramme() Range("C17:M200").Clear ligne = 0 n = Application.CountA(Range("a:a")) - 1 bdt = Range("BD") vpersonnes Range("D2"), 1 End Sub
Fils Père
Bouchez Droc
Bourgeat Gidel
Fleury Bouchez
Michaut Miroux
Aubert Gidel
Droc Miroux
Gavrillot Bouchez
Gidel Droc
Momo Droc
Toto Momo
Dim bdt, n, ligne
Sub vpersonnes(parent, niv) ' procédure récursive
ligne = ligne + 1
Range("B16").Offset(ligne, niv) = parent
Range("B16").Offset(ligne, niv).Borders(xlEdgeLeft).Weight = xlThin
Range("B16").Offset(ligne, niv).Borders(xlEdgeBottom).Weight = xlThin
For i = 1 To n
If bdt(i, 2) = parent Then
vpersonnes bdt(i, 1), niv + 1
End If
Next i
End Sub
Sub organigramme()
Range("C17:M200").Clear
ligne = 0
n = Application.CountA(Range("a:a")) - 1
bdt = Range("BD")
vpersonnes Range("D2"), 1
End Sub
Fils Père Bouchez Droc Bourgeat Gidel Fleury Bouchez Michaut Miroux Aubert Gidel Droc Miroux Gavrillot Bouchez Gidel Droc Momo Droc Toto Momo
Dim bdt, n, ligne Sub vpersonnes(parent, niv) ' procédure récursive ligne = ligne + 1 Range("B16").Offset(ligne, niv) = parent Range("B16").Offset(ligne, niv).Borders(xlEdgeLeft).Weight = xlThin Range("B16").Offset(ligne, niv).Borders(xlEdgeBottom).Weight = xlThin
For i = 1 To n If bdt(i, 2) = parent Then vpersonnes bdt(i, 1), niv + 1 End If Next i End Sub
Sub organigramme() Range("C17:M200").Clear ligne = 0 n = Application.CountA(Range("a:a")) - 1 bdt = Range("BD") vpersonnes Range("D2"), 1 End Sub
Cordialement JB
Clément Marcotte
Bonjour
tout comme un marteau n'est destiné qu'a enfoncer des clous, mais des fois on s'en sert pour des vis...
Mais quand la tête de la vis est assez brisée pour que le tournevis tourne dans le beurre, le marteau devient une solution rapide et efficace. (Mais là, il faut être sur que la vis est bien à la bonne place...) ;-)
Bonjour
tout comme un marteau n'est destiné qu'a enfoncer des clous, mais des fois
on s'en sert pour des vis...
Mais quand la tête de la vis est assez brisée pour que le tournevis tourne
dans le beurre, le marteau devient une solution rapide et efficace. (Mais
là, il faut être sur que la vis est bien à la bonne place...) ;-)
tout comme un marteau n'est destiné qu'a enfoncer des clous, mais des fois on s'en sert pour des vis...
Mais quand la tête de la vis est assez brisée pour que le tournevis tourne dans le beurre, le marteau devient une solution rapide et efficace. (Mais là, il faut être sur que la vis est bien à la bonne place...) ;-)
