Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrement automatique de données à l'ouverture du fichier avec incrementation

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion poiazer
  • 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 !

S'inscrire
P

poiazer

XLDnaute Nouveau
Bonjour le forum,
Je reviens vers vous pour un problème que je pense solvable uniquement par une macro et là je suis perdu 😕

J'ai un fichier de 3 feuilles.
Feuille 1, 3 cellules A2, B2, C2 liées avec un autre fichier se mettent à jour automatiquement à l'ouverture du fichier.
Feuille 2 , une feuille ou je rentre des valeurs sur les colonne A et B.

Voila mon soucis sur la feuille 3 je souhaiterai

a l'ouverture du fichier que la date du jour (date système) s'enregistre dans la colonne A. Que l'on récupère la valeur des cellules A2, B2, C2 de la feuille 1 et quelles soient enregistrées dans les colonnes C,D,E. Que l'on récupère la valeur X égale à la somme de la colonne B de la feuille1 et quelles soient enregistrées dans la colonne B.
j'ouvre ce fichier tous les jours et plusieurs fois par jour.
Il ne pourra y avoir qu'un seul enregistrement par jour.
Le jour suivant devra être enregistré sur la ligne suivante.

Je vous joins mon fichier exemple pour le cas ou mes explications soit un peu flou.
Je vous remercie de votre aide
A bientôt
Patricia
 

Pièces jointes

Trier par date Trier par votes
Re : Enregistrement automatique de données à l'ouverture du fichier avec incrementati

Bonjour poiazer,

Allez dans VBA (Alt+F11) et placez dans ThisWorkbook :

Code: 
Private Sub Workbook_Open()
'Feuil1 et Feuil3 sont les CodeNames des feuilles
Dim lig As Long
With Feuil3
  If Application.CountIf(.[A:A], Date) Then Exit Sub
  lig = .[A65536].End(xlUp)(2).Row
  .Cells(lig, 1) = Date
  .Cells(lig, 2) = [Somme] 'nom défini
  .Cells(lig, 3).Resize(, 3) = Feuil1.[A2:C2].Value
End With
End Sub
Fichier joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Enregistrement automatique de données à l'ouverture du fichier avec incrementati

Bonjour Patricia,

Un code plus concis mais plus difficile à comprendre :

Code: 
Private Sub Workbook_Open()
'Feuil1 et Feuil3 sont les CodeNames des feuilles
With Feuil3.[A65536].End(xlUp)(2).EntireRow
  If .Cells(0, 1) = Date Then Exit Sub
  .Cells(1) = Date
  .Cells(2) = [Somme] 'nom défini
  .Cells(3).Resize(, 3) = Feuil1.[A2:C2].Value
End With
End Sub
Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

S
  • Résolu(e)
XL 2021 Export et transformation de plusieurs fichiers de données automatique
Réponses
5
Affichages
301
sandydavneo
S
  • Question Question
XL 2016 relevé de consommation électrique
Réponses
1
Affichages
200
wDog66
N
  • Question Question
Microsoft 365 appliquer la formule en changeant de ligne et de colonne
Réponses
2
Affichages
72
ndranghettino
N
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
423
Musbek
M
  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
236
Zdz16
D
  • Résolu(e)
Microsoft 365 Remplissage colonne automatique dépendant d'un tableau
Réponses
7
Affichages
682
fanfan38
V
  • Question Question
Microsoft 365 Liaison automatique de cellules
Réponses
4
Affichages
81
sylvanu
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
190
Bibinaire
B
M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
145
oguruma
B
  • Question Question
XL 2013 filtrer ligne à l'ouverture du fichier
Réponses
10
Affichages
518
bruno972
B
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
264
Phil69970
E
  • Résolu(e)
XL 2019 Liaison avec un second fichier excel
2
Réponses
23
Affichages
509
Electronull
E
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
240
xavieralvaro
X
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
611
Dégé59
D
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
358
benjy555
B
N
  • Question Question
Microsoft 365 Remplissage automatique d'une feuille à l'autre
Réponses
2
Affichages
317
Nonoo
N
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
414
floflatch22
F
  • Question Question
XL 2021 Mise à jour en lot de certaines cellules d'un TS.
Réponses
12
Affichages
282
TooFatBoy
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
203
fanch55
M
  • Résolu(e)
XL 2013 Planning perpétuel Excel
2
Réponses
17
Affichages
838
Manutela
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…