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: 147

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 17-05-2010 10h41
Re (avec un peu de retard)

En conclusion, voici le code complet (de ma demande) avec la déclaration des variables :

Option Explicit

Sub cherche_max_dans_ligne_5()

Dim c As Range
Dim firstAddress As String
Dim i As Integer
Dim mavar As Integer    'dans ce cas
Dim monadresse As String

mavar = Application.Max(Sheets("Feuil1").Range("d5:iv5"))

With Worksheets("Feuil1").Range("d5:iv5")
    Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
'********************** ce que je cherche
            monadresse = c.Address
            MsgBox monadresse
'**********************
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub

pour ceux que cela intéresse. A adapter.

Bonne journée à tous

Eric
Hors Ligne
 Rapport   Haut 

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

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

Messages: 147

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 13-05-2010 13h46
Re

Merci pour cette réponse ultra rapide, ainsi que pour l'astuce que je ne connaissais pas (sinon...)

Pour le "...Je me permets d'ajouter aussi qu'un petit effort du côté des déclarations de variable et l'utilisation de Option Explicit n'est jamais un luxe...   .... ", tu as raison,  mais ce que j'ai déposé était un extrait de mon code. Pour ma part le "Option Explicit" est systématique, et m'oblige donc à déclarer les variables, ce que je fais en tête de module et par ordre alphabétique.

Merci encore et bonne fin de journée

Eric
Hors Ligne
 Rapport   Haut 

Re: Find sur cellules avec un format personnalisé
#123
Eric
Semi pro XLPages

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

Messages: 147

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: 552 ]
Hors Ligne
 Rapport   Haut 

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

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

Messages: 147

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
#125
Eric
Semi pro XLPages

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

Messages: 147

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
#126
Eric
Semi pro XLPages

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

Messages: 147

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
#127
Eric
Semi pro XLPages

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

Messages: 147

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
#128
Eric
Semi pro XLPages

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

Messages: 147

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: 544 ]
Hors Ligne
 Rapport   Haut 

Tag pour TextBox
#129
Eric
Semi pro XLPages

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

Messages: 147

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
#130
Eric
Semi pro XLPages

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

Messages: 147

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 

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