Vider un formulaire sans effacer les cellules déjà rempliees

[hemardjean]

Bonjour le forum

Je cherche un code à ajouter dans la partie validation qui lorsque je rouvre mon formulaire pour un complément il n’efface pas mes données déjà saisies la première fois. (Colonne J à FJ)

Petite précision les formulaires ne s’ouvrent pas avec un bouton mes avec les cellules colorées en noir :
**(If Not Intersect([I9:I9], Target) Is Nothing And Target.Count = 1 Then ) dans la feuille.

Les données sont enregistrées sur la ligne, à droite de la cellule colorée.

Ci-joint un petit dossier

Merci de votre aide
@+ hemardjean

 

[pierrejean]

Re : Vider un formulaire sans effacer les cellules déjà rempliees

Bonjour toi

tu as de la chance je n'en ai pas marre !!!

un exemple:

au lieu de:

ActiveCell.Offset(0, 1).Value = (Me.Label6)

if ActiveCell.Offset(0, 1).Value="" then ActiveCell.Offset(0, 1).Value = (Me.Label6)

pour le reste , je crois que tu connais le copier/coller

 

[hemardjean]

Re : Vider un formulaire sans effacer les cellules déjà rempliees

Bonjour pierrejean le forum

Merci pierrejean pour cette réponse ultrarapide.

Juste une micro question sans abuser, peut on afficher en plus le résultat des cellules déjà remplies dans les textbox ?

Merci encore de ta gentillesse

 

[pierrejean]

Re : Vider un formulaire sans effacer les cellules déjà rempliees

Re

If ActiveCell.Offset(0, 1).Value = "" Then
  ActiveCell.Offset(0, 1).Value = (Me.Label6)
Else
  Me.Label6 = ActiveCell.Offset(0, 1).Value
End If

 

[hemardjean]

Re : Vider un formulaire sans effacer les cellules déjà rempliees

Bonjour pierrejean le forum

J’ai fais le copier/coller en changeant les labels ou les textbox mais aussi les n°(seulement dans le formulaire « boulangerie »).Les valeurs dans les texbox ne s’affichent pas !

Peux tu me dire ou j’ai fait l’erreur.

Je joins le fichier

@+