XL 2019 copier la valeur automatiquement

KHEROUBI

XLDnaute Junior
Bonjour,
J'ai un cas :
J'ai une feuille "Suivi" qui englobe tous les contrats et chaque contrat à sa propre feuille.
Quand j'ajoute une facture d'un contrat dans sa feuille avec son numéro, sa date et son montant, bon il affiche le reste à facturer, ce reste à facturer je veux qu'il s'affiche automatiquement dans sa ligne dans la feuille "suivi".
Merci
 

Pièces jointes

  • contrats.xlsx
    20.5 KB · Affichages: 11
Solution
Bonjour KHEROUBI,

comme tu as été très long à répondre, j'ai bien cru que cet exo ne t'intéressait plus ! même si c'était le cas, c'est quand même mieux que tu reviennes sur ton sujet pour indiquer ton avis à propos de la dernière solution proposée ; sans ça, je me dis que j'ai travaillé sur ton exo pour rien ! 😭

avant de faire une nouvelle demande, tu aurais pu dire : « j'ai essayé le fichier joint dans ton post #3 », puis donner ton avis dessus : « c'est ok, ça donne bien les résultats attendus » OU « c'est pas bon, y'a ça qui ne va pas, en précisant bien ce qui cloche ».

perso...​

soan

XLDnaute Barbatruc
Inactif
Bonjour KHEROUBI,

ton fichier en retour ; sur la 1ère feuille "Suivi", fais Ctrl e ➯ travail effectué ! 😊

sub MajRAF() : le nom est l'abréviation de : Mise à jour du Reste À Facturer.
VB:
Sub MajRAF()
  If ActiveSheet.Name <> "Suivi" Then Exit Sub
  Dim ST$, c01 As Range, c02 As Range, k&, n%, i%
  n = Worksheets.Count: Application.ScreenUpdating = 0
  For i = 2 To n
    With Worksheets(i)
      ST = .[A4]
      If ST <> "" Then
        Set c01 = ActiveSheet.Columns(1).Find(ST, , -4163, 1, 1)
        If Not c01 Is Nothing Then
          Set c02 = .Cells(Rows.Count, 8).End(3): k = c02.Row
          If k > 8 Then c01.Offset(, 3) = c02
        End If
      End If
    End With
  Next i
End Sub

à te lire pour avoir ton avis. ;)

soan
 

Pièces jointes

  • contrats.xlsm
    28.2 KB · Affichages: 8
Dernière édition:

KHEROUBI

XLDnaute Junior
Bonjour Soan,
Désolé pour le retard

1/ J'ai changé de la recherche d'un "sous traitant" vers la recherche "N° contrat" vu qu'un sous traitant peut avoir plusieurs contrats.

Sub MajRAF()
If ActiveSheet.Name <> "Suivi" Then Exit Sub
Dim ST$, c01 As Range, c02 As Range, k&, n%, i%
n = Worksheets.Count: Application.ScreenUpdating = 0
For i = 2 To n
With Worksheets(i)
ST = .[A9]
If ST <> "" Then
Set c01 = ActiveSheet.Columns(3).Find(ST, , -4163, 1, 1)
If Not c01 Is Nothing Then
Set c02 = .Cells(Rows.Count, 8).End(3): k = c02.Row
If k > 2 Then c01.Offset(, 1) = c02
End If
End If
End With
Next i
End Sub


2/ J'ai ajouté une colonne dans la feuille "Suivi" pour "Fin de contrat" pour chaque contrat.

je cherche à ce que quand il reste un mois de la fin contrat il m'affiche un message que le contrat est à sa fin.

Merci
 

Pièces jointes

  • contrats (1).xlsm
    29.6 KB · Affichages: 4

soan

XLDnaute Barbatruc
Inactif
Bonjour KHEROUBI,

