Transfert de valeurs d'un userform à une feuille excel [Résolu]
cs_halle3
Messages postés mercredi 5 janvier 2011Date d'inscription
8 janvier 2011
Dernière intervention
-
7 janv. 2011 à 13:51 - Dernière réponse : cs_halle3
Messages postés mercredi 5 janvier 2011Date d'inscription
8 janvier 2011
Dernière intervention
- 8 janv. 2011 à 13:13
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
jordane4522906
Messages postés mercredi 22 octobre 2003Date d'inscriptionContributeurStatut
21 octobre 2018
Dernière intervention - 7 janv. 2011 à 14:49
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
a aidé 92 internautes ce mois-ci