Microsoft 365 Tableau rempli en Feuil2 à partir de données saisies en Feuil1

[Karim48]

Bonjour la Team,

Dans mon fichier, j'aimerais remplir le tableau en Feuil2 (RECAP PRLVT) à partir des données qui auront été saisies dans la Feuil1 (FORMULAIRE). Dans la seconde feuille, j'indique dans quelles cellules se trouvent les données en Feuil1.

D'un point de vue pratique, j'aimerais créer en C1 un bouton "POSE" ou "DEPOSE". Si "POSE", le fichier nécessitera d'être rempli en totalité alors que si "DEPOSE"? une fenêtre s'ouvrirait demandant de renseigner la "Réf échantillon: PME" ainsi le fichier récupérerait (restaurerait) les données du tableau dans "FORMULAIRE" afin que mon préleveur n'est juste qu'à remplir la colonne "finale" du tableau dans la rubrique "PRELEVEMENT" (le réel besoin serait de restaurer ce qui a été précédemment saisi selon la cellule J1).

Ensuite, créer un bouton "ENREGISTRER" ou "VALIDER" qui me remplirait le tableau "RECAP PRLVT" selon les données saisies lors de la "POSE" initiale ou complétées lors de la "DEPOSE".

Lorsque "POSE" (nouvelle ligne dans le tableau "RECAP PRLVT"), les champs en vert sont à remplir manuellement alors que les champs en jaune sont des menus déroulant et en orange des formules de calcul

Pensez-vous qu'il existe une fonction ou une VBA possible de m'aider?

Vous remerciant par avance pour toute l'aide que vous pourrez m'apporter

Karim48

 

[fanfan38]

Bonjour
J'ai commencé... je te laisse finir....
il n'est pas nécessaire de mettre=+ dans les formules = suffit...
En fait ce n'est pas quand tu appuie sur les boutons que la macro se lance mais quand tu saisie la cellule J1 (Référence) donc pour moi les boutons ne servent à rien
pour voir la macro: clic droit sur le nom de la feuille formulaire et choisir visualiser le code...
A+ François

 

[Karim48]

Bonsoir Fanfan,

Merci beaucoup pour votre aide, je commence à voir le bout du tunnel. J'ai apporter quelques modificiation au niveau des boutons car le bouton "POSE" servait à réinitialiser le formulaire si nécessaire. Il ne me reste plus qu'à trouver une VBA me permettant d'incrémenter les données dans la Feuil!2 ("RECAP PRLVT") en cliquant sur le bouton "VALIDER/ENREGISTRER" après avoir saisi de nouvelles données ou modifier de précédentes, et j'avoue que sur ce coup je patine beaucoup 🙁

 

[fanfan38]

Bonjour,
J'ai fait la macro jusque la colonne AM
je te laisse faire le reste
module 5
Sub Bouton61_Cliquer() 'validation
A+ François

 

[Karim48]

Bonjour,
J'ai fait la macro jusque la colonne AM
je te laisse faire le reste
module 5
Sub Bouton61_Cliquer() 'validation
A+ François

Bonjour François,

Merci beaucoup mais rien ne s'incrémente lorsque je clique sur le bouton valider 🙁

 

[fanfan38]

Si tu valides une référence existante elle se modifie
par contre si tu saisie une nouvelle référence elle se met à la suite des lignes précédentes...

  'recherche de la référence dans la colonne 2 de la feuille "RECAP PRLVT"
Set c = f.Columns(2).Find(Range("J1").Value, LookAt:=xlWhole)
  If c Is Nothing Then 'si il ne trouve pas la ligne est égale à la dernière +1
    lig = Range("A" & Rows.Count).End(xlUp).Row + 1
  Else
    lig = c.Row 'si il la trouve la ligne est égale à la ligne trouvée
  End If

A+ François

 

[Karim48]

Si tu valides une référence existante elle se modifie
par contre si tu saisie une nouvelle référence elle se met à la suite des lignes précédentes...

  'recherche de la référence dans la colonne 2 de la feuille "RECAP PRLVT"
Set c = f.Columns(2).Find(Range("J1").Value, LookAt:=xlWhole)
  If c Is Nothing Then 'si il ne trouve pas la ligne est égale à la dernière +1
    lig = Range("A" & Rows.Count).End(xlUp).Row + 1
  Else
    lig = c.Row 'si il la trouve la ligne est égale à la ligne trouvée
  End If

A+ François

Malheureusement les nouvelles saisies ne s'incrémentent pas à la suite des précédentes. Elles s'enregistrent en ligne 59 et s'écrasent à chaque enregistrement

 

[fanfan38]

Excuse j'ai oublié in f.
lig = f.Range("A" & Rows.Count).End(xlUp).Row + 1

A+ François

 

[Karim48]

Merci beaucoup François x1000, ça fonctionne 🙂 juste un petit détail et après je devrais pouvoir te laisser tranquille: lorsque je modifie une saisie en F9, la saisie précédente continue d'apparaitre dans le tableau récapitulif (cf piece jointe pour les références échantillons n°061219-03 et 061219-04 ou j'ai saisi dans un premier temps, en B9 du formulaire "Avant Travaux" avec des valeurs G-.... et W-... en F9. Une fois enregistrés, j'ai rappelé l'échantillon pour modifier les cellules B9 et F9 dans le formulaire, ce qui a bien enregistré les nouvelles données mais conservé les précédentes).

Avons nous la possibilité d'écraser les précédentes données par les nouvelles?

Merci d'avance.

 

[fanfan38]

Bonjour
il y avait une erreur que j'ai corrigé...
Par contre dans la macro de validation il y a les cellules AN à BB et BD à CF qui ne sont pas faite...

A+ François

 

[Karim48]

Les derniers ajustements ont été effectués et le fichier fonctionne parfaitement. Encore mille fois merci pour votre aide