MAJ ligne

[jeanphi]

bonjour


dans le fichier joint je souhaite qu'en fonction de la date du jour un tableau de range (C16:F28) se mette à jour
par exemple si on est le 2 du mois le loyer qui se trouve en range(C5😀5) doit est mis à jour en range (C16😀16) et ainsi de suite
cela fonctionne sauf que dans mon code ci dessous je précise i=16 to 16
donc si cette zone n'est pas vide, il m'écrase les infos...
je voudrais donc arriver à faire ce que je viens d'expliquer mais qu'en plus si la ligne n'est pas vide que la MAJ se fasse dans la première ligne vide après la ligne pleine

Sub MAJ()


For i = 16 To 16
If Day(Now) = 13 And Cells(i, 3).Value = "" Then Cells(i, 3).Value = "EDF"
If Day(Now) = 13 And Cells(i, 4).Value = "" Then Cells(i, 4).Value = "27"
Next i
End Sub


je sais pas si c'est clair mais quelqu'un peut t'il m'aider svp? 🙂
merci

 

[Pierrot93]

Re : MAJ ligne

Bonjour JeanPhi

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

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
@+

 

[Pierrot93]

Re : MAJ ligne

Re

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

@+

 

[jeanphi]

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?🙂

 

[Pierrot93]

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...

@+

 

[jeanphi]

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 😕

 

[jeanphi]

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.......

 

[jeanphi]

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...

 

[Pierrot93]

Re : MAJ ligne

Re

remplaces par le code ci dessous :

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

@+

 

[jeanphi]

Re : MAJ ligne

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