Dimensionnement Userform Dynamique

Caponord38

XLDnaute Junior
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

XLDnaute Barbatruc
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

XLDnaute Junior
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
 

Caponord38

XLDnaute Junior
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é

XLDnaute Barbatruc
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

XLDnaute Junior
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]
 

Pièces jointes

  • FeuilleTravail.zip
    4.9 KB · Affichages: 20

Hervé

XLDnaute Barbatruc
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]
 

Pièces jointes

  • FeuilleTravailv2.zip
    11.9 KB · Affichages: 25

Discussions similaires

Statistiques des forums

Discussions
312 938
Messages
2 093 776
Membres
105 821
dernier inscrit
OZOS6868