MAJ ligne

Pierrot93

XLDnaute Barbatruc

• 13 Juillet 2007

• #2

Re : MAJ ligne

Bonjour JeanPhi

essaye peut être le code ci dessous, à placer dans l'événement "Open" du module "ThisWorkbook" :

Code:

Private Sub Workbook_Open()
With Sheets("Comptes")
    If Day(Date) = 13 Then
        .Range("C29").End(xlUp).Offset(1, 0).Value = "EDF"
        .Range("D29").End(xlUp).Offset(1, 0).Value = "27"
    End If
End With
End Sub

attention l'événement se déclenchera à chaque ouverture du fichier.

bonne journée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Juillet 2007

• #3

Re : MAJ ligne

Re

ton fichier en retour avec la macro insérée.

@+

 

Pièces jointes

• COMPTES.xls

  31.5 KB · Affichages: 35
• COMPTES.xls

  31.5 KB · Affichages: 37
• COMPTES.xls

  31.5 KB · Affichages: 34

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 13 Juillet 2007

• #4

Re : MAJ ligne

bonjour pierrot



ca fonctionne pour EDF par contre contre il ne mets pas à jour le montant correspond à EDF à savoir 27 dans le tableau
peux tu m'aider stp?🙂

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Juillet 2007

• #5

Re : MAJ ligne

Re

comprends pas, chez moi cela fonctionne, as tu essayé pas à pas, tu ouvres le classeur que je t'ais envoyé, tu te places dans le module "ThisWorkbookk" et tu actionnes la touche de fonction F8...

@+

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 13 Juillet 2007

• #6

Re : MAJ ligne

non ca ne marche que pr edf...
par ailleurs ce que je voudrais c est que si la ligne contient des infos, et bien que EDF + le montant associé s'écrive ds la ligne en dessous mais avec ta macro ca marche pas 😕

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 13 Juillet 2007

• #7

Re : MAJ ligne

enfin je me suis mal exprimé
ca marche si j affecte ta macro a un bouton mais ca marche pas à l ouverture du classeur.......

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 13 Juillet 2007

• #8

Re : MAJ ligne

oula decidement c moi ki ai du mal tester
la ca marche presque il reste juste un pb:
si la premiere ligne est vide il n me mets pas le montant (27°)
alors que si elle est pleine tout est ok...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Juillet 2007

• #9

Re : MAJ ligne

Re

remplaces par le code ci dessous :

Code:

Private Sub Workbook_Open()
With Sheets("Comptes")
    If Day(Date) = 13 Then
        If Not IsEmpty(Range("C16").Value) Then
            .Range("C29").End(xlUp).Offset(1, 0).Value = "EDF"
            .Range("D29").End(xlUp).Offset(1, 0).Value = "27"
        Else
            .Range("C16").Value = "EDF"
            .Range("D16").Value = "27"
        End If
    End If
End With
End Sub

@+

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 13 Juillet 2007

• #10

Re : MAJ ligne

voila c est exactement ce que je voulais!!
merci pierrot et bon week end 😉

 

Vote positif 0 Vote négatif