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

copier des données d'une feuille et remplacer le contenu sur une autre feuille

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

nadog

XLDnaute Nouveau
Bonjour aux passionnés,

J'aimerais améliorer un petit programme d'inventaire.
Je voudrais prendre les valeurs de D4 à D13 de la feuille "Accueil" et je voudrais remplacer avec ses nouvelles valeurs sur la feuille "BASE" (base de données). Il faut faire une recherche via la "Pièce" comme référence et remplacer les valeurs sur cette ligne.

Je suis bloqué et j'ai essayé la macro rechercher et remplacer, mais sans résultats.

Merci à l'avance de pouvoir m'aider

je joins le fichier.
 

Pièces jointes

Trier par date Trier par votes
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

Bonjour à toutes et à tous,

ATTENTION : Présence bloquante 😡 d'une "Private Sub Workbook_Open()" demandant le mot de passe (inconnu).
 
Vote positif 0 Vote négatif
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

Re-bonjour, bonjour, Michel 🙂,

MJ13 à dit:
... Heureusement qu'on peut faire Ctrl+Pause à l'ouverture 😀.
Cliquez pour agrandir...

Ne connaissant pas ce "médicament", j'ai dû faire appel au "Gestionnaire des tâches" pour sortir 😡 du pétrin.

Merci, Michel 😀, pour cette nouvelle astuce.

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

bonjour DoubleZero,

Ce n'est pas un mot de passe. C'est simplement n'importe quel caractère qui suffit d'entrer. (moi je demande le nom mais ça peut être un numéro d'employé aussi)
J'en ai besoin pour pouvoir compiler dans la base de transactions.

Merci
 
Vote positif 0 Vote négatif
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

Bonjour à tous

00:
Ne jamais ouvrir un fichier Excel qui ne sort pas ton propre four en activant les macros 😉
Sinon la fatalité virulente frappera ...
Tu ouvres en désactivant, tu mets en commentaire les procédures potentiellement enquiquinantes
Tu fermes le classeur et hop cette fois-ci tu actives les macros.


NB: On ne peut pas en vouloir à nadog puisque la charte du forum désormais ne déconseille plus de joindre des fichiers avec des workbook_open ou auto_open actives....
 
Vote positif 0 Vote négatif
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

Bonjour à toutes et à tous,

@ Staple1600 😀,

Staple1600 à dit:
...Ne jamais ouvrir un fichier Excel qui ne sort pas ton propre four en activant les macros...
Cliquez pour agrandir...

Je te remercie 🙂 pour ce rappel important...

Staple1600 à dit:
... la charte du forum désormais ne déconseille plus de joindre des fichiers avec des workbook_open ou auto_open actives...
Cliquez pour agrandir...

En effet... et c'est regrettable 🙄

A bientôt 🙂🙂
 
Vote positif 0 Vote négatif
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

Bonjour Nadog, Jean-Marie, 00

Faut peut-être arrêter de psychoter 😱, quand on ouvre le fichier voici ce que contient le Workbook_Open, il n'y a rien de méchant 🙂.

Code: 
Private Sub Workbook_Open()
Dim a As String
1 a = InputBox("Veuillez entrer votre nom") 'affiche une boite de dialogue
If a = "" Then GoTo 1 'attends une valeur sinon fait une boucle
ActiveSheet.Unprotect
Sheets("Accueil").Range("C17") = a 'place la valeur de inputbox dans la cellule C17
ActiveSheet.Protect
'End If  ' ne pas activer
End Sub

Personnellement, le workbook_open, ne me gêne pas, tant qu'il en te modifie pas te barres d'outils, tes paramêtres ou sinon, il faut le remettre d'applomb en sortant, mais il ne faudra pas quitter avec ctr+Alt+Sup.
 
Vote positif 0 Vote négatif
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

Re

MJ13:
Je parlais en général pas de ce fichier en particulier
POUR MEMOIRE
Voici ce que disait l'ancienne charte:
Désormais c'est plus succinct certes
mais je pense personnellement qu'on aurait du laisser dans ma nouvelle charte ce que j'ai mis en bleu.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

Bonjour à tous,

Désolé, je ne voulais pas créer une panique avec la fonction "Private Sub Workbook_Open()"
Voici je remets le fichier avec la fonction enlevé.

Milles excuses.

Merci de votre compréhension.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

Bonjour à toutes et à tous,

Un essai avec ce code :

Code: 
Option Explicit
Sub Copier_coller_transposer()
    Application.ScreenUpdating = False
    Sheets("Accueil").Range("d6:d13").Copy
    Sheets("BASE").Activate
    On Error GoTo fin
    Columns(2).Find(what:=Sheets("Accueil").Range("c4")).Select
    With Selection
        .Offset(, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        .Offset(, -1) = Sheets("Accueil").Range("d5")
        .Value = Sheets("Accueil").Range("d4")
    End With
    Sheets("Accueil").Activate
    Application.CutCopyMode = False
    Exit Sub
fin:
    MsgBox "ATTENTION : " & Sheets("Accueil").Range("c4") & " n'existe pas dans l'onglet BASE."
    Sheets("Accueil").Activate
    With Application: .CutCopyMode = False: .ScreenUpdating = True: End With
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

Bonjour à tous


Un autre essai (un peu moins abouti que celui de 00 😉)
qui se dispense de l'usage du copier/colller
(Car "C'est mon choix", comme pouvait dire Evelyne T.)
Code: 
Sub a()
Dim t, l&
With Sheets("Accueil")
    l = Application.Match(.Range("C5"), Sheets("BASE").Range("A2:A4"), 0) + 1
    t = .Range("D6:D13").Value
End With
Sheets("BASE").Cells(l, "C").Resize(, UBound(t)) = Application.Transpose(t)
End Sub
 
Vote positif 0 Vote négatif
Re : copier des données d'une feuille et remplacer le contenu sur une autre feuille

Bonjour DoubleZero et staple1600,

Merci pour le code. Il fonctionne à merveille. J'ai préféré celui de DoubleZero.
Vous êtes des pros!

Nadog
 
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

Y
  • Résolu(e)
Microsoft 365 Rechercher et remplacer éditer une procedure
Réponses
8
Affichages
222
YGU1
Y
M
  • Question Question
XL 2016 Remplacer nombres et symboles depuis une liste dans une autre feuille
Réponses
2
Affichages
413
Marjorie73
M
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
626
steph_29120
S
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
509
mromain
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
944
fanfan38
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
651
Max
M
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
202
sylvanu
  • Résolu(e)
XL 2019 Extraction de données dans une autre plage !
Réponses
6
Affichages
448
Caninge
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
891
arnomorize
A
R
  • Question Question
XL pour MAC remplacer le contenu d'une cellule d'une feuille par celui d'une autre feuille si
Réponses
6
Affichages
876
Phil69970
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
666
AtTheOne
S
  • Question Question
Microsoft 365 Transfert de données sur une autre tableau
Réponses
2
Affichages
170
stefane26
S
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
776
salma_hayek
S
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
687
Max
M
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
684
phoceenjo
P
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
620
Dégé59
D
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
183
agayet
A
O
  • Question Question
XL 2010 Besoin d'aide Excel pour Expert - récupérer données sur une autres feuille
Réponses
8
Affichages
541
AtTheOne
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
609
gui22
G
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
514
Jojo973
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…