execution d'un fichier excel

salut
avant tout, beau boulot

il fonctionne parfaitement chez moi ce tableau excel

Bonjour Ghislaine,
L'autre ordi a la même version d'excel?
Dans la macro d'enregistrement à la ligne
.Cells(nuli, 1) = Me.DTPicker1.Value et les lignes suivantes ajoute .Cells(nuli, 1).value...Ce .value a souvent résolu beaucoup de problème....
Ensuite va en début de macro et (sur la 2ème ligne) appuie sur f9.
Lance la macro et ensuite avance avec f8 tu devrais voir où ça coince...

A+ François

Bonjour à tous , premièrement les félicitation vont à Fanfan38 car c'est lui qui ma beaucoup aidé.

J'avais office xp et j'ai mis office 2007 mais bloque dtpicker1...

Saluattion Ghislaine

Merci Ghislaine mais je n'ai fait que t'aider...
Est ce que le .value n'a pas réglé le problème?

Sinon...si tu es trop embeté avec le dtpicker je te propose de regarder ce post ou je trouve la solution de renauder très interressante...Problème: je ne pourrais t'aider je pars demain pour 10 jours de vacance...
http://www.excel-downloads.com/foru[...]ne-cellule.html

J'ai transposé l'idée de renauder sur l'exemple ci dessous...
http://dl.free.fr/duuwiFLgL
Double clic sur la textbox date pour avoir le calendrier...

A+ François

Edité par fanfan38 le 15/11/2011 à 18:45

ce qui est etrange c est que j ai essayer avec office 2007 et je n est pas d erreur

Salut, j'ai formaté mon ordi avec xp pro et installé office 2007, mais quand je clique sur le choix des dates ou nouvelles installations, il me ferme excel...
Salutations!
Ghislaine.

Bonjour,
Les règles de sécurité ( exécution des macros ) sont-elles bien les mêmes que sur ton système ?

as tu mis suite a réinstallation toutes les mises a jour proposer par windows update et qui concerene office

ok je verifie salut

salut, j'ai installer les mise-a-jour, mais quand je clique pour choisir un date d'enregistrement pour visualiser les donnees, il me donne par exemple 40700 au lieu de la date...

Salutation ghislaine

regarde ici il y a plein de service pack pour office
http://office.microsoft.com/fr-fr/m[...]L102475746.aspx

Bonjour,
En fait 40700 représente la date du 06/06/2011, en modifiant le format de la cellule en format "date". 40700 est le format "texte" ou "nombre"

Salut à quel endroit je change le format date:
C'est dans ce ufconsultation que ca plante


Dim modi As Boolean
Dim varcap As String
Dim varnum As String

Private Sub Cbbateau_Change()
lig = Me.Cbbateau.ListIndex + 2
varcap = Sheets("BD bateau").Cells(lig, 3).Value 'colonne 9
varnum = Sheets("BD bateau").Cells(lig, 2).Value 'colonne 10
End Sub

Private Sub cmdEnrg_Click()
If Me.cbxChoixDate.ListIndex = -1 Then
nuli = Sheets("BD enr").Range("a65536").End(xlUp).Row + 1
Else
nuli = Me.cbxChoixDate.ListIndex + 2
End If
If Len(Me.Cbbateau.Value) = 0 Then
mavar = "bateau"
GoTo incomplet
End If
If Len(Me.Cbquai.Value) = 0 Then
mavar = "un quai"
GoTo incomplet
End If
If Len(Me.Cbpoisson.Value) = 0 Then
mavar = "un poisson"
GoTo incomplet
End If
If Me.tbxPoidBrut.Value = 0 Then
mavar = "le poids brut"
GoTo incomplet
End If
'If Me.tbxPartGlace.Value = 0 Then
' mavar = "le pourcentage de glace"
'GoTo incomplet
'End If
If Me.tbxPoidNet.Value = 0 Then
mavar = "le poids net"
GoTo incomplet
End If
With Sheets("BD enr")
.Cells(nuli, 1).Value = Me.DTPicker1.Value
.Cells(nuli, 5).Value = Me.Cbbateau.Value
.Cells(nuli, 6).Value = Me.Cbquai.Value
.Cells(nuli, 7).Value = Me.Cbpoisson.Value
.Cells(nuli, 2).Value = CDbl(Me.tbxPoidBrut)
.Cells(nuli, 3).Value = CDbl(Me.tbxPartGlace) / 100
.Cells(nuli, 4).Value = CDbl(Me.tbxPoidNet)
If Len(.Cells(nuli, 10).Value) = 0 Then .Cells(nuli, 10).Value = varnum
If Len(.Cells(nuli, 9).Value) = 0 Then .Cells(nuli, 9).Value = varcap
nuli = WorksheetFunction.CountA(.Columns(1))
.Range("A2:J" & nuli).Sort Key1:=.Columns(1), Order1:=xlDescending, Header:=xlGuess
End With
miseajour
'Me.cbxChoixDate.ListIndex = -1
MsgBox "La modification est enregistrée."
Exit Sub
incomplet:
MsgBox ("Veuillez saisir " & mavar)
End Sub

