Forums XLPages

Tous les messages (beatbles)

« 1 2 3 4 5 6 »
Re: Probléme de code
#11
Régulier XLPages

Inscription: 08/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 22-08-2012 09h25
Bonjour Mth et bonjour a tous
Pour ta 1er question les données sont bien dans la colonnes J
Pour la 2éme question le fichier fais 2Mo, se qui fais gros, ensuite le bout de fichier que j'ai mis précédemment et le seul a l'ouverture de l'User et je n'ai pas lancer le programme j'ai juste lancer l'User en pas a pas.Je ne sais pas si j'ai dit cela correctement et si je me suis fais comprendre.
Je me rend bien contre qu'il y as une chose qui ne tourne pas rond, puisque cela fonctionne dans un autres fichier.
J'ai depuis essayer de contourne le problème de cette maniére:
b1 = 0
ligne = Sheets("Feuille").[J65000].End(xlUp).Row
For i = 2 To ligne
vOrdre1 = "J" & i
A1 = Range(vOrdre1)
b1 = b1 + A1
Next
avd1 = Format(b1, "#,##0.00 €")
TextBox1 = avd1

Je sais cela ne régle pas l'autre problème,et cela me donne le résultat ,et j'ai 14 colonnes a totaliser cela sera un peu plus long.
Ai je répondu a t'es questions, bien cordialement
beatbles


Hors Ligne
Rapport   Haut 

Re: Probléme de code
#12
Régulier XLPages

Inscription: 08/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 21-08-2012 13h46
Je revient a nouveau aprés avoir refait des essaie et repris des copie d'écran plus grande, j'ai bien contrôler qu'il sélectionner bien la bonne feuille.

Bien cordialement

Pièce jointe:
zip Re1.zip   [ Taille: 5.13 Ko - Téléchargements: 463 ]
zip Re2.zip   [ Taille: 5.10 Ko - Téléchargements: 484 ]
Hors Ligne
Rapport   Haut 

Re: Probléme de code
#13
Régulier XLPages

Inscription: 08/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 21-08-2012 13h29
J'ai l'impression que mon image n'ai pas passer, j'essaie de l'envoyer a nouveau.
J'ai confondue 7z et zip, pardonner moi.



Pièce jointe:
zip Resul.zip   [ Taille: 7.90 Ko - Téléchargements: 498 ]
Hors Ligne
Rapport   Haut 

Re: Probléme de code
#14
Régulier XLPages

Inscription: 08/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 21-08-2012 13h22
Bonjour mth et bonjour a tous

Oui j'ai le code suivant :
Private Sub UserForm_Initialize()

Dim T As Currency

Sheets("Feuille").Activate

T = Application.WorksheetFunction.Subtotal(9, Columns(10))

avd1 = Format(T, "#,##0.00 €")
Stop
et comme vous je n'ai pas compris pourquoi il ne fonctionner pas quand je l'ai mis dans mon projet, dont vous avez le début du code qui m' insérer le total dans la variable "avdl".

Je vous joint une copie d'écran qui n'ai pas bien grande ou vous pourrez voir que T est égale a zéro dans mon projet.
Je vois ce que je pourrais vous apporter de plus
Bien cordialement

Hors Ligne
Rapport   Haut 

Probléme de code
#15
Régulier XLPages

Inscription: 08/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 20-08-2012 16h20

Bonjour a tous

 

Voulant effectuer le total de certaine colonne dans mon projet j’ai récupérer le code suivant :

 

Sheets("Feuille").Activate

t = Application.WorksheetFunction.Subtotal(9, Columns(4))

Range("M1") = t

 

Ce code se trouvant dans un module, code qui fonctionne très bien dans un petit programme.

 

Le problème pour moi je pense ? C’est que mon code pour réaliser le total ce trouve dans un UserForm

 

Voici le code qui se trouve dans l’initialisation de l’UserForm

 

Sheets("Feuille").Activate

 

