Enregistrement dans une autre feuille

xman9222 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

-je veux bien svp que mon userform enregistre les donnes dans la feuille2 ou autre sons etre sur la page designer mrc
voici mon code

Private Sub CommandButton1_Click()
  Dim L As Integer

  If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d 'ajout") = vbYes Then
    [A3] = [A4] + 1
    Rows("3:3").Select
    Selection.Insert Shift:=x1Down, CopyOrigin:=x1FormatfromLeftOrAbove
    Unload UserForm1
    Load UserForm1
    UserForm1.Show  
  End If
End Sub


EDIT : Ajout des balises code.
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
A voir également:

2 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonsoir, peut-être ainsi?
Sheets("feuille2").Rows("3:3").Insert Shift:=x1Down, CopyOrigin:=x1FormatfromLeftOrAbove 
0
xman9222 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
mrc
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Il te suffit de préfixer tes plages de cellules par la feuille cible souhaitée..

Par exemple :
sheets("Feuil2").range("A1").value = "une valeur"

0
xman9222 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
mrc de votre aide sa marche
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > xman9222 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
peux-tu marquer le sujet comme résolu, via la roue dentée à droite du titre?
0