Selection auto de cellule

[David T]

Re bonjour à vous!
J'ai besoin d'un petit coup de main sur une macro !
Tout est expliqué sur le fichié !

Le but de la macro est double! :
Etape 1 : Dans un premier temps elle doit sélectionner les cellules d'intersection entre la dernière ligne et la dernière colonne! Le but est de mettre en forme les cellules en mettant des bordure! (ça je sait faire!!!!)

Etape 2 : La macro doit remplacer le contenu de la cellule A2 par sont 1er mot, Ici ce sera Année , Ca je sais faire aussi! j'ai mit le code après!. Là ou ça coince c'est pour le copier et le coller dans toutes les cellules de A2 jusqu'à la dernière ligne du tableau!!! Sachant que ça varie en fonction du nombre de référence donc chaque cas est unique .

Voilà ! Merci d'avance [file name=Exemple_david.zip size=7145]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_david.zip[/file]

 

[Creepy]

Hello le Forum, David,

Je sais pas si j'ai bien tout compris, est-ce que l'exemple te va ?

++

Creepy [file name=Exemple_david_20050807191348.zip size=10703]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_david_20050807191348.zip[/file]

 

[David]

Merci creepy! C'est tout à fait ça!!!!

Il manque juste la problématique n° 1 mais qui doit fonctionner de la même manière!

elle consiste à mettre le code suivant qui est la mise en forme des cellule comme sur la feuille 2 du classeur d'exemple!


Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

 

[David]

Heu :huh: ! Creepy! t toujours là !

J'ai pas réussi à le faire 😱 pour mettre les bordures! Tu peux m'aider ?