Procédure de mise à jour et copie de plages de données

Bonjour,

J'ai besoin d'aide pour une association pour la mise en place d'un fichier avec une seule avec une MsgBox pour choisir les options : modifier, enregistrer, quitter. ci joint deux pro

Fichier constitué de 3 feuilles : Un onglet « PLAGES » masqué de 60 plages de 7 lignes, 1 onglet de « SAISIE », 1 onglet pour stocker dans l’onglet « COMPIL » masqué les informations de chaque plage sur une ligne

Fonctionnement souhaité

A partir de la page « Saisie », chaque structure peut taper son code secret puis la procédure VBA :

Copie, dans l’onglet « PLAGES » , la plage correspondant au code entré

La colle dans la plage vierge de l’onglet « SAISIE »

Invite à modifier les données,

Copier les données modifiées ou non dans la plage correspondant au code de l’onglet « PLAGES » et

copier les données dans l’onglet « COMPIL »

Effacer le code et les données dans l’onglet Saisie

Sauvegarder et quitter


D'AVANCE, GRAND MERCI

Fdaga à dit:

Bonjour,

J'ai besoin d'aide pour une association pour la mise en place d'un fichier avec une seule avec une MsgBox pour choisir les options : modifier, enregistrer, quitter. ci joint deux pro

Fichier constitué de 3 feuilles : Un onglet « PLAGES » masqué de 60 plages de 7 lignes, 1 onglet de « SAISIE », 1 onglet pour stocker dans l’onglet « COMPIL » masqué les informations de chaque plage sur une ligne

Fonctionnement souhaité

A partir de la page « Saisie », chaque structure peut taper son code secret puis la procédure VBA :

Copie, dans l’onglet « PLAGES » , la plage correspondant au code entré

La colle dans la plage vierge de l’onglet « SAISIE »

Invite à modifier les données,

Copier les données modifiées ou non dans la plage correspondant au code de l’onglet « PLAGES » et

copier les données dans l’onglet « COMPIL »

Effacer le code et les données dans l’onglet Saisie

Sauvegarder et quitter


D'AVANCE, GRAND MERCI

Cliquez pour agrandir...

Pour réaliser cela avec VBA dans Excel, vous devrez créer une macro qui implémente votre logique. Voici un exemple de code VBA pour vous aider à démarrer. Cela inclut une boîte de message (MsgBox) pour choisir l'option, et la logique pour copier/coller les données entre les feuilles.

```vba
Sub GestionSaisie()
Dim codeSecret As String
Dim plageSource As Range
Dim plageDestination As Range
Dim choix As Integer

' Demande le code secret
codeSecret = InputBox("Veuillez entrer votre code secret :")

' Vérifie si le code secret est valide
If codeSecret = "" Then
MsgBox "Code invalide. Opération annulée.", vbExclamation
Exit Sub
End If

' Déblocage de la feuille "PLAGES"
Sheets("PLAGES").Visible = xlSheetVisible

' Sélectionne la plage correspondant au code secret
Set plageSource = Sheets("PLAGES").Range("A1:A7") ' Modifiez la plage selon votre structure réelle
' Définissez la plage de destination dans le feuille "SAISIE"
Set plageDestination = Sheets("SAISIE").Range("A1:A7") ' Modifiez la plage selon votre structure réelle

' Copie la plage du code secret dans la feuille de saisie
plageSource.Copy Destination:=plageDestination

' Cache à nouveau la feuille "PLAGES"
Sheets("PLAGES").Visible = xlSheetHidden

' Boîte de message pour les actions
choix = MsgBox("Choisissez une action : " & vbCrLf & "1. Modifier" & vbCrLf & "2. Enregistrer" & vbCrLf & "3. Quitter", vbQuestion + vbYesNoCancel)

Select Case choix
Case vbYes ' Modifier
MsgBox "Vous pouvez maintenant modifier les données."
Exit Sub

Case vbNo ' Enregistrer
' Copie les données modifiées dans "COMPIL"
plageDestination.Copy
Sheets("COMPIL").Cells(Sheets("COMPIL").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues

' Nettoie la feuille de saisie
plageDestination.ClearContents

' Affiche un message de confirmation
MsgBox "Données enregistrées avec succès.", vbInformation

Case vbCancel ' Quitter
MsgBox "Opération annulée. Toutes les données saisies seront perdues.", vbExclamation
Exit Sub
End Select

' Sauvegarde le fichier
ThisWorkbook.Save

' Quitte Excel
Application.Quit

End Sub
```

Voici un résumé de ce que ce code fait :

1. Demande à l'utilisateur d'entrer un code secret.
2. Copie la plage de données correspondant à ce code de l'onglet "PLAGES" à "SAISIE".
3. Propose trois options via une MsgBox : Modifier, Enregistrer, Quitter.
4. Si "Enregistrer" est sélectionné, copie les données modifiées dans "COMPIL" et nettoie la feuille "SAISIE".
5. Sauvegarde le fichier et quitte Excel après l'enregistrement.

Veillez à ajuster les plages (`Range("A1:A7")`) selon vos besoins réels et tests dans un environnement contrôlé avant une utilisation en production.