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

Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°

A

arnomorize

XLDnaute Nouveau
Je sais, c'est un titre un peu long mais je n'arrive pas à synthétiser davantage...

Dans une feuille (formulaire nouvel objet), j'ai créé un formulaire qui va alimenter automatiquement un tableau d'une autre feuille (saison), en insérant une ligne, la remplissant des valeurs du formulaire, et la faisant débuter par un n° de ligne qui s'incrémente à chaque nouvelle ligne créée.
Ainsi, chaque nouvelle entrée est précédée par un n°

J'ai créé un autre formulaire dans une autre feuille (formulaire nouvelle dpae) pour traiter certaines informations du tableau

Pouvez vous m'aider à atteindre cet objectif :
Je voudrais saisir un n° dans une cellule "d'appel" de ce nouveau formulaire, afin de faire remonter certaines des valeurs de la ligne correspondante dans le nouveau formulaire.

Sachant qu'à chaque nouvelle entrée, les lignes se déplacent vers le bas, elles perdent donc leur position physique dans le tableau.

Je vous remercie de votre aide
 

Pièces jointes

  • essai arno.xlsm
    106.3 KB · Affichages: 8
Solution
il faut renommer la table de la feuille DPAE
en t_DPAE (puisque c'est le nom utilisé dans le code

un peu de lecture ici pour comprendre

The VBA Guide To ListObject Excel Tables

For a data analyst, Excel Tables are a necessity! They are the most efficient way to organize your raw data and refer to data that contracts or expands on a regular basis. Likewise, Excel tables can be extremely useful in combination with VBA.
www.thespreadsheetguru.com

Tableaux structurés Excel

Tableaux structurés Excel
fauconnier.developpez.com
Trier par date Trier par votes

vgendron

XLDnaute Barbatruc
Hello

pour le bouton "Maison", il suffit de le mettre dans le formulaire==> il sera recopié automatiquement

pour le nom avec la date, il suffit de l'ajouter dans le NomFile

VB: 
Sub SaveDPAE()
Dim Chemin As String

Chemin = "\\mairie-talant.lan\partages\donnees\LECRIN\Dossiers PARTAGES\INTERMITTENTS ET LOCATIONS\EMBAUCHE INTERMITTENTS" 'à modifier
Set WsSource = ActiveSheet

    With WsSource 'avec la feuille source
        NomFile = Format(Now, "dd_mm_yyyy") & "_" & Left(.Range("D5"), 15) & "_DPAE" 'on récupère le nom et on ajoute _DPAE pour faire le nom de fichier
        .Copy after:=Sheets(Sheets.Count) 'on copie la feuille dans le classeur
        With ActiveSheet
            .Name = NomFile 'on renomme la feuille
            .Range("B5:F5") = .Range("B5:F5").Value ' on remplace les formules par leur résultat
            .Range("D9:K17") = .Range("D9:K17").Value
            .Shapes("Bouton 1").Delete 'on supprime le bouton
            .Copy 'on copie la feuille dans un nouveau classeur
        End With
        
        ChDir Chemin
        ActiveWorkbook.SaveAs Filename:=Chemin & "\" & NomFile & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'on enregistre le nouveau classeur
        ActiveWindow.Close 'on le ferme
        Application.DisplayAlerts = False 'on désactive les alarmes
        ActiveWorkbook.Sheets(NomFile).Delete 'on supprime la feuille _DPAE (si tu souhaites la garder dans le classeur d'origine, tu mets la ligne en commentaire)
        Application.DisplayAlerts = True
    End With
End Sub

attention.. le nom de l'onglet ne peut pas excéder 31 caractères..
NomFile = Format(Now, "dd_mm_yyyy") & "_" & Left(.Range("D5"), 15) & "_DPAE"
avec les préfixes "date et suffixe _DPAE, il reste 15 caractères pour le nom

pour le dernier point.. la feuille budget est écrasée à chaque nouvelle DPAE?
 
Vote positif 0 Vote négatif
A

arnomorize

XLDnaute Nouveau
Mince, je n'ai pas été clair, ce n'est pas la date d'aujourd'hui que je veux ajouter au nom de fichier, c'est la date de l'objet (cellule F5 de la feuille FormulaireNouvelleDpae)
Concernant la feuille budget, ton tableau fera le boulot à la place des miens et j'ajoute en dernière colonne le budget restant à chaque ligne.
 

Pièces jointes

  • Gestion Ecrin 2025.xlsm
    241 KB · Affichages: 0
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
il te suffit de remplacer la bonne info dans cette ligne de code
VB: 
NomFile = Format(Now, "dd_mm_yyyy") & "_" & Left(.Range("D5"), 15) & "_DPAE" 'on récupère le nom et on ajoute _DPAE pour faire le nom de fichier
 
Vote positif 0 Vote négatif
A

arnomorize

XLDnaute Nouveau
Effectivement, j'ai corrigé
Pour revenir sur le tableau généré dans budget, je ne comprends pas pourquoi les infos (montant et nom) ne remontent pas ?
 

Pièces jointes

  • Gestion Ecrin 2025.xlsm
    244.5 KB · Affichages: 1
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
il faut renommer la table de la feuille DPAE
en t_DPAE (puisque c'est le nom utilisé dans le code

un peu de lecture ici pour comprendre

The VBA Guide To ListObject Excel Tables

For a data analyst, Excel Tables are a necessity! They are the most efficient way to organize your raw data and refer to data that contracts or expands on a regular basis. Likewise, Excel tables can be extremely useful in combination with VBA.
www.thespreadsheetguru.com

Tableaux structurés Excel

Tableaux structurés Excel
fauconnier.developpez.com
 
Vote positif 0 Vote négatif
Solution
A

arnomorize

XLDnaute Nouveau
vgendron,
Je te remercie infiniment pour ta patience, je n'imagine pas le temps qu'il faut pour acquérir toutes ces connaissances, je suis très impressionné.
Tu m'as réalisé un superbe outil qui dépasse ce que j'espérais.
Je vais essayer de trouver le temps de lire les articles que tu m'as envoyés.
Au plaisir de te recroiser
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
524
gui22
G
E
  • Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
796
laurent950
M
  • Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
631
MGH
M
S
  • Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
603
salma_hayek
S
Y
  • Question
Microsoft 365 Problème de dernière ligne dans un tableau
2
Réponses
19
Affichages
2 K
Cousinhub
  • Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
185
jeff1494
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
444
Nel'
N
J
  • Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
C
  • Question
XL 2021 VBA - créer une boucle de calcul pour remplir un tableau à partir de 2 autres sur une même feuille
Réponses
7
Affichages
557
clineM
C
H
  • Question
XL 2016 double clic pour aller à la ligne
Réponses
5
Affichages
652
Oneida
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…