Probleme adressage label

Paritec

XLDnaute Barbatruc

• 3 Décembre 2010

• #2

Re : Probleme adressage label

Bonsoir
sans doute avec

Code:

 Me.Controls("label" & u)

cela marcherait mieux
a+
papou 🙂

 

Vote positif 0 Vote négatif

I

ifi77

XLDnaute Occasionnel

• 3 Décembre 2010

• #3

Re : Probleme adressage label

Bonsoir Paritec,

j'avais déja essayer, je l'ai refait par acquis de conscience mais cela ne fonctionne pas, je ne vois vraiment pas pourquoi

merci

@+

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 3 Décembre 2010

• #4

Re : Probleme adressage label

Bonjour,

en regardant ton code, je remarque que l'userform_initialize en question commence par sheets(engin).activate

Hors tu dois t'assurer que engin a bien correctement été défini avant d'afficher l'USF : tu dois plutôt chercher de ce côté là, car si tu remplaces engin, par "auteuil" dans la macro, cela fonctionne.

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 3 Décembre 2010

• #5

Re : Probleme adressage label

Bonsoir le fil,

je confirme, la feuille engin n'existe pas onglets present (feuil1, auteuil, feuil2)

Bonne soirée

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 3 Décembre 2010

• #6

Re : Probleme adressage label

Re,

@Abtony : Engin est une variable qui est définie dans un module standard, elle peut prendre n'importe quell valeur de chaine de caractère dont "Auteuil", "Feuil1" ou "Feuil2", par exemple. Tout dépend comment elle a été définie dans le code...

 

Vote positif 0 Vote négatif

I

ifi77

XLDnaute Occasionnel

• 3 Décembre 2010

• #7

Re : Probleme adressage label

re,

engin est defini dans le module ouverture_stat et appartient au classeur joint.

J'ai défini engin en public, je ne pense pas avoir fait d'erreur mais peut etre qu'avec votre regard..

merci encore

@+

 

Vote positif 0 Vote négatif

I

ifi77

XLDnaute Occasionnel

• 3 Décembre 2010

• #8

Re : Probleme adressage label

J'ai essayé le global mais cela ne fonctionne pas non plus.

????????

il y a bien une solution...

merci @ tous pour votre aide.

 

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 3 Décembre 2010

• #9

Re : Probleme adressage label

Salut,

Code:

ub ouverture_stat()
Chemin = ThisWorkbook.Path & "\"
Site = menu_statistique.ComboBox2.Value
Mois = menu_statistique.ComboBox3.Value
Engin = menu_statistique.ComboBox4.Value
Temps = menu_statistique.ComboBox1.Value

ça sent pas trés bon quand tu initialises ton USF tes combos peuvent être vides. ..dans le commandbutoon1 de l'usf il faut que testes que l'user ait bien sélectionner une valeur

Code:

Private Function TesteCombo() As Boolean
Dim Ctrl As Control
  For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "ComboBox" Then
      If Ctrl.ListIndex = -1 Then
         MsgBox "Veuillez sélectionner " & Ctrl.Tag, _
                vbInformation, "Saisie incompléte"
         Ctrl.SetFocus
         TesteCombo = True
         Exit For
      End If
    End If
  Next Ctrl
End Function

tu t'en sers dans le code de ton bouton valider

if testecombo then ouverture_stat


ne pas oublier de remplir tes tags de chacun de tes controles "Type" ....


A+++

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 3 Décembre 2010

• #10

Re : Probleme adressage label

Re,

On s'est pas compris. Ton truc ça fonctionne... à priori. Ce que je voulais dire c'est que ta variable engin telle qu'elle est définie dans cet exemple peut prendre l'une des valeurs de la combobox4 de ta form menu_statistique, soit : "VSAV", "PSE" ou "EPA". Donc lorsque la macro d'initialisation du form Mensuel se lance, il bute sur:
Sheets(engin)..., dans la mesure où dans l'exemple joint, il n'existe pas de feuille "VSAV", "PSE" ou "EPA". Si dans la combobox, tu places un "Auteuil", ça fonctionne...

En espérant avoir été un chouille plus clair.

 

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 3 Décembre 2010

• #11

Re : Probleme adressage label

Softmana il faut tester si les combos ont une valeur ...


A+++

 

Dernière édition: 3 Décembre 2010

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 3 Décembre 2010

• #12

Re : Probleme adressage label

re,

@Zon : oui oui, tu as raison pour ça, mais ce n'est pas ce problème que je pointais.

 

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 3 Décembre 2010

• #13

Re : Probleme adressage label

softmana , désolé je n'ai pas tout suivi...

 

Vote positif 0 Vote négatif

I

ifi77

XLDnaute Occasionnel

• 3 Décembre 2010

• #14

Re : Probleme adressage label

softmama,

en fait la feuille VSAV, PSE ou EPA se trouve sur le classeur annexe, c'est pour cela que je le fait s'ouvrir dans la macro ouverture_stat:

If Temps = "Mensuel" Then
Workbooks.Open (Chemin & Site & "_" & Mois & ".xls")Sheets(Engin).Activate
Windows(Site & "_" & Mois).Visible = False
statistique_mensuel.Show
End If

ainsi dans l'initialyze de la userform, je fais référence à la feuille déja active:

Private Sub UserForm_Initialize()
Sheets(Engin).Activate 'Range("A1").Select 'uniquement pour Excel97
With ActiveSheet
NbGraph = .ChartObjects.Count
GraphActif = 1
.ChartObjects(GraphActif).CopyPicture xlScreen, xlPicture
Set Image1.Picture = PastePicture(xlPicture)
End With

peut etre que l'activation du classeur n'est pas bonne...

merci @+

 

Vote positif 0 Vote négatif

I

ifi77

XLDnaute Occasionnel

• 3 Décembre 2010

• #15

Re : Probleme adressage label

Re tout le monde,

voila le probleme, en fait, c'est la recherche des données sur un autre classeur qui ne fonctionne pas.

Il doit y avoir une erreur dans l'activation du classeur..

En effet, chacune des feuilles utilisées comme base de données se trouve dans des classeurs différents des userform. SI cela fonctionne bien pour AUteuil lorsqu'il se trouve dans le meme classeur par contre lorsque je le mets dans le classeur nommé annuel, il n'arrive pas à lancer la macro.

Il en est de meme pur la userform statistique mensuel.

si vous avez une idée pour lié les userform et les données sur les classeurs annexes.

merci

 

Vote positif 0 Vote négatif