Posez votre question Signaler

Transfert de valeurs d'un userform à une feuille excel [Résolu]

Messages postés
3
Date d'inscription
mercredi 5 janvier 2011
Dernière intervention
8 janvier 2011
 - - Dernière réponse : cs_halle
Messages postés
3
Date d'inscription
mercredi 5 janvier 2011
Dernière intervention
8 janvier 2011
 - 8 janv. 2011 à 13:13
VB.NET Posez votre question Signaler
Bonjour le forum,
J'ai 5 colonne à alimenter mais lorsque j'écris les valeurs dans le userform celles ci apparaissent en décaler sur la feuille Excel et les données de la première catégorie n'apparaissent pas du tout sur la feuille.


Private Sub CommandButton1_Click()
Sheets("Données").Select
Range("A2").Select

Do
If ActiveCell.Value = "" Then
GoTo Archivage
End If
If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select

Loop Until ActiveCell.Value = ""

Archivage:

ActiveCell.Value = ArchivageCommande!TextBox1.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ArchivageCommande!TextBox2.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ArchivageCommande!TextBox3.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ArchivageCommande!TextBox4.Value
ActiveCell.Offset(0, 1).Select

End Sub
Afficher la suite 

Votre réponse

Répondre au sujet

3 réponses

Meilleure réponse
Signaler Commenter la réponse de jordane45
Messages postés
23593
Date d'inscription
mercredi 22 octobre 2003
Statut
Contributeur
Dernière intervention
12 décembre 2018
3
Merci
Bonjour,

Déjà, pour tes prochains copiers/collers sur le fofo, penses à utiliser les balises de codes.

Ensuite :
Comment se nomme ton Userform ? (ArchivageCommande ? )

Essayes comme ça éventuellement : 
Private Sub CommandButton1_Click()
Sheets("Données").Select
Range("A2").Activate

Do
If ActiveCell.Value = "" Then
    Arch = Archivage()
Else
    ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""

End Sub
 
Function Archivage()
    ActiveCell.Value = ArchivageCommande.TextBox1.Value
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = ArchivageCommande.TextBox2.Value
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = ArchivageCommande.TextBox3.Value
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = ArchivageCommande.TextBox4.Value
    ActiveCell.Offset(0, 1).Select

End Function



ps: je me suis permis de mettre ton "Archivage" dans une fonction plutot que de l'appeller par un goto. mais tu aurais aussi pu directement le mettre dans ton IF.

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

Merci jordane45 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de jordane45
Signaler Commenter la réponse de cs_halle
Messages postés
3
Date d'inscription
mercredi 5 janvier 2011
Dernière intervention
8 janvier 2011
0
Merci
merci!!
Commenter la réponse de cs_halle
Signaler Commenter la réponse de cs_halle
Messages postés
3
Date d'inscription
mercredi 5 janvier 2011
Dernière intervention
8 janvier 2011
0
Merci
Sais tu quel code donné à ton userform pour que lorsque l'un s'ouvre le précédent se ferme automatiquement?
Commenter la réponse de cs_halle

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.