Forums XLPages

Tous les messages (Eric)

« 1 ... 10 11 12 13 14 15 »
Re: Find sur cellules avec un format personnalisé
#121
Eric
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 13-05-2010 11h01
Bonjour à tous
Bonjour MdF
Il est vrai que ce n'était peut-être pas très évident .....
Je recherche l'adresse de la cellule de valeur max, et suivante, dans la ligne qui se compose de cellules avec un (des) format personnalisé.
Dans le code fournit "c" est "Nothing" donc "monadresse=c.address" n'est pas traité.
Pour obtenir le maximum, j'avais opté pour "Application.Large()" car je cherche, avec la boucle "For", le "max" puis le "max-1", puis .... alors que "Application.MAx()" donne que le "max"
J'espère avoir été plus clair
Merci d'avance
Eric





Pièce jointe:
xls find_cel_avec_format_perso.xls   [ Taille: 26.00 Ko - Téléchargements: 449 ]
Hors Ligne
 Rapport   Haut 

Find sur cellules avec un format personnalisé
#122
Eric
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 13-05-2010 09h57
 Bonjour à tous
Dans une ligne, j'ai, dans des cellules avec des formats personnalisés : "nb : xx" ou "xx fois", xx étant le résultat d'une formule
J'essaie ceci :

Sub essai_cherche_max()
 
For i = 1 To 2
    mavar = Application.Large(Sheets("Feuil1").Range("d5:iv5"), i)
   
    With Worksheets("Feuil1").Range("d5:iv5")
        Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole)
       
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                  monadresse = c.Address '????????
        'le traitement
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
Next
End Sub

mais cela ne fonctionne pas
Merci d'avance pour le coup de main
Eric
Hors Ligne
 Rapport   Haut 

Re: Supprimer UserForm
#123
Eric
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 16-03-2010 18h50
Bonsoir à tous
Bonsoir beatbles

Tu peux essayer ceci :
On Error Resume Next
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("vUser")
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("UserForm2")
 
si j'ai bien compris

Eric
Hors Ligne
 Rapport   Haut 

Re: Tag pour TextBox
#124
Eric
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 22-02-2010 16h12
Bonjour à tous
Bonjour Guy

Je ne sais pas où tu es allé chercher cette propriété, mais le résultat est là. Je te remercie beaucoup pour ce coup de main, cela me permet d'avancer.

Bonne journée  à toi et Bonne fin de journée  à tous

Eric
Hors Ligne
 Rapport   Haut 

Re: Tag pour TextBox
#125
Eric
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 20-02-2010 22h02
Re

C'est exact, il n'y a aucun code, pour une bonne raison, mon fichier est trop gros, et je n'ai pas le temps ce soir de l'alléger. Je l'ai déposé pour avoir un "sous main" sur lequel pouvoir discuter.

Au niveau du type de Shapes cela m'est égal, il n'y aura pas de problème par la suite. Ma préférence irait au msoOLEControlObject (MSForms.TextBox), mais je prendrais ce que tu pourras me proposer. J'étais parti avec des msoTextBox (le plus facile), et puis j'ai tenté avec des msoOLEControlObject (MSForms.TextBox), mais je n'ai rien trouvé.

Ni ce soir, ni demain je ne pourrais pas me connecter, car je prends la route dans 1 heure (ou 2). On est jamais à l'heure dans cette maison

Merci d'avance.

Bonne journée à toi et au Québec, et bonne nuit à plein d'autres

Eric
Hors Ligne
 Rapport   Haut 

Re: Tag pour TextBox
#126
Eric
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 20-02-2010 20h47
Bonsoir à Tous
Bonjour Guy

Merci Guy, pour cette réponse rapide.

Précision :

Je ne sais pas combien j'aurais de TextBox

Ces TextBox sont créés par code

Merci d'avance

Eric





Pièce jointe:
xls Textbox_nom.xls   [ Taille: 18.00 Ko - Téléchargements: 469 ]
Hors Ligne
 Rapport   Haut 

Tag pour TextBox
#127
Eric
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 20-02-2010 19h01
Bonsoir à tous

Sur une feuille, j'ai différents "TextBox", créés soit avec la barre d'outils "Contrôls" soit "Dessin"

J'ai besoin du "Name"  et  du texte.

Mon problème est que j'aimerais obtenir un 3ème renseignement que je pourrais modifier du type "Tag", mais cela n'existe apparemment pas pour ces objets. J'ai essayé "objet.AlternativeText", mais sans résultat.

Y-a-t-il une solution ?

Merci d'avance

Eric
Hors Ligne
 Rapport   Haut 

Re: chrono + progressbar sur USF
#128
Eric
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 22-01-2010 11h49
Bonjour à tous
Bonjour Didier

Juste ce qu'il me fallait et avec quelle rapidité, MERCI beaucoup.

Eric

PS : pas de problème, j'ai avancé, je te passerai un nouveau fichier  
Hors Ligne
 Rapport   Haut 

chrono + progressbar sur USF
#129
Eric
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 21-01-2010 22h42

Bonjour à tous


J'aimerai faire fonctionner sur une USF un chrono dans un label, ET une progressbar, liée à une boucle longue, sur quelques 2500 lignes-calculs-recherche internet-calculs -....(30mn seule). Est ce possible ? car je n'ai rien trouvé, et je n'arrive pas à les faire cohabiter.

  Ma solution actuelle est d'incorporer le déclenchement du chrono dans la boucle, mais l'affichage du chrono est de 1 sec, voire 2 sec suivant le «traitement de la boucle» (irrégulier) ce qui n'est pas le but escompté.

Quel serait le code ? pour qu'ils tournent ensemble ET régulièrement.


Bien entendu, il est clair que «ajouter» une progressbar ET un chrono, allonge le temps de traitement. A ce jour, c'est plus un problème de «savoir», car je supprimerais certainement les 2 pour gagner de précieues secondes. 

Merci de votre aide

Eric

 
Hors Ligne
 Rapport   Haut 

Problème de script sur mDF XLmap v2.0
#130
Eric
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 145

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 07-01-2010 18h37
Bonjour à tous

L'application "mDF XLmap v2.0" fonctionne parfaitement sur le PC 1, mais pas sur le PC 2, pourquoi ? je craque ....

 Configuration commune installée récemment :
excel 2003 Pro
Internet explorer 8

sinon :
PC 1 : Win XP Pro SP3
PC 2 : win XP familliale SP3

Pour le PC 2 :

   Au clic sur la feuille "www.mdf-xlpages.com", le WebBrowser s'affiche avec :

Erreur de script dans Internet Explorer

une erreur est survenue dans le script de cette page

ligne : 143
Caractère : 832394
Erreur : Constante chaîne non terminée
Code : 0
URL : http://dev.virtualearth.net/mapcontro ... .ashx?v=6.1&mkt=fr-fr

puis :

ligne : 12
Caractère : 1
Erreur : 'VEMap' est indéfinie
Code : 0
URL : file:///C:/Documents%20and%20Settings ... ettings/Temp/mDFinit.html

puis :

ligne : 1
Caractère : 1
Erreur : 'map' a la valeur Null ou n'est pas un objet
Code : 0
URL : file:///C:/Documents%20and%20Settings ... ettings/Temp/mDFinit.html

puis une deuxième fois :

ligne : 1
Caractère : 1
Erreur : 'map' a la valeur Null ou n'est pas un objet
Code : 0
URL : file:///C:/Documents%20and%20Settings ... ettings/Temp/mDFinit.html

   Le WebBrowser s'affiche, sans la carte, avec les boutons fonctionnels. Si je clique pour afficher les épingles, j'ai de nouveau des "erreurs", je clique sur "oui" ou "non" et le WebBrowser reste blanc.

   Les tests ont été effectués sur un fichier chargé aujourd'hui, pour être certain que cela ne vient pas d'une "bidouille" de ma part sur mes fichiers.

   Tous les "paramètres de sécurité zone internet" sont identiques. Les "script des apllets Java" et "Scripts ASP" sont "activé". 

   Le "mDF_ExempleVirtualEarth.xls" fonctionne parfaitement sur le PC 2

Merci d'avance

Eric
 

 Vers 20h14 : 

sujet résolu sans aucune intervention de ma part : mystère !!!!!!!!






Edité par Eric le 07/01/2010 20:15:43
Hors Ligne
 Rapport   Haut 

« 1 ... 10 11 12 13 14 15 »