Probléme sur UserForm

[aptagud]

Bonsoir alors voila je galere et je trouve pas la réponse

J'aimerai réaliser un Userform qui aprés selection d'un nom renseignerait automatiquement les autres champ de mon USERForm

Mes données sont stocké dans ma feuille "Collab"

Le nom des collab sont stocké dans la colonne A ou 1

Et les autres info sont stocké dans les colonnes 2,3,4...

Voila le code

Private Sub Recueil_Click()

'recherche le nom d'un collab
Sheets("Collab").Activate
    With Sheets("Collab").Range("A2:A65500")
        Set A = .Find(Collab.txtCollab, LookIn:=xlValues, LookAt:=xlWhole)
        If Not A Is Nothing Then
            firstAddress = A.Address
            Do
             
Range(firstAddress) = Me.txtCollab.Value
Range(firstAddress).Offset(0, 2).Value = Me.txtMat.Value
Range(firstAddress).Offset(0, 4).Value = Me.txtCtt.Value
Range(firstAddress).Offset(0, 5).Value = Me.txtSex.Value
Range(firstAddress).Offset(0, 6).Value = Me.txtSecu.Value
Range(firstAddress).Offset(0, 8).Value = Me.txtDir.Value
Range(firstAddress).Offset(0, 9).Value = Me.txtServ.Value
Range(firstAddress).Offset(0, 7).Value = Me.txtFonc.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

Ce code marchait trés bien dans un précédent Uf mais la ca ne marche qq un peu m'aider

Merci

 

[Papou-net]

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.

 

[aptagud]

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

 

[mutzik]

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 ...

 

[Papou-net]

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 ?

 

[aptagud]

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

 

[mutzik]

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

 

[Papou-net]

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 :

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 :

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

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

Espérant avoir répondu.

Cordialement.

 

[aptagud]

Re : Probléme sur UserForm

Ok... trés bien...

😕😕😕

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

 

[Papou-net]

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.

 

[Papou-net]

Re : Probléme sur UserForm

Ok... trés bien...

😕😕😕

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

A qui t'adresses-tu ?

Et comment qu'on fait quoi ?

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

Cordialement.