XL 2021 Création de tableau

  • Initiateur de la discussion Initiateur de la discussion Alamyr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Alamyr

XLDnaute Nouveau
Bonjour,
J'ai l'impression que la solution doit être simple mais je ne la trouve pas
Voici ce que je souhaite faire:

Sur une feuille : des valeurs sont calculées au jour le jour
A1 B1 C1
date du jour valeur calculée 1 valeur calculée 2

Je voudrais remplir automatiquement le tableau mémorisant ces valeurs calculées jour par jour
D1 E1 F1
jour1 valeur 1 de B1 valeur 2 de C1
jour2
jour3
.....

Y a t'il une solution via les formules standards d'Excel ou faut il passer par une macro ?
Merci d'avance
 
Solution
Voici ma proposition :

VB:
Sub EnregistreL1()
    Dim objWs1      As Worksheet, objWs2      As Worksheet
    Dim lgLigne     As Long
   
    On Error GoTo erreur
    Set objWs1 = ThisWorkbook.Worksheets("Journalier")
    Set objWs2 = ThisWorkbook.Worksheets("Liste1")
    With objWs2
        lgLigne = Application.WorksheetFunction.Match(objWs1.[A4], .Range("A:A"), 0)
        .Cells(lgLigne, 2) = objWs1.[B4]
        .Cells(lgLigne, 3) = objWs1.[C4]
    End With
    Exit Sub
erreur:
    If Err.Number = 1004 Then
        MsgBox "Date non trouvé"
    Else
        MsgBox "Erreur : " & Err.Description & " (" & Err.Number & ")"
    End If
End Sub
Abondance de biens ne nuit pas. Une médaille sera décernée au meilleur disant.
Merci à vous...
Voici ma proposition :

VB:
Sub EnregistreL1()
    Dim objWs1      As Worksheet, objWs2      As Worksheet
    Dim lgLigne     As Long
  
    On Error GoTo erreur
    Set objWs1 = ThisWorkbook.Worksheets("Journalier")
    Set objWs2 = ThisWorkbook.Worksheets("Liste1")
    With objWs2
        lgLigne = Application.WorksheetFunction.Match(objWs1.[A4], .Range("A:A"), 0)
        .Cells(lgLigne, 2) = objWs1.[B4]
        .Cells(lgLigne, 3) = objWs1.[C4]
    End With
    Exit Sub
erreur:
    If Err.Number = 1004 Then
        MsgBox "Date non trouvé"
    Else
        MsgBox "Erreur : " & Err.Description & " (" & Err.Number & ")"
    End If
End Sub
Pile poil ce qu'il me faut
J'adapte à mon fichier réel
Si je ne reviens pas, c'est que tout est ok et mérite un grand merci
Je reviens même si tout est définitivement ok pour dire que grâce à l'aide de ce forum, j'ai progressé dans la compréhension des macros même si je suis encore loin d'en créer une
Hasta luego
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
Retour