Userform
#1
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 29-11-2008 10h01
bonjour a tous
quelqu'un pourrait il m'aider dans mon fichier.
jevoudrais afficher les informations de l'userform dans des cellules de la feuilles 2 en cliquant sur le bouton calculer mais tout en restantsur la feuille1 le bouton effacer ne servant que a vider les cases de l'userform en cas d'erreur.
merci pour votre aide
Hors Ligne
Rapport   Haut 

Re: Userform
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 29-11-2008 11h07
Bonjour Claude40, le Forum,

Je pense que tu as oublié de joindre ton fichier exemple qui me parait indispensable ici...

Merci de consulter le paragraphe "Ajouter une pièce jointe" sous le lien suivant : Composer un message

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Userform
#3
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 29-11-2008 12h41
desoler et merci de me l'avoir signalé


Pièce jointe:
xlsm rajout essai1.xlsm   [ Taille: 27.54 Ko - Téléchargements: 578 ]
Edité par claude40 le 04/12/2008 15:33:02
Hors Ligne
Rapport   Haut 

Re: Userform
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 29-11-2008 14h22
Re,

Tu trouveras ci-joint ton classeur modifié selon tes souhaits.

Je me suis permis de le convertir dans un format (.xls) compatible avec les versions antérieurs d'Excel et pas seulement pour 2007 afin de permettre au plus grand nombre de visiteurs de pouvoir suivre ce sujet et permettre aussi à d'autres intervenants de réagir s'ils le souhaitent. Je te conseille de faire de même si tu joins un autre classeur ultérieurement (dans Excel 2007, tu fais "Enregistrer sous..." et tu choisis "Classeur Excel 97-2003").

J'ai essayé de faire au plus simple pour toi qui, visiblement, débute en VBA. Le code du Userform est le suivant :
Option Explicit

Private Sub CommandButton1_Click()
Dim DernLign As Long
    With Sheets(2)
        'On mémorise dans DernLign le numéro de la première ligne libre de la feuille 2
        DernLign = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        'On met à jour la feuille 2 avec les données du Userform
        .Cells(DernLign, 1).Value = TextBox1.Value
        .Cells(DernLign, 2).Value = TextBox2.Value
        .Cells(DernLign, 3).Value = TextBox3.Value
    End With
    'On ferme le Userform
    Unload Me
End Sub

Private Sub CommandButton2_Click()
'Effacer les TextBox
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
End Sub

Deux remarques par rapport à ton fichier d'origine :
[list][*]Pour lancer le Userform, il convient de faire :
UserForm1.Show
Le mot clé "Call" est inutile et mal approprié ici.

[*]Tu avais défini la propriété "Enabled" du Userform à False. Ce qui empêche toute manipulation pour l'utilisateur (impossible de saisir dans les TextBox et impossible de cliquer sur les boutons notamment). J'ai donc rétabli cette propriété sur sa valeur par défaut (True).[/list]
Je te laisse étudier le code utilisé. Si tu as besoin de plus amples explications, n'hésite pas...

Cordialement,

Pièce jointe:
zip PourClaude40.zip   [ Taille: 24.02 Ko - Téléchargements: 575 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Userform
#5
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 29-11-2008 17h16
un grand merci a tous pur votre aide
a bientot
Hors Ligne
Rapport   Haut 

Re: Userform
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 29-11-2008 17h36
Re,

Merci de ton retour .
J'en conclus que ma réponse te convient. Je solde donc en "résolu" le présent sujet (et je fais de même pour ton sujet précédent). Merci d'y penser la prochaine fois

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Userform
#7
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 30-11-2008 10h07

rebonjour

et si dans mon fichier je voulais selectionner les celulles de destination de l'userfom dans la feulle2

merci d'avance


Pièce jointe:
xls PourClaude40.xls   [ Taille: 65.50 Ko - Téléchargements: 605 ]
Hors Ligne
Rapport   Haut 

Re: Userform
#8
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 30-11-2008 14h38
Bonjour claude40, le Forum,

Citation :
claude40 a écrit :

rebonjour

et si dans mon fichier je voulais selectionner les celulles de destination de l'userfom dans la feulle2

merci d'avance



Là, je pense qu'il va falloir nous donner un peu plus d'explications claude40... Je n'ai pas compris pour ma part.

Cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Userform
#9
Accro XLPages

Inscription: 25/11/2008

Messages: 174

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 30-11-2008 17h21
et par exemple je voudrais que l'info (poids de barbotine) aille dans la cellule E10 par exemple ou et densité de barbotine G4 je voudrais savoir comment faire pour choisir les destination.

merci
Hors Ligne
Rapport   Haut 

Re: Userform
#10
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 30-11-2008 20h23
Re,

Dans le code présenté dans le fichier plus haut, il suffit de modifier les lignes :
       .Cells(DernLign, 1).Value = TextBox1.Value
       .Cells(DernLign, 2).Value = TextBox2.Value
Comme suit :
       .Cells(10, 5).Value = TextBox1.Value
        .Cells(4, 7).Value = TextBox2.Value
Attention de bien conserver le "point" devant Cells...


Pour info, pour faire référence aux cellules, j'ai utilisé ici la syntaxe :
Cells(NumeroDeLigne, NumeroDeColonne)
ainsi, pour la cellule G4 par exemple, il s'agit de la 4ème ligne et la 7ème colonne. On écrira donc :
Cells(4, 7)


Tu peux aussi utiliser simplement cette syntaxe :
Range("G4")
cela revient au même. En fait, utiliser l'un ou l'autre dépend de ce que tu comptes en faire : il est plus simple d'écrire Range("G4"), mais si tu souhaites manipuler des cellules variables alors la syntaxe Cells(Ligne, Colonne) te sera plus profitable...

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes