Tracer un tableau excel selon les cellules remplies

[JoeGillian]

Bonsoir,

Je cherche le moyen de tracer un tableau en fonction de la détection des cellules pleines: il s'agit de tracer des tableaux sur differentes feuilles à partir d'une feuille de données constituée de données exportées de Project sur Excel; par conséquent , les exports successifs peuvent ne pas être de la même taille .C'est pourquoi il me semble plus logique de tracer les tableaux à partir de la détection des cellules renseignées que de se servir de l'enregistreur de macros.
Vers quelle solution m'orienter?

Merci

 

[hoerwind]

Re : Tracer un tableau excel selon les cellules remplies

Bonjour,

Une solution à ta question, je n'en ai pas.
Mais je puis bien te proposer une solution pour obtenir une réponse.

Mets en pièce jointe un exemple reprenant les données et les résultats à obtenir, avec une petite explication du pourquoi et du comment.
Ce sera nettement plus facile pour essayer de t'aider.

 

[JoeGillian]

Re : Tracer un tableau excel selon les cellules remplies

Salut Hoerwind,

Je n'ai pas pu te répondre plus tôt mais j'ai finalement réussi à trouver une sortie à mon impasse.
Merci de ton aide; un jour c'est moi qui viendrai t'aider.
See you next time!

 

[papounez]

Re : Tracer un tableau excel selon les cellules remplies

Salut Hoerwind,

Je n'ai pas pu te répondre plus tôt mais j'ai finalement réussi à trouver une sortie à mon impasse.
Merci de ton aide; un jour c'est moi qui viendrai t'aider.
See you next time!

Salut,

La solution nous intéresse, si tu pouvais nous en faire part, ou du moins m'en faire part 😛

Merci

 

[JoeGillian]

Re : Tracer un tableau excel selon les cellules remplies

Salut Papounez, le forum,

Je croyais avoir la macro en question: il y a encore des imperfections.
J'ai un début de solution; je continue de chercher mais je devrais trouver dans la semaine.
Je poste alors la soluce.

 

[JoeGillian]

Re : Tracer un tableau excel selon les cellules remplies

Re!
Voilà ce que j'ai trouvé et qui marche bien:
Sub limer() [HoHoHo]



ActiveCell.CurrentRegion.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlHairline
End With

End Sub

Cela a été réalisé à partir d'un bout de code et de l'enregistreur de macro( pour savoir comment construire le tableau)


Arrivederci!