Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour,
Je recherche à transférer les données du tableau suivi_fe dans template_fe selon le n° FE.
Pouvez-vous m'aider ?
Je modifierai le template par la suite pour ajouter des choses en suivant ce qu'il a été fait pour les autres colonnes.
Merci
Bonjour, j'aimerais créer une macro un peu comme sur ce sujet. J'ai essayé de modifier mais ce n'est pas top.
Voici ce que j'aimerais faire:
Un fichier (Base données) avec des données triées par un numéro d'événements en A2 et en croissant vers le bas, dans la colonne B date et heure, la...
Merci pour votre retour rapide.
Un dernière question si je veux faire sur plusieurs feuilles du même classeur, il faut ajouter les feuilles après With sheets= ("Feuil1")("Feuil2")("Feuil3")etc... ?
Biensur les cellules je les ajoute au range "MesureTransfere"
J'ai ajouté .unprotect pour déverouiller le temps de la macro:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MAJ As Boolean
With Sheets("Feuil1")
.Unprotect
For Each cell In .Range("Mesure")
Select Case True
Case cell.Locked =...
Bonjour, j'ai un soucis lors de l'ouverture du fichier après fermeture, la feuille est verrouillée donc je peux entrer les mesures, les mesures précédentes sont verrouillées. Mais dès que je veux fermer il y a un soucis, je dois oter la protection pour que cela fonctionne.
Voici ce que j'ai dans Thisworkbook. Les données du premier tableau ne sont pas protégées. Désolé, je fais peut être mal les choses.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MAJ As Boolean
With Sheets("Feuil1")
For Each cell In .Range("MesureTransfere")...
Merci, pour votre remarque concernant le non vide c'est cela le plus important.
En fait j'aimerai que les mesures soit protégées lors de la fermeture et que les cellules vides du second tableau ne sont pas protégées afin de faire un transfert sur la feuille par une autre personne plus tard dans...
Bonjour,
J'aimerai protéger les cellules d'un tableau à la fermeture du fichier.
J'ai fait un code pour la protection après saisie:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("MesureTransfere")) Is Nothing Then
Me.Unprotect...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.