T = Application.WorksheetFunction.Subtotal(9, Columns(10))

 

Le premier total devant s’effectuer dans la colonne 10, mes T reste toujours a 0

 

L’un de vous aurait ils la solution pour effectuer cela depuis l’UserForm

 

J’ai refait le test a plusieurs reprise et toujours 0

 

Dans l’attente bien cordialement a tous


Hors Ligne
Rapport   Haut 

Re: Transformation du choix dans ComboBox
#16
Régulier XLPages

Inscription: 08/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 19-07-2012 07h44
Bonjour a tous
Je remercie eric ,pour la réponse qu'il a apporte est qui fonctionne trés bien.
J'ai eu la réponse ci-dessous et qui fonctionne aussi trés bien.
Bien cordialement a tous
Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Text, "dd/mm/yyyy")
End Sub

Hors Ligne
Rapport   Haut 

Transformation du choix dans ComboBox
#17
Régulier XLPages

Inscription: 08/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-07-2012 09h36
Bonjour a tous
Mon ComboBox est rempli de Date , mes quand j'en sélectionne une dans la cellule du ComboBox c'est la valeur de la date qui s'inscrit.
Y aurait il un moyen que se soit la date choisi qui reste visible?
Je joint un dossier avec des impressions d'écran .
Dans l'attente recevez mes salutation
Pièce jointe:
zip Classeur1.zip   [ Taille: 5.98 Ko - Téléchargements: 505 ]
Hors Ligne
Rapport   Haut 

Re: Pas de réponse de la touche F8
#18
Régulier XLPages

Inscription: 08/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 19-06-2012 05h17
Bonjour a tous
Merci myDearFriend avant de te lire j'ai désinstaller Office et réinstaller malheureusement sans succés ,j'ai aussi testé un autre clavier pour voir si cela ne venait pas de la touche F8 .

par contre tu ma diriger vers le site GNT Ou

JPMonnier   a rencontrer se probléme qui fonctionne aussi chez moi

Bonjour,
J'ai depuis 2 jours, mon pas à pas par F8 en vba qui est inactif
Or si je fais F5 sur 1 point d'arrêt, ça démarre et je fais pas à pas en
combinant touche shift + F8
Auriez vous une idée
Merci d'avance

Je ne sais pas si cela est la solution au problème de la touche F8 que je rencontre , par contre avec ce que dit JPMonnier  on arrive a refaire du pas a pas.

Peut être y a-t-il une autre solution, en attendant celle la peut dépanner.

J'ai repris connaissance de cette FAQ et je n'arrive pas a voir ou je n'ai pas bien remplie les condition.

Bien cordialement

Hors Ligne
Rapport   Haut 

Pas de réponse de la touche F8
#19
Régulier XLPages

Inscription: 08/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 18-06-2012 09h25
Bonjour a tous
J'ai changer de PC même Windows et même Office.Mais quand je désire faire du pas a pas avec la touche F8 cela ne fonctionne pas, alors que si je passe par "debogage" puis "pas a pas détaillé" cela fonctionne mes beaucoup plus lentement!
Esque l'un d'entre vous aurais une solution pour réarmer la touche F8.
Dans l'attente, recevez mes salutation.


Hors Ligne
Rapport   Haut 

Re: Probleme après un PrintOut
#20
Régulier XLPages

Inscription: 08/12/2008

Messages: 55

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 11-01-2011 15h46
Bonjour Guy
  Je tient a te remercier pour le classeur que tu as joint et qui résoud mon probléme, je vois aussi que pour le moment tu n'as pas trop de temps.
Mes si par la suite tu pouvais ou une autre personne, nous concocter un petit tutoriel pour aller plus loin et nous apporter des infos compléméntaire sur le sujet que je vient de levé, je pense que cela nous serait trés utile.
Encore une fois merçi , bien cordialement beatbles

Hors Ligne
Rapport   Haut 

« 1 2 3 4 5 6 »