Discussion :

[patougaffou]

Bonjour tout le monde,

n'ayant pas aucune connaissance des macros, je voudrai pourvoir, après avoir inscris "R" sur une cellule, récupérer la valeur d'une cellule me donnant le nombre de jour dépassant la date d'échéance.
Voici l'exemple en fichier attaché.
Par la même occasion connaissez vous un bon site me permettant d'apprendre pas à pas les VBA et les macros.

Merci beaucoup pour vos réponses.

[rvtoulon]

Slt,
Le nombre de jour en question sont les jours de la colonne E?
ET tu veux les récuperer pour les mettre où?

Si j'ai compris la date en colonne A c la date de Facturation et la date en colonne C la date d'échéance.
Pour Savoir combien de jours sont passée entre la date d'échéance et la date de règlement peut-être qu'ils faut rajouter une colonne avec la date de règlement, du moins je crois....

Après on peut essayer de faire quelque choses.

A+

[patougaffou]

Merci rvtoulon pour ta réponse.

Oui le nombre de jour est inscris dans la colonne E, qui fonctionne comme un compteur, puisqu'ayant dans la formule la fonction aujourdhui(). mais par exemple à la ligne suivante lorsque je tape R la formule est copié et collé en valeur à la meme place.

[rvtoulon]

Re,
lorsque tu met R dans la colonne B la colonne E doit elle afficher quelques choses ou rien?

dsl mais je comprend pas

mais par exemple à la ligne suivante lorsque je tape R la formule est copié et collé en valeur à la meme place.

parceque j'ai essayé je met R partout et la formule reste propre àchaque ligne elle n'est pas recopié ...

au risque de me répéter, dsl, tu dis que tu veux récupérer le contenu de la cellule de la dernière colonne pour en faire quoi, la mettre ou?

je voudrai pourvoir, après avoir inscris "R" sur une cellule, récupérer la valeur d'une cellule me donnant le nombre de jour dépassant la date d'échéance.

[aalex_38]

Bonjour,

Peut être qu'une formule comme DATEDIF pourrait te convenir?

[patougaffou]

Désolé de ne pas pouvoir me faire bien comprendre.

En fait il ne se passe rien parce qu'il n'y a pas de macro. Je voudrai justement pouvoir écrire ce macro qui me permettra qu'à chaque fois que je tape R en B6 qu'il me copie la formule en E6 et me la colle toujours en E6 mais en valeur.

DATEDIF je ne connais pas.

Encore merci!

[rvtoulon]

Re slt,
J'ai compris ce que tu voulais voici le code qui fonctionne pour le nombre de ligne de l'exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Macro1()
Dim i As Long, vcel As Integer
 
For i = 5 To 8
If Range("B" & i) = "" Then
    Range("E" & i).FormulaR1C1 = "=TODAY()-RC[-2]"
 
ElseIf Range("B" & i) = "R" Then
    Range("E" & i).FormulaR1C1 = "=TODAY()-RC[-2]"
vcel = Range("E" & i).Value
Range("E" & i) = vcel
 
End If
Next i
 
End Sub

il y a peut-etre plus simple mais au moins il fonctionne ! je t'ais mis le fichier en exemple.

A+