Probléme sur UserForm

Papou-net

XLDnaute Barbatruc

• 26 Septembre 2011

• #2

Re : Probléme sur UserForm

Bonsoir aptagud,

Qu'est-ce qui ne marche pas ?

La lecture de ton code ne me laisse apparaître aucune anomalie, à priori. As-tu vérifié les noms de tes contrôles ?

Un fichier édulcoré, sans informations confidentielles, serait souhaitable.

Cordialement.

 

Vote positif 0 Vote négatif

A

aptagud

Guest

• 26 Septembre 2011

• #3

Re : Probléme sur UserForm

Bonsoir Papou-Net

Après m'être pris la tête une bonne partie de l'apm et le début de soirée je suis finalement rentré chez moi... 20H30 maman était pas contente 😉

En faite quand je sélectionne dans mon UF la liste Collaborateur celle ci ne me reference personne et comme j'ai zero collab à sélectionner bein forcement les autres cases ne peuvent pas se remplir 😡

bref j'ai pas le fichier ici il est au bureau je te l'envoi demain et j'avoue que tu me serais d'une grande aide si tu pouvais y jeter un petit coup d'oeil

en tout cas merci de m'avoir répondu je mets le fichier en ligne demain a la 1ere heure encore merci

 

Dernière modification par un modérateur: 26 Septembre 2011

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 26 Septembre 2011

• #4

Re : Probléme sur UserForm

bonsoir

sauf si je suis bon pour le zop ou que n'ai rien compris, je mettrai plutôt

Me.txtCollab.Value = Range(firstAddress)
Me.txtMat.Value = Range(firstAddress).Offset(0, 2).Value

mais bon, sans fichier exemple ...

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 26 Septembre 2011

• #5

Re : Probléme sur UserForm

Bonsoir mutzik, aptagud,

Mutzik : Effectivement, ça me parait plus logique. Je cherchais surtout une erreur de syntaxe, on se trouverait là en face d'une erreur de logique.

aptagud : essaies demain en modifiant ton code, ça devrait fonctionner beaucoup mieux.

Cordialement.

PS : qu'est-ce que le zop ?

 

Vote positif 0 Vote négatif

A

aptagud

Guest

• 27 Septembre 2011

• #6

Re : Probléme sur UserForm

Bonjour a vous deux merci de vos réponses

J'ai essayé ta solution Mutzik mais mon champ reste desesperement vide

Je mets en PJ le fichier

Merci a vous deux pour votre aide

 

Pièces jointes

• Recueil de besoinV2.xlsm

  27.4 KB · Affichages: 64

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 27 Septembre 2011

• #7

Re : Probléme sur UserForm

bonjour,

au vu de ton fichier, cela me semble normal puisque ta variable et ta zone de liste de ton usf sont vides (en tout cas chez moi)
Il faut au préalable (dans la sub d'initialisation de ton usf) remplir ladite liste, et après mise à jour de cette liste lancer la macro de recherche

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 27 Septembre 2011

• #8

Re : Probléme sur UserForm

Bonjour aptagud, mutzik, le forum,

@ aptagud :

J'ai ouvert ton fichier, et je ne vois pas par quel moyen tu lances ta macro "Recueil_Click()".

Par contre, après essai, il s'avère que les noms dans la colonne C sont suivis par un espace. L'instruction "Find" ne trouve ainsi aucune valeur correspondante. Il te faut donc supprimer ces espaces.

Par ailleurs, ta macro déclenche une erreur, car tu n'as pas déclaré les variables "A" et "firstAddress". Il te faut corriger comme ceci :

Code:

Private Sub Recueil_Click()
Dim A As Object, firstAddress As String

'recherche le nom d'un collab
Sheets("Collab").Activate
    With Sheets("Collab").Range("A2:A65500")
        Set A = .Find(txtCollab, LookIn:=xlValues, LookAt:=xlWhole)
        If Not A Is Nothing Then
            firstAddress = A.Address
            Do
             

Me.txtCollab.Value = Range(firstAddress)
Me.txtMat.Value = Range(firstAddress).Offset(0, 2).Value
Me.txtCtt.Value = Range(firstAddress).Offset(0, 4).Value
Me.txtSex.Value = Range(firstAddress).Offset(0, 5).Value
Me.txtSecu.Value = Range(firstAddress).Offset(0, 6).Value
Me.txtDir.Value = Range(firstAddress).Offset(0, 8).Value
Me.txtServ.Value = Range(firstAddress).Offset(0, 9).Value
Me.txtFonc.Value = Range(firstAddress).Offset(0, 7).Value
Loop While Not A Is Nothing And A.Address <> firstAddress
    
  Else
  's'il ne trouve pas
    Err = MsgBox("Cette formation n'à  trouvé", vbOKOnly + vbQuestion, "Enregistrement refusé")
    
End If
End With
End Sub

Ou bien supprimer "Option Explicit".

Autre erreur relevée :

Code:

Set A = .Find(Collab.txtCollab, LookIn:=xlValues, LookAt:=xlWhole)

Remplace ".Find(Collab.txtCollab" par ".Find(txtCollab"

Espérant avoir répondu.

Cordialement.

 

Vote positif 0 Vote négatif

A

aptagud

Guest

• 27 Septembre 2011

• #9

Re : Probléme sur UserForm

Ok... trés bien...

😕😕😕

si c'est pas abusé comment qu'on fait

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 27 Septembre 2011

• #10

Re : Probléme sur UserForm

RE:Bonjour mutzik,

Si on entre un nom dans la zone txtCollab, ça fonctionne. Par contre, comme je le disais à aptagud, les noms de la colonne C sont suivis d'un espace, d'où le Nothing de A. Sans compter les autres erreurs relevées.

Comme quoi, avec un fichier c'est plus clair.

Cordialement.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 27 Septembre 2011

• #11

Re : Probléme sur UserForm

aptagud à dit:

Ok... trés bien...

😕😕😕

si c'est pas abusé comment qu'on fait

Cliquez pour agrandir...

A qui t'adresses-tu ?

Et comment qu'on fait quoi ?

Il serait temps que tu expliques comment fonctionne ton fichier, non ?

Cordialement.

 

Vote positif 0 Vote négatif