Textbox

L

lupin

Guest

• 2 Septembre 2016

• #2

Bonsoir,
Quel est ton code pour inscrire dans la feuille Excel ?

Cdlt

 

Vote positif 0 Vote négatif

P

Plumeau72

Guest

• 2 Septembre 2016

• #3

Voici le code utilisé


'***********************
'Procédure permettant d'ajouter un nouveau client
'dans le fichier client
'***********************
Private Sub BtnAjout_Click()

Sheets("Fichier clients").Activate
Range("A1").Select
Selection.End(xlDown).Select 'Positionne sur la dernire ligne non vide
Selection.Offset(1, 0).Select 'DŽcale d'une ligne vers le bas
ActiveCell = cboOrdre.Value
ActiveCell.Offset(0, 1).Value = cboMachine
ActiveCell.Offset(0, 2).Value = cboService
ActiveCell.Offset(0, 3).Value = cboCivilite
ActiveCell.Offset(0, 4).Value = txtNom
ActiveCell.Offset(0, 5).Value = txtPrenom
ActiveCell.Offset(0, 6).Value = txtAdresse
ActiveCell.Offset(0, 7).Value = txtCP
ActiveCell.Offset(0, 8).Value = txtVille
ActiveCell.Offset(0, 9).Value = txtFixe
ActiveCell.Offset(0, 10).Value = txtPortable
ActiveCell.Offset(0, 11).Value = txtEmail
ActiveCell.Offset(0, 12).Value = txtCommentaire

MsgBox "La fiche client a bien été créée", vbOKOnly + vbInformation, "CONFIRMATION"

Unload Me

End Sub

Merci

 

Vote positif 0 Vote négatif

L

lupin

Guest

• 2 Septembre 2016

• #4

Il me semble que la première inscription dans la cellule n'est pas correcte :
ActiveCell = cboOrdre.Value
Ce devrait être ActiveCell.Value = cboOrdre.Value

Cdlt,

 

Vote positif 0 Vote négatif

P

Plumeau72

Guest

• 3 Septembre 2016

• #5

Bonjour, Lupin
J'ai essayé la modification proposée mais le résultat est le même.

Je vous adresse l'ensemble d'instructions ci-dessous.
Quand j'édite le débogage, la ligne Range ("D8") est surlignée en jaune:

Sheets("Prise en charge").Activate
Range("D4").Select
ActiveCell.Value = cboMachine
ActiveCell.Offset(1, 0).Value = cboMachine
ActiveCell.Offset(2, 0).Value = cboCivilite
ActiveCell.Offset(2, 1).Value = txtNom
ActiveCell.Offset(2, 2).Value = txtPrenom
ActiveCell.Offset(3, 0).Value = txtAdresse
ActiveCell.Offset(4, 0).Value = txtCP
ActiveCell.Offset(5, 0).Value = txtVille
ActiveCell.Offset(6, 0).Value = txtFixe
ActiveCell.Offset(7, 0).Value = txtPortable
ActiveCell.Offset(11, -3).Value = txtCommentaire
Range("D8") = CDbl(frmSaisie.txtCP) 'Format nombre
Range("D10") = CDbl(frmSaisie.txtFixe) 'Format nombre
Range("D11") = CDbl(frmSaisie.txtPortable) 'Format nombre

Merci de votre aide

 

Vote positif 0 Vote négatif

L

lupin

Guest

• 3 Septembre 2016

• #6

Je viens de tester avec la même synthaxe et je ne rencontre pas de souci.
Juste pour être certain, quel version d'Excel utilises tu ?

 

Vote positif 0 Vote négatif

P

Plumeau72

Guest

• 3 Septembre 2016

• #7

Excel 2013

 

Vote positif 0 Vote négatif

L

lupin

Guest

• 3 Septembre 2016

• #8

Alors je ne comprends pas, car avec 2007 cela fonctionne !
Quel est l'input dans la txtCP ? Uniquement des chiffres ?

 

Vote positif 0 Vote négatif

P

Plumeau72

Guest

• 3 Septembre 2016

• #9

CP =code postal

 

Vote positif 0 Vote négatif

L

lupin

Guest

• 3 Septembre 2016

• #10

Je l'avais bien deviné qu'il s'agissait du code postal. Mais parfois on peut le précéder d'une lettre.
Et en essayant CLng au lieu de CDbl ! Car en fait CDbl est prévu pour des nombres décimaux, et dans le cas de CP il n'y a pas de décimales.

 

Vote positif 0 Vote négatif

L

lupin

Guest

• 3 Septembre 2016

• #11

Bon j'ai eu l'occasion de tester le code sous Excel 2013 et il fonctionne.
Le plus facile pour t'aider serait peut-être de poster le fichier ...
Cdlt

 

Vote positif 0 Vote négatif

P

Plumeau72

Guest

• 4 Septembre 2016

• #12

D'abord merci

Je t'adresse le fichier ci-dessous. J'ai mis des apostrophes avant les 3 dernières lignes et cela fonctionne correctement (sans le débogage systématique), mais mon second problème est que même si je mets les cellules de destination :

D8 en format spécial "code postal" et les cellules D10 et D11 en format spécial "N° de téléphone

restent tout le temps en format texte

Sheets("Prise en charge").Activate
Range("D4").Select
ActiveCell.Value = cboMachine
ActiveCell.Offset(1, 0).Value = cboMachine
ActiveCell.Offset(2, 0).Value = cboCivilite
ActiveCell.Offset(2, 1).Value = txtNom
ActiveCell.Offset(2, 2).Value = txtPrenom
ActiveCell.Offset(3, 0).Value = txtAdresse
ActiveCell.Offset(4, 0).Value = txtCP
ActiveCell.Offset(5, 0).Value = txtVille
ActiveCell.Offset(6, 0).Value = txtFixe
ActiveCell.Offset(7, 0).Value = txtPortable
ActiveCell.Offset(11, -3).Value = txtCommentaire
'Range("D8") = CLng(frmSaisie.txtCP) 'Format nombre
'Range("D10") = CLngl(frmSaisie.txtFixe) 'Format nombre
'Range("D11") = CLng(frmSaisie.txtPortable) 'Format nombre


MsgBox "La fiche client a bien été créée", vbOKOnly + vbInformation, "CONFIRMATION"

Unload Me


Cdlt

 

Vote positif 0 Vote négatif

L

lupin

Guest

• 4 Septembre 2016

• #13

Bon voici donc en concret l'exécution du formulaire :

Et le résultat dans la feuille Excel avec les 3 lignes en commantaire :

Alors je ne comprends pas l'utilité de ces lignes car elles refont l'injection des données des lignes :
ActiveCell.Offset(4, 0).Value = txtCP
ActiveCell.Offset(6, 0).Value = txtFixe
ActiveCell.Offset(7, 0).Value = txtPortable

Je viens de tester en mettant ces lignes en commentaire et en enlevant le commentaire des 3 dernières et tout fonctionne correctement alors


Il y a donc un 'conflit' entre les commandes (que j'ai aussi eu maintenant :

ActiveCell.Offset(4, 0).Value = txtCP et Range("D8") = CLng(frmSaisie.txtCP)

Conclusion : en remplaçant la première commande avec ActiveCell.Offset(4, 0).Value = CLng(txtCP) cela fonctionne parfaitement.

Cdlt.

 

Vote positif 0 Vote négatif

P

Plumeau72

Guest

• 4 Septembre 2016

• #14

Cela fonctionne parfaitement. Un grand merci. Est-ce que je peux abuser?
J'ai un autre souci. Certaines personnes ont soit un portable, soit un fixe.
Quand je laisse un de ces 2 champs vides, j'ai une "incompatibilité de type"
Est-il possible de corriger cette anomalie?
Cdlt

 

Vote positif 0 Vote négatif

L

lupin

Guest

• 5 Septembre 2016

• #15

Bonjour,
Il suffit de contrôler si le textbox n'est pas vide avant d'inscrire dans le fichier, comme ceci :
If txtFixe <> "" Then
ActiveCell.Offset(6, 0).Value = txtFixe
End If
If txtPortable <> "" Then
ActiveCell.Offset(7, 0).Value = txtPortable
End If

Cdlt.

 

Vote positif 0 Vote négatif