Archivage de donnees depuis userform

Re : Archivage de donnees depuis userform

Bonjour,

PS : j’aurai bien envoyé mon fichier exemple mais je n’ai apparemment pas accès a cette option

Cliquez pour agrandir...

pour ce faire, en répondant à cette discussion, click sur le bouton "aller en mode avancé", en bas un bouton "gérer les pièces jointes" apparaitra...

bonne journée
@+

Re : Archivage de donnees depuis userform

Merci, mais c'est la que se trouve le probleme. Je recois un message du typr suivant:

"vous n'avez pas la permission d'accéder à cette page. Ceci peut être dû à plusieurs raisons :

1-Vous n'avez pas la permission d'accéder à la page que vous essayez d'afficher. Êtes-vous en train d'essayer de modifier le message de quelqu'un d'autre ou d'accéder à des options d'administration ? Vérifiez que vous êtes autorisé à effectuer cette action dans les règles du forum.
2-Si vous essayez d'envoyer un message, l'administrateur a peut-être désactivé votre compte, ou celui-ci est en attente d'activation si vous venez de le créer, ou de réactivation si vous avez changé votre email, ou encore peut-être de validation par un modérateur."

Re : Archivage de donnees depuis userform

Re,

oui bizarre ton truc, jamais vu ce genre de problème sur xld... mais bon, pas tout vu non plus....

Re : Archivage de donnees depuis userform

Mise a part ce probleme, j'ai reussi a construire un code potable qui fonctionne pour l'enregistrement des valeurs (dans la feuille "Archive"), cependant la condition de copier uniquement si la valeur est differente de celle que va chercher l'userform (dans la feuille "Donnees") ne fonctionne pas.
Ainsi, a chaque clique sur le bouton save, la valeur est sauvergarder.

Code:

Private Sub Save_Click()
With Sheets("Archive")
.Activate
k = Range("A65536").End(xlUp).Row + 1

If TextBox79 <> Sheets("donnes").Cells(1, 4) Then
.Cells(k, 1) = ComboBox1.Value
.Cells(k, 2) = TextBox1.Value
.Cells(k, 3) = Label30
.Cells(k, 4) = TextBox2.Value
Else:
.Cells(k, 1) = ""
.Cells(k, 2) = ""
.Cells(k, 3) = ""
.Cells(k, 4) = ""

End If
End With
End Sub

Quelqu'un aurai t'il une explication?
Merci d'avance