Dimensionnement Userform Dynamique

[Caponord38]

Bonsoir tous les XLDiens, les XLDiennes
Je crois que je vais m'arracher les cheveux,
Je voudrais pouvoir redimensionner juste Height de mon userform en sachant que sa taille initiale est de 170.
Suivant le nombre de feuilles dans mon classeur je voudrais augmenter Height de 24 multiplier par le nombre de feuilles.
Voila le code. Comme on dit mieux vaut un petit schema plutot qu'un grand discours. :angry:

Private Sub UserForm_Initialize()
With UserForm1
.Height = 170
End With
For I = 1 To Sheets.Count
ThisWorkbook.Sheets(I).Range('A1').Select
For Each c In ActiveCell.CurrentRegion.Cells
c.Interior.ColorIndex = 0
Next
Next I
If Sheets.Count > 1 Then
With UserForm1
.Height = .Height + (24 * Sheets.Count)
End With
End If
TextBoxSaisiNom = ''
LabelResultatRecherche.Visible = False
CommandButtonAnnuleRecherche.Visible = False
CommandButtonValideRecherche.Visible = False
'Sheets(1).Range('A1').Select
End Sub


Quand j'exécute
Voila le message d'erreur:
Erreur d'execution '1004':
La méthode Select de la classe Range a echoue

Help Help Help

 

[MichelXld]

bonjour

tu peux tester cette adaptation sans Select

Private Sub UserForm_Initialize()
Dim i As Byte
Dim C As Range

Me.Height = 170

For i = 1 To Sheets.Count
For Each C In Sheets(i).Range('A1').CurrentRegion.Cells
C.Interior.ColorIndex = 0
Next

Next i

If Sheets.Count > 1 Then _
Me.Height = Me.Height + (24 * Sheets.Count)

TextBoxSaisiNom = ''
LabelResultatRecherche.Visible = False
CommandButtonAnnuleRecherche.Visible = False
CommandButtonValideRecherche.Visible = False
'Sheets(1).Range('A1').Select
End Sub


bonne journée
MichelXld

 

[Caponord38]

Bonjour tous XLDiens et XLDiennes,
Merci beaucoup Michel,
Ca fonctionne impeccable.
Maintenant, je sais c'est toujours la meme chose,
Comment creer Des Label et de boutons radio de facon dynamique.
Je me fais bouler à chaque fois.
Les labels seraient créés suivant le nombre de feuille et se positionneraient les uns au dessus des autres dans le Userform.
Porteraient le Nom: LabelRechercheFeuille1, LabelRechercheFeuille2,..., LabelRehercheFeuilleN.
Les boutons Radios seraient situés a droite des labels et s'appelleraient RadiosFeuille1, RadioFeuille2,...,RadioFeuille3
Merci pour votre aide
A+
Olivier

 

[MichelXld]

bonjour Olivier

cette demo de @+Thierry concernait les Textbox , mais je pense que tu pourras facilement l'adapter à ton projet

Lien supprimé


bonne soiree
MichelXld

Message édité par: MichelXld, à: 16/08/2005 17:19

 

[Caponord38]

Bonsoir tout le monde,
Un grand merci de ta part MichelXLD.
Grace à toi j'ai presque fini mon projet.
Tout fonctionne mais je voudrais l'ameliorer en recuperant toutes les donnees de toutes les feuilles de mon classeur les trier, supprimer les doublons possibles et afficher le resultat dans un Combobox. Pour l'instant ce que je cherche surtout c'est de pouvoir recuperer toutes les donnees des feuilles de mon classeur en sachant qu'il peut y avoir des lignes, des colonnes et des cellules vides et mettre toutes ces donnees dans un tableau.
On considere qu'on ne connait pas le nombre de feuille dans le classeur.
Merci d'avance
A+
Olivier

 

[Hervé]

Bonsoir caponord, michel, le forum

Ce que tu demandes doit etre réalisable, mais il nous faudrait plus de détail.

Comment sont présentées les données, quel est le critère pour 'dédoublonner', trier sur quel critère ?

En somme un petit fichier avec des données bidon en pièces jointes serait le bienvenue.

salut

 

[Caponord38]

Re salut tout le monde,
en piece jointe je joins mon fichier de travail.
Le tri sera un tri alphabetique
Merci et A+
Olivier [file name=FeuilleTravail.zip size=5058]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FeuilleTravail.zip[/file]

 

[Hervé]

rebonsoir caponord, michel, le forum

En pièce jointe, une proposition.

Comme tu ne dis pas comment on dédoublonne, j'ai fait comme je le sentais.

je renvoi le résultat dans un combobox d'un userform

salut
[file name=FeuilleTravailv2.zip size=12202]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FeuilleTravailv2.zip[/file]

 

[Caponord38]

Bonsoir tout le monde,
Grand merci Hervé tu m'as permis d'améliorer mon projet.
Merci encore
A+
Olivier