Enregistrement dans une autre feuille

[Fermé]
Signaler
Messages postés
3
Date d'inscription
mercredi 28 février 2018
Statut
Membre
Dernière intervention
1 mars 2018
-
Messages postés
16751
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 septembre 2021
-
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

2 réponses

Messages postés
16751
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 septembre 2021
899
bonsoir, peut-être ainsi?
Sheets("feuille2").Rows("3:3").Insert Shift:=x1Down, CopyOrigin:=x1FormatfromLeftOrAbove 
Messages postés
3
Date d'inscription
mercredi 28 février 2018
Statut
Membre
Dernière intervention
1 mars 2018

mrc
Messages postés
33461
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
13 septembre 2021
3 716
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"

Messages postés
3
Date d'inscription
mercredi 28 février 2018
Statut
Membre
Dernière intervention
1 mars 2018

mrc de votre aide sa marche
Messages postés
16751
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 septembre 2021
899 >
Messages postés
3
Date d'inscription
mercredi 28 février 2018
Statut
Membre
Dernière intervention
1 mars 2018

peux-tu marquer le sujet comme résolu, via la roue dentée à droite du titre?