Créer une séparation en vba

T77XDD · 10 Juillet 2012

Bonjour,
je cherche à créer une séparation entre des évènements pour la nouvelle journée.
J'ai fait une macro qui trace un trait de A à F en bleu avec une hauteur de 6.
Qui rajoute la date du jour dans la colonne 1 sous la ligne crée.

Code:

Sub Lign()
Range("A7:F7").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 12611584
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Rows("7:7").RowHeight = 6
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("A9").Select
End Sub

le soucis c'est que avec l'évolution du tableau cette ligne doit être créer à la dernière ligne, là elle est toujours créer sur la ligne 7 avec la date en "A8"
En plus cette date se remet à jour tous les jours.
Comment faire pour que cette ligne se créée à la suite, ou sur la dernière case que je sélectionne avec la date qui se rajoute en dessous.
Merci.

francedemo · 10 Juillet 2012

Re : Créer une séparation en vba

bonjour,
à tester:

Code:

Sub Lign()

derlig = [A65000].End(xlUp).Row + 1
Range(Cells(derlig, 1), Cells(derlig, 7)).Select
With Selection.Interior
   .Pattern = xlSolid
   .PatternColorIndex = xlAutomatic
   .Color = 12611584
   .TintAndShade = 0
   .PatternTintAndShade = 0
End With
ActiveCell.RowHeight = 6
Range("A" & [A65000].End(xlUp).Row + 1) = Now
Range("A" & [A65000].End(xlUp).Row + 1).Select
End Sub

à +

T77XDD · 10 Juillet 2012

Re : Créer une séparation en vba

Génial,
ça fonctionne avec "Row + 3" à la place de "Row + 1" dans

Code:

Range("A" & [A65000].End(xlUp).Row + 1) = Now
Range("A" & [A65000].End(xlUp).Row + 1).Select

et "Row + 2" à la place de "Row + 1" au début.
Ou est ce que je peu trouver comment s'y prendre pour renseigner "derlig..........Select", si j'avais pensé à passer par là, perso j'aurais fait "Dim var$" et "var = je parle même pas de la formule" ainsi que les variable qui peuvent être rentrées dans "Range".
Merci pour cette réponse ultra rapide
Ps: Est ce que vous avez une idée sur cette discussion https://www.excel-downloads.com/threads/creer-un-hyperlien-resolu.187661/

Créer une séparation en vba

T77XDD

XLDnaute Occasionnel

Pièces jointes

francedemo

XLDnaute Occasionnel

T77XDD

XLDnaute Occasionnel

Discussions similaires

Créer une séparation en vba

T77XDD

XLDnaute Occasionnel

Pièces jointes

francedemo

XLDnaute Occasionnel

T77XDD

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency