Contrôler la récupération de données avec VBA

Question

Je sollicite votre aide aujourd'hui sur un petit projet. Je souhaite faire 2 choses (j'en ai réussi 1 sur 2). 1- Je souhaite récupérer et afficher sur la Feuil1, les valeurs présentes sur une ligne de ma Feuil2. En saisissant une valeur de numéro présente dans la colonne C, je récupère les données de toute la ligne. Cela marche bien avec la formule Excel dans les cellules (voir pièce jointe). Mon besoin est ceci : je souhaite passer les formules en macro et lancer (à l'aide d'un raccourci clavier) la récupération ou la mise à jour des données d'une ligne seulement quand je le souhaite. En d'autres termes, je ne veux pas que les modifications apportées dans une cellule sur la Feuil2 modifie les valeurs déjà récupérées sur la Feuil1. Une fois les informations récupérées, elles sont vérifiées puis validées avec une signature (liste prédéfinie avec validation de données). 2- Après récupération des données de ma ligne, une signature dans une cellule de la colonne O verrouille automatiquement la ligne avec le mot de passe "YYY". J'ai réussi à le faire à l'aide d'une macro (voir pièce jointe) mais les modifications sur la Feuil2 se font toujours automatiquement sur la Feuil1. Je souhaite qu'aucune modification des données de la ligne ne soit possible après signature. Mon besoin résumé est donc de pouvoir récupérer les données une seule fois (à l'aide d'une macro) et que celles-ci ne changent pas automatiquement en cas de modification sur la source (Feuil2). Puis une fois validée avec une signature dans une cellule de la colonne O, que la ligne se verrouille automatiquement avec le mot de passe "YYY". Pouvez-vous m'aider svp ? Merci...

Dan · Accepted Answer

Oui juste ! désolé... mais ce n'est pas compliqué à modifier. Dans le code remplacez Range("A" & lig) = Sheets("Feuil2").Range("A" & lig) 'date par Range("A" & Target.Row) = Sheets("Feuil2").Range("A" & lig) 'date Faites de même pour toutes les lignes en dessous. range("B"..., Range("C"... etc Pour votre question au point 2, là il va falloir dire où se trouve la feuille et avec les serveurs ce n'est jamais simple.... Il faut le chemin du seveur, le fichier et la feuille...

Dan · Answer

1. Vous devriez compléter votre profil parce que déjà à la lecture de votre fichier, je pense que vous êtes sous excel MAC. Quelle est votre version ? 2. Vous avez un code change dans votre feuille 1. Est-il toujours d'application ? Cordialement...

Dan · Answer

Dans la feuille 1 en colonne M, vous avez "Autre mat", cela ne correspond à rien dans la feuille 2. Normal ? Sinon voyez votre fichier en retour et entrez le numéro en colonne C de la feuille 1 Cordialement...

Dan · Answer

Je dirais de faire un essai comme ceci. dans le code déclarer le répertoire dans une variable Chemin puis aller cherche le nom du fichier pour l'ouvrir Dim chemin As String, Fichier As String chemin = "X:\Dossier\Sous-dossier\" Fichier = Application.GetOpenFilename Shell "explorer.exe /e," & Fichier, vbNormalFocus ensuite une fois ouvert, on peut aller chercher les données de la feuille 2. Reste à savoir comment la feuille 2 est nommée, si elle est seule dans le fichier et surtout si elle peut changer de nom. Une fois ouvert on pourrait aussi copier la feuille du serveur dans le fichier concerné puis seulement exécuter le code Pour les mises à jour, on peut virer la feuille avant de réimporter la feuille modifiée dans le fichier se trouvant sur le serveur C'est juste une idée mais à voir chez vous Un exemple dans ce fil peut être --&gt; https://forum.excel-pratique.com/s/goto/299387...