Boucle d'insertion

[DominicanProgram]

Bonjour a tous j'ai un petit probleme et je voudrais savoir si vous pouvez m'aider alors voila jsuis en train de programmer en vba avec excel et je n'arrive pas a dire a mon programme qu'il faut lorsque je clique sur le bouton enregistrer de mon userForm qu'il ajoute le nouvel enregistrement a la premiere ligne vide de ma feuille excel sa fait quelque jour que je bloque sur ce probleme merci d'avance de votre aide!!!!!



PS: je vous joint le fichier en question il faut dabord cliquer sur le bouton aide a la saise vous verez apparaitre le userForm en question est en fait quand je clique sur enregistrer sa m'ajoute l'enregistrement sur la ligne 10. vous verez dans le code j'ai mis
sheets('feuil1').range(A10).value = comboBoxMedcons.value
car je n'arrive pas a le faire par une boucle!!!!!

MErci

 

[Hervé]

Bonjour

Il manque la pièce jointe, sinon essaye comme ceci :

Sheets('feuil1').Range('a' & Range('a65536').End(xlUp).Row + 1).Value = comboBoxMedcons.Value

Salut

 

[Minick]

Salut DominicanProgram,
Salut Hervé, comment va?

Une petite remarque sur la ligne de code que tu donnes Hervé

Il faut faire attention à ce niveau la:
Range('a65536').End(xlUp).Row + 1
car ici tu ne lui indiques pas la feuille donc il prendra la feuille active,
alors que la:
Sheets('feuil1').Range('a' & ... tu specifies la feuille donc tu risques d'ecrire d'ecraser des données dans ta base ou d'avoir une base avec des lignes vides.

@+ Minick

 

[Hervé]

re

Salut minick

Entièrement d'accord, donc :

With Sheets('feuil1')
.Range('a' & .Range('a65536').End(xlUp).Row + 1).Value = comboBoxMedcons.Value
End With

merci de ta correction, a plus

Salut

 

[DominicanProgram]

merci Hervé, mais juste un truc moi jdois enregistrer 11 élement sur la meme ligne du style a10 b10 c10 etc.... avant de passer a la ligne suivante et la méthode que tu ma donner les enregistre tous sur la meme colonne a10 a11 a12 et ce que tu pourais la modifier de façon a ce qu'elle les enregistrement sur la même ligne



Merci Beaucoup de ton aide tres précieuse DominicanProgram!!!!!!

 

[Hervé]

Bonjour

Pourrais tu joindre ta pièce jointe.

fichier zippé, - de 50 K0, pas d'accent, pas de signes particuliers.

Genre : classeur1.zip, par exemple.

Salut

 

[DominicanProgram]

j'ai mis le fichier mais il fait plus de 50 ko et ce que je pourais te l'envoyer par mail si cela ne te dérange pas?!!!

merci!!!

 

[Hervé]

re

Ne pourrais tu pas faire un condensé de ton problème, juste la page qui doit recueillir les résultats et l'userform avec la combobox.

Ou expliquer plus en détail, genre : j'ai une combobox en sélection multiple, et je voudrais renvoyer les items sélectionner sur la derniere ligne non vide de la colonne A à la colonne D

Salut

 

[Hervé]

encore moi

Ce ne serait pas un truc dans ce style que tu veux :

dim derligne as integer

With Sheets('feuil1')

derligne= .Range('a65536').End(xlUp).Row + 1
.Range('a' & derligne).Value = comboBoxMedcons.Value
.Range('b' & derligne).Value = textbox1.value
.Range('c' & derligne).Value = textbox2.value
.Range('d' & derligne).Value = textbox3.value
'....
end with

salut

 

[DominicanProgram]

attend j'éssaye de t'envoyer le fichier mais je ny arrive pas!!!! [file name=Aide moi_20050428104334.zip size=0]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Aide moi_20050428104334.zip[/file]

 

[Hervé]

re re re

Ben non, pas passé 🙂

salut

 

[DominicanProgram]

Hervé écrit:

encore moi

Ce ne serait pas un truc dans ce style que tu veux :

dim derligne as integer

With Sheets('feuil1')

derligne= .Range('a65536').End(xlUp).Row + 1
.Range('a' & derligne).Value = comboBoxMedcons.Value
.Range('b' & derligne).Value = textbox1.value
.Range('c' & derligne).Value = textbox2.value
.Range('d' & derligne).Value = textbox3.value
'....
end with

salut

En fait ce code la marcher tres bien merci mais est ce que tu pense que c'est possible d'effectuer cet insertion sur deux classeur et si oui est ce que tu sait comment faire merci beaucoup hervé j'étais trop (désoler du mots) dans la merde!!!!

merci!!!!!

 

[Hervé]

re

En somme, tu veux renvoyer les valeurs de tes controls dans deux classeurs à la fois :

Dim derligne As Integer
Dim classeur As Variant
dim i as byte

classeur = Array('Classeur1.xls', 'Classeur2.xls')'<====a adapter

For i = 0 To UBound(classeur)
With Workbooks(classeur(i)).Sheets('feuil1')<====a adapter

derligne = .Range('a65536').End(xlUp).Row + 1
.Range('a' & derligne).Value = comboBoxMedcons.Value
.Range('b' & derligne).Value = TextBox1.Value
.Range('c' & derligne).Value = TextBox2.Value
.Range('d' & derligne).Value = TextBox3.Value
'....
End With
Next i
End Sub

il faut que les deux classeur soient ouverts.

Salut

Message édité par: Hervé, à: 28/04/2005 14:10

 

[DominicanProgram]

Salut Hervé il ne marche pas le code que tu ma donné avec la variable 'classeur' j'ai fait comme tu ma indiquer mais il écrit dans un seul classeur 🙁 🙁 j'ai aussi essayer de faire de cet façon la mais cela ne marche pas non plus ...

With Sheets('feuil1')
derligne = .Range('a65536').End(xlUp).Row + 1
.Range('a' & derligne).Value = ComboBoxMedCons.Value
.Range('b' & derligne).Value = TextBoxDateConvo.Value
.Range('c' & derligne).Value = TextBoxCP.Value
.Range('d' & derligne).Value = TextBoxDE.Value
.Range('e' & derligne).Value = TextBoxAVS.Value
.Range('f' & derligne).Value = TextBoxMedTrait.Value
.Range('i' & derligne).Value = TextBoxDateMCOce.Value
.Range('k' & derligne).Value = TextBoxDateMTOce.Value
.Range('g' & derligne).Value = ComboBoxAgence.Value


Application.Workbooks.Open 'D:\\Médecin-Conseil\\Cachier_des_charges\\Documentation\\projet medConseil.xls'

With Sheets('feuil1')
derligne = .Range('a65536').End(xlUp).Row + 1
.Range('a' & derligne).Value = ComboBoxMedCons.Value
.Range('b' & derligne).Value = TextBoxDateConvo.Value
.Range('c' & derligne).Value = TextBoxCP.Value
.Range('d' & derligne).Value = TextBoxDE.Value
.Range('e' & derligne).Value = TextBoxAVS.Value
.Range('f' & derligne).Value = TextBoxMedTrait.Value
.Range('i' & derligne).Value = TextBoxDateMCOce.Value
.Range('k' & derligne).Value = TextBoxDateMTOce.Value
.Range('g' & derligne).Value = ComboBoxAgence.Value
🙁

 

[Hervé]

Bonjour

Si si le code fonctionne. 🙂

le problème doit venir d'ailleurs, voilà mon addresse email :

rvalerie@wanadoo.fr

envoi moi ton fichier.

salut