Private Sub cmdsuppenrg_Click() 'suppression
derlig = Sheets("BD enr").Range("a65536").End(xlUp).Row
If CheckBox1.Value = True Then
rep = MsgBox("Confirmez! vous allez supprimer touts les enregistrements", vbOKCancel)
If rep = 1 Then Sheets("BD enr").Range("A2:j" & derlig).ClearContents
Exit Sub
End If
nuli = Me.cbxChoixDate.ListIndex + 2 ' la première ligne de données est 2
If Me.cbxChoixDate.ListIndex = -1 Then Exit Sub
rep = MsgBox("Attention! Vous allez supprimer une fiche...Confirmez", vbOKCancel)
If rep = 1 Then Sheets("BD enr").Rows(nuli).Delete
ufConsultation.Hide
End Sub

Private Sub CommandButton1_Click() 'nouvelle pesée
Me.DTPicker1.Enabled = True
Me.DTPicker1.Value = Date
nuli = Sheets("BD enr").Range("a65536").End(xlUp).Row + 1
Sheets("BD enr").Cells(nuli, 1).Value = Me.DTPicker1.Value
Me.Cbbateau.ListIndex = -1
Me.Cbquai.ListIndex = -1
Me.Cbpoisson.ListIndex = -1
Me.tbxPoidBrut.Value = 0
Me.tbxPartGlace.Value = 0
Me.tbxPoidNet.Value = 0
Me.cbxChoixDate.Value = Me.DTPicker1.Value
End Sub

Private Sub UserForm_Initialize()
modi = False
miseajour
modi = True
End Sub

Private Sub cbxChoixDate_Change()
Dim nuli As Integer
If modi = False Then Exit Sub
cbxChoixDate.Value = CDate(cbxChoixDate.Value)
nuli = Me.cbxChoixDate.ListIndex + 2 ' la première ligne de données est 2
If Me.cbxChoixDate.ListIndex = -1 Then nuli = Sheets("BD enr").Range("a65536").End(xlUp).Row
modi = False
Me.DTPicker1.Enabled = True
Me.DTPicker1.Value = CDate(cbxChoixDate.Value)
With Sheets("BD enr")
Me.Cbbateau.Value = .Cells(nuli, 5).Value
Me.Cbquai.Value = .Cells(nuli, 6).Value
Me.Cbpoisson.Value = .Cells(nuli, 7).Value
Me.tbxPoidBrut.Value = Format(.Cells(nuli, 2).Value, "#####.00")
Me.tbxPartGlace.Value = Format(.Cells(nuli, 3).Value * 100, "0.00")
Me.tbxPoidNet.Value = Format(.Cells(nuli, 2).Value * (1 - .Cells(nuli, 3).Value), "#####.00")
End With
modi = True
Me.cmdSortir.SetFocus
End Sub
Private Sub tbxPoidBrut_AfterUpdate()
If modi = False Then Exit Sub
ModiCalcul
End Sub

Private Sub tbxPartGlace_AfterUpdate()
If modi = False Then Exit Sub
ModiCalcul
End Sub

Private Sub cmdSortir_Click()
derlig = Sheets("BD enr").Range("a65536").End(xlUp).Row
For i = 2 To derlig
With Sheets("BD enr")
If .Cells(i, 2).Value = 0 And .Cells(i, 4).Value = 0 Then
.Rows(i).Delete
End If
End With
Next
Unload ufConsultation
End Sub

Sub miseajour()
Me.DTPicker1.Enabled = False
derlig = Sheets("BD bateau").Range("a65536").End(xlUp).Row
For i = 2 To derlig
Me.Cbbateau.AddItem Sheets("BD bateau").Cells(i, 1).Value
Next
Me.Cbbateau.ListIndex = -1
derlig = Sheets("BD quai").Range("a65536").End(xlUp).Row
For i = 2 To derlig
Me.Cbquai.AddItem Sheets("BD quai").Cells(i, 1).Value
Next
Me.Cbquai.ListIndex = -1
derlig = Sheets("BD poisson").Range("a65536").End(xlUp).Row
For i = 2 To derlig
Me.Cbpoisson.AddItem Sheets("BD poisson").Cells(i, 1).Value
Next
Me.Cbpoisson.ListIndex = -1
Me.tbxPoidBrut = 0
Me.tbxPartGlace = 0
Me.tbxPoidNet = 0
'Me.cbxChoixDate.RowSource = bd_enrdate
End Sub

