Enregistrement USF

Gorfael

XLDnaute Barbatruc

• 9 Décembre 2011

• #2

Re : Enregistrement USF

Salut raclette et le forum
Pas assez d'éléments pour t'aider : le fonctionnement que tu désires est dans ta tête
Ton USF crée une nouvelle ligne => OK
Question : faut-il vérifier la possibilité de doublons et sur quelle(s) colonnes(s) ? S'il y a doublon, on écrase l'existant par le nouveau ?

Le plus simple reste d'utiliser une variable globale :
- si tu sélectionnes une ligne elle la mémorise sinon, elle cherche la nouvelle ligne habituelle.
En finissant l'enregistrement, la variable est remise à 0.

A+

 

Vote positif 0 Vote négatif

R

raclette

Guest

• 9 Décembre 2011

• #3

Re : Enregistrement USF

Je vais tenter cela mais avant comment peut on mémoriser une ligne (ex : ma recherche me trouve une correspondance de Nom (textbox1) et me rempli mes champs correctement comment savoir dans quelle ligne se trouve ma recherche ?)

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 9 Décembre 2011

• #4

Re : Enregistrement USF

Bonsoir;
En fait quand tu valides tu es en mode ajout donc ligne en plus ,
donc voici ton fichier avec un bouton edition et le code qui va avec
A++

 

Pièces jointes

• Suivi entretiens.xls

  81.5 KB · Affichages: 40
• Suivi entretiens.xls

  81.5 KB · Affichages: 51
• Suivi entretiens.xls

  81.5 KB · Affichages: 57

Vote positif 0 Vote négatif

R

raclette

Guest

• 9 Décembre 2011

• #5

Re : Enregistrement USF

Ca semble fonctionner, merci beaucoup, peux tu par contre me modifier mon code pour que la recherche porte sur le nom et prénom car en cas d’homonyme il me met uniquement le dernier dans la liste !

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 9 Décembre 2011

• #6

Re : Enregistrement USF

Bonsoir je peut ;mais pourrais je juste de donner une suggestion au lieu du bouton de recherche ;pourquoi ne charge tu pas tout tes Noms et Prénoms dans une combobox et ainsi quand tu selectionnes tu as directement les infos lié .....
A++

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 9 Décembre 2011

• #7

Re : Enregistrement USF

RE
Voici le code à remplacer de ton bouton de commande recherche

Recherche = UCase(TextBox1.Value)
recherche1 = UCase(TextBox2.Value)
Ligne = Feuil1.Range("A" & "65536").End(xlUp).Row
Set Plage = Feuil1.Range("A13", Feuil1.Range("A65536").End(xlUp))
For Each C In Plage
If Not C Is Nothing Then

If C = Recherche And C.Offset(0, 1) = recherche1 Then

For Compteur = 1 To 11
UserForm5.Controls("Textbox" & Compteur).Text = C.Offset(0, Compteur - 1).Value
Next Compteur
End If
End If
Next C

Cliquez pour agrandir...

A++

 

Vote positif 0 Vote négatif

R

raclette

Guest

• 9 Décembre 2011

• #8

Re : Enregistrement USF

T'es un pro, un grand merci.

Par contre j'ai pas compris ce que tu voulais dire

au lieu du bouton de recherche ;pourquoi ne charge tu pas tout tes Noms et Prénoms dans une combobox et ainsi quand tu selectionnes tu as directement les infos lié .....

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 9 Décembre 2011

• #9

Re : Enregistrement USF

Bonsoir voici un exemple
A++

 

Dernière édition: 9 Décembre 2011

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 9 Décembre 2011

• #10

Re : Enregistrement USF

Re je remet le bon fichier
A++

 

Pièces jointes

• Suivi entretiensV1.xls

  65.5 KB · Affichages: 48

Vote positif 0 Vote négatif