Programmer sur VBA
Rodrigue82
Messages postés
3
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
bonjour,
svp, j'ai besoin de l'aide,
j'ai programmé un userform et j'aimerais avoir un code qui me permettra de renseigner mon fichier excel par ce userform,
quelqu'un peut m'aider à sujet?
svp, j'ai besoin de l'aide,
j'ai programmé un userform et j'aimerais avoir un code qui me permettra de renseigner mon fichier excel par ce userform,
quelqu'un peut m'aider à sujet?
11 réponses
-
-
Bonjour,
pour ecrire dans une cellule excel en partant d'une UF:
exemple: textbox1 vers cellule A1 onglet feuil2
Worksheets("Feuil2").Range("A1")=TextBox1.Value
ou
Worksheets("Feuil2").Cells(1,1)=TextBox1.Value
tout dependra de ce que vous voulez mettre a jour, ou et comment (a la suite, meme cellule) -
je veux mettre à jour un fichier de calcul pour l'estimation des tâches, de sorte quand j'insère ces valeurs à la fin le fichier excel calcul directement le temps pour chaque tâche.
j'ai essayé avec cette méthode,
mais comment faire valider et passer à une autre céllule pour inserer d'autres informations? -
Re,
mais comment faire valider et passer à une autre céllule pour inserer d'autres informations? y a rien a valider, demande explication !!!
pour d'autres cellules:
Worksheets("Feuil2").Range("B2")=TextBox2.Value
Worksheets("Feuil2").Range("C1")=TextBox3.Value
Worksheets("Feuil2").Range("H1")=TextBox4.Value
A+ -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
bonjour f894009,
je n'arrive pas à mettre l'image de mon userform ou de mon fichier pour mieux comprendre la situation.
mais sur mon UF, j'ai crée des cases pour inserer des informations et mettre à jour mon fichier excel. l'objectif est de renseigner mon fichier en passant par mon UF.-
Bonjour,
Je ne m'incruste qu'un instant...
Et si tu étais plus précis. Du style :
Dans mon UsF, j'ai :
- 10 TextBox nommés TextBox1, TextBox2, TextBox3 ... TextBox10,
- 3 ComboBox nommées ComboBox1, ComboBox2, ComboBox3
- 1 CheckBox nommé Mouton (va savoir pourquoi...)
- 1 CommandButton nommé Bouton
Je souhaite, lorsque l'on clique sur le bouton de commande (Bouton), les informations saisis dans les autres contrôles soient placés, dans la feuille nommée "Feuil18" de mon classeur nommé "vacheàlait.xlsm", de la colonne B à la colonne P, dans la première ligne vide de ces colonnes, suivant le process suivant :
Col B : TextBox1
Col C : Si CheckBox coché alors mettre OUI sinon NON
Col D : ComboBox1
Col E : TextBox2
Col F : TextBox10
Col G : Combobox3
etc...
Col O : ComboBox2
Col P : "Ligne saisie le " + date du jour + heure de saisie.
A ce moment, nous pourrions te donner un code qui ressemblerait à :Private Sub Bouton_Click()
Dim drLig As Long
'première ligne vide de la colonne B :
drLig = Range("B" & Rows.Count).End(xlUp).Row + 1
'Dans la feuille "Feuil18" :
With Sheets("Feuil18")
.Range("B" & drLig) = TextBox1
If Mouton = True Then
.Range("C" & drLig) = "OUI"
Else
.Range("C" & drLig) = "NON"
End If
.Range("D" & drLig) = ComboBox1
.Range("E" & drLig) = TextBox2
.Range("F" & drLig) = TextBox10
.Range("G" & drLig) = ComboBox3
'ETC......
.Range("O" & drLig) = ComboBox2
.Range("P" & drLig) = "Ligne saisie le : " & Now
End With
End Sub
Sans plus de précision, impossible de t'aider davantage... -
-
-
Bonjour,
pour mettre un fichier a dispo, click sur le lien suvant https://www.cjoint.com/
n'oubliez pas de copier/coller le lien cree dans votre prochain message -
bonjour F89009 et Pijaku et merci pou le lien
je reviens encore sur mon sujet,
ci-joint le fichier excel créé pour me faciliter le renseignement .
merci de votre aide
http://cjoint.com/?3KfkGuNYlBb -
bonsoir F89009 et Pijaku
et si je considerais le cas oû les céllules ne sont pas fusionnées?
j'ai vraiment besoin de votre aide.
Voici un 2ème exemple
http://cjoint.com/?3KfqYJnhRVj -
Re,
un exemple au plus simple, Textbox5 (SCH) pas utile ???
Aucun controle de saisie
https://www.cjoint.com/c/CKfrt0MVLcS -
bonsoir F894009 et pijaku
je vous remercie de m'avoir aidé à continuer mon programme,
ce que tu m'as donné marche correctement,
il est question juste que mes insertions obeissent au format aprropriés (nbre, texte etc)
merci de de plus -
Bonjour,
conversion en nombre:
https://www.cjoint.com/c/CKmrtbMfKXT
un pouce egal a 25,4 mm
bonne suite