Sub ModiCalcul()
With Sheets("BD enr")
Me.tbxPoidNet = Format(CDbl(Me.tbxPoidBrut) * (1 - CDbl(Me.tbxPartGlace) / 100), "#####.00")
Me.tbxPoidBrut = Format(Me.tbxPoidBrut, "#####.00")
Me.tbxPartGlace = Format(tbxPartGlace, "0.00")
End With
End Sub


Salutation Ghislaine

Citation de ghislaineg, 16/11/2011 à 20h48 :

Salut à quel endroit je change le format date

C'est dans la cellule où s'affiche le "40700" sans doute.

Edité par Jacky67 le 16/11/2011 à 21:02

Bonjour, dans les contrôles supplémentaires des macro , qu'est-ce qui doit être coché, je crois que c'est la qui me manque quelque chose.


Salutation ghislaine

Bonjour a vous tous la réponse à mon probleme était:

Dans la procédure : Private Sub cbxChoixDate_Change() du formulaire : ufConsultation
le problème est à la deuxième ligne de code :

Met une apostrophe devant cette ligne de code ou supprimer là !
'cbxChoixDate.Value = CDate(cbxChoixDate.Value)


Ce qui suit est seulement une suggestion :

Comme tu charges beaucoup de bibliothèques dans ton projet, il serait prudent d'utiliser ce type de
procédure pour charger les bibliothèques. En passant, il n'y a pas plus de contrôle "Calendar1" dans
Excel 2010 de disponible (je n'ai pas vérifié pour 2007). Si tu ouvres ton fichier avec une de ces versions
d'Excel, le code qui a rapport au calendar va générer une erreur! Au besoin, il est toujours possible de
télécharger le contrôle d'internet et de l'installer. Ce n'était qu'un avertissement.

Dans le ThisWorkbook de ton projetVBA :

'----------------------------
Private Sub Workbook_Open()
Call Charger_Les_Bibliothèques
End Sub
'----------------------------


'Dans un module standard :
'--------------------------------------------
Sub Charger_Les_Bibliothèques()
Dim R As Object, Message As String
Dim LesRefs As Object, i As Integer

'examine les références d'un projet, repère celles qui
'sont déclarées manquantes et essaye de les réinstaller
On Error Resume Next
Set LesRefs = ThisWorkbook.VBProject.References
For i = 1 To LesRefs.Count
With LesRefs(i)
If .IsBroken Then
Message = Message & .Name & " : " & .Description & vbcrfl
LesRefs.Remove LesRefs.Item(.Name)
End If
End With
Next
If Message <> "" Then
MsgBox "Les bibliothèques suivantes sont manquantes :" & _
"n'ont pas été installées." & vbCrLf & _
vbCrLf & Message
End If

'Pour ajouter les bibliothèques :
With ThisWorkbook.VBProject.References
'Bibliothèque : MSComCtl2, Microsoft Windows Common Controls-2 6.0 (SP6)
.AddFromGuid "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}", 2, 0
'Bibliothèque : AMovie, Microsoft ActiveMovie Control
.AddFromGuid "{05589FA0-C356-11CE-BF01-00AA0055595A}", 2, 0
'Bibliothèque : ADOMD, Microsoft ActiveX Data Objects (Multi-dimensional) 2.8 Library
.AddFromGuid "{22813728-8BD3-11D0-B4EF-00A0C9138CA4}", 2, 8
'Bibliothèque : ADODB, Microsoft ActiveX Data Objects 2.0 Library
.AddFromGuid "{00000200-0000-0010-8000-00AA006D2EA4}", 2, 0
'Bibliothèque :ATLContactPickerLib, ATLContactPicker 1.0 Type Library
.AddFromGuid "{39B50B80-9CC3-4895-B2AA-92B3C73B587E}", 1, 0
'Bibliothèque : calendar1, Ajoute la bibliothèque calendar
.AddFromGuid "{8E27C92E-1264-101C-8A2F-040224009C02}", 7, 0
End With
End Sub
'--------------------------------------------



Salutation Ghislaine

Réponse automatique :

Cette question est résolue