comme tu as été très long à répondre, j'ai bien cru que cet exo ne t'intéressait plus ! même si c'était le cas, c'est quand même mieux que tu reviennes sur ton sujet pour indiquer ton avis à propos de la dernière solution proposée ; sans ça, je me dis que j'ai travaillé sur ton exo pour rien ! 😭

avant de faire une nouvelle demande, tu aurais pu dire : « j'ai essayé le fichier joint dans ton post #3 », puis donner ton avis dessus : « c'est ok, ça donne bien les résultats attendus » OU « c'est pas bon, y'a ça qui ne va pas, en précisant bien ce qui cloche ».

perso, j'ai testé le code VBA de mon fichier du post #3 et ça retourne bien les résultats attendus ; donc même si tu n'as pas donné ton avis dessus, j'estime que le sujet est résolu pour ce qui concerne ta demande précédente ; mais je ne pouvais pas deviner que tu avais fait un changement important, et que tu allais faire une nouvelle demande !



tu as écrit : « J'ai ajouté une colonne dans la feuille "Suivi" pour "Fin de contrat" pour chaque contrat. »

ok, c'est vu : sur la feuille "Suivi", c'est la colonne E "Fin de Contrat".​



tu as écrit : « J'ai changé de la recherche d'un "sous-traitant" vers la recherche "N° contrat" vu qu'un sous-traitant peut avoir plusieurs contrats. »

ok, je comprends très bien, et tu as très bien fait ; mais du coup, pour le code VBA, c'est bien mieux d'adopter une "stratégie" complètement différente de la 1ère, d'où un nouveau code VBA très différent du 1er.​



tu as écrit : « je cherche à ce que quand il reste un mois de la fin contrat il m'affiche un message que le contrat est à sa fin. »

ok, c'est fait par une MFC.​



sur la 1ère feuille "Suivi", fais Ctrl e ➯ travail effectué ! 😊 au vu des résultats, je suppose que tu devines pourquoi j'ai modifié la date de fin de contrat de la "SARL LUCKY", n'est-ce pas ? oui, c'est bien ça, je parle de la feuille "AL 410 20 P", cellule i3 ; au cas où y'aurait besoin d'adapter la MFC, je te laisse le faire. 😁

voici le nouveau code VBA :

VB:
Sub MajRAF()
  If ActiveSheet.Name <> "Suivi" Then Exit Sub
  Dim cel As Range, k&, n&, i%
  With ActiveSheet.ListObjects("Tableau9")
    If .DataBodyRange Is Nothing Then Exit Sub
    n = .ListRows.Count + 2
  End With
  Application.ScreenUpdating = 0
  On Error GoTo 1 'au cas où la feuille n'existe pas
  For i = 3 To n
    With Worksheets(Cells(i, 3).Value)
      Cells(i, 4).Resize(, 2).ClearContents
      Set cel = .Cells(Rows.Count, 8).End(3): k = cel.Row
      Cells(i, 5) = .[I3]: If k > 8 Then Cells(i, 4) = cel
    End With
1 Next i
End Sub

tu vois, il est bien plus simple que le code VBA précédent. 😜 note bien qu'il n'y a plus de boucle pour balayer les feuilles du classeur 2 à n ; et y'a plus besoin d'utiliser .Find ; quand j'te parlais d'adopter une toute autre stratégie, c'est exactement de ça qu'il s'agit ! 😃

bon, j'espère que cette fois, tu n'oublieras pas d'revenir sur ce sujet pour indiquer ton avis, et même tu pourras marquer ce post comme solution si tout est ok ; je rappelle qu'il suffit de cliquer sur la coche en forme de "V" qui est sur le bord vertical droit du post.​

soan
 

Pièces jointes

  • contrats (1).xlsm
    29.7 KB · Affichages: 8
Dernière édition:

Discussions similaires

Réponses
4
Affichages
463

Statistiques des forums

Discussions
315 126
Messages
2 116 491
Membres
112 763
dernier inscrit
issam2020