Récupérer & Modifier données avec 1 USF

[Provence Vintage]

Bonjour,

J'ai des enregistrements dans une base de données que je souhaite récupérer en fonction d'un critère de recherche dans un USF

La base de données est organisée de la façon suivante:
A partir de la ligne 4
en première colonne des numéros (tel ou autres)
sur les autres colonnes différentes données numériques ou non

la feuille se nomme : "Base de Données vendeurs";

En fonction de la saisie du numéro dans mon TextBox5,
je cherche le code qui me permette, si le numéro saisi existe dans la base, de récupérer des infos de la ligne concernée (dans différentes TextBox);

Le code ne fonctionne que partiellement!!

Je cherche également par la suite, la possibilité de modifier ces infos dans les TextBox puis les enregistrer de nouveau!

Voici un exemple ci-joint
Merci à toutes et tous de m'aider à corriger et progresser!

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[fhoest]

Re : Récupérer & Modifier données avec 1 USF

bonjour
as tu aussi une erreur dans le module 1
a cette ligne de code
si oui il faut savoir que lorsque l'on est dans un module il faut absolument mettre l'adresse complete de l'objet
exemple:
Accueil.Label4.Caption
si acceuil est un userform existant.
si c'est autre chose il faut dire dans quel userform il se trouve
exemple :
userform1.Accueil.Label4.Caption
a suivre

 

[fhoest]

Re : Récupérer & Modifier données avec 1 USF

pour savoir si ton num existe dans la base de donnée enregistre une macr avec un "
Ctrl + F" + text a chercher + suivant et ferme ta macro tu aura le code de recherche il te suffira juste de selectionner la bonne colonne dans le vba puis d'inserer un repere de ligne pour les autres donnée a copier de la meme ligne
A+

 

[Provence Vintage]

Re : Récupérer & Modifier données avec 1 USF

fhoest, Le Fil,

Désolé fhoest, mais je n'ai pas du tout capté la manip que tu me suggère!?!

Voici le code que j'utilise:
Sub lancer()

Sheets("Base de Données vendeurs").Activate

'pour eviter de demarrer avec la case A1 vide
If Sheets("Base de Données vendeurs").Range("a1") = "" Then Exit Sub

'permet de débuger les valeurs totalement identiques
Sheets("Base de Données vendeurs").Range("a1").Value = "*" & Range("a1").Value & "*"


'rechercher
Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate


If ActiveCell = Range("A1") Then MsgBox " pas d'autre résultat ", vbInformation, " Résultat de votre requète"

Select Case ActiveCell
Case Is <> Range("A1")

End Select

End Sub

Si quelqu'un veux bien le tester pour voir ce qui déconne!
Vous avez aussi mon fichier en partage
merci à ttes et tous

 

[Provence Vintage]

Re : Récupérer & Modifier données avec 1 USF

Le Fil,

Comprend plus rien;
avec le code suivant celà fonctionne (en fait je reboucle avec la même syntaxe!!!?!):

Sub lancer()


Sheets("Base de Données vendeurs").Activate

'pour eviter de demarrer avec la case A1 vide
If Sheets("Base de Données vendeurs").Range("a1") = "" Then Exit Sub

'permet de débuger les valeurs totalement identiques
Sheets("Base de Données vendeurs").Range("a1").Value = "*" & Range("a1").Value & "*"


'rechercher
Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate




Select Case ActiveCell
Case Is <> Range("A1")


End Select

Sheets("Base de Données vendeurs").Activate

'pour eviter de demarrer avec la case A1 vide
If Sheets("Base de Données vendeurs").Range("a1") = "" Then Exit Sub

'permet de débuger les valeurs totalement identiques
Sheets("Base de Données vendeurs").Range("a1").Value = "*" & Range("a1").Value & "*"


'rechercher
Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate


If ActiveCell = Range("A1") Then MsgBox " pas d'autre résultat ", vbInformation, " Résultat de votre requète"

Select Case ActiveCell
Case Is <> Range("A1")


End Select

End Sub

Quelqu'un peux t'il m'aider à corriger

 

[Bebere]

Re : Récupérer & Modifier données avec 1 USF

bonjour
une proposition
mis une combobox pour choisir,fait le bouton modifier
l'userform est changé
http://cjoint.com/?lsvtt5tgWV
à bientôt

 

[Provence Vintage]

Re : Récupérer & Modifier données avec 1 USF

Bonsoir le Fil, Bebere,

Le code ne fonctionne pas!?!
Les textBox sont vides lorsque tu sélectionne via la ListBox!
Ne peux tu pas sans t'ennuyer, regarder ce qui est déconnant dans mon code de départ,
par rapport à mon dernier Post, je ne comprends vraiment pas comment cela peux fonctionner, il doit bien y avoir une écriture plus facile!?
Dans tous les cas, merci beaucoup à toi, pour ton intervention.
Je préfère par contre éviter de passer par la ListBox de départ
A+ ou A tte
Merci

 

[Bebere]

Re : Récupérer & Modifier données avec 1 USF

bonjour

je viens d'essayer dans ConsulterPijes
sélection dans la combobox et c'est parti
pour faire un bon code on met les textbox dans le même ordre que les colonnes
textbox1=cells(2,"A"),textbox2=cells(2,"B"),etc
alors tu peux travailler avec des boucles

tu peux modifier(bouton)

à bientôt

 

[Provence Vintage]

Re : Récupérer & Modifier données avec 1 USF

Bebere, Le Fil,

Je sais c le bordel,
c pas que je louche...mais, les collègues me demandent des modifs...et entre deux verres de rosé...hips,
Bon, mais avec l'existant, comment je peux m'en sortir!?!
Merci

 

[Provence Vintage]

Re : Récupérer & Modifier données avec 1 USF

fhoest, Bebère, Le Fil

Du côté module, tout est ok! ça ne vient pas de là!?

 

[Bebere]

Re : Récupérer & Modifier données avec 1 USF

bonjour
voilà avec une textbox
http://cjoint.com/?ltlReWzsW2
avec l'existant,un moyen de s'en sortir
un code qui devrait t'intéresser
en pièce jointe une démo de Luki
à bientôt

 

[Provence Vintage]

Re : Récupérer & Modifier données avec 1 USF

Bebere, le Fil

Ton code avance déjà beaucoup mieux, mais où dois-je lui indiquer pour la TextBox63 (de recherche) de me prendre les valeurs numériques, ça ne fonctionne pas avec les numéros de tel, qu'avec les textes.
Merci encore
a+

 

[Bebere]

Re : Récupérer & Modifier données avec 1 USF

pinot vintage
de mon côté il prend tout(excel2003)
tu ajoutes ce code dans la feulle base(clic droit onglet et choisir visualiser code)
1 doubleclick dans la colonne A, l'userform apparait textbox63 remplie
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Rows.Count > 1 Then Exit Sub
If Target.Row < 4 Then Exit Sub
If Target.Column > 1 Then Exit Sub
With ConsulterPijes
.TextBox63.Text = Target.Text
.Show
End With
Target.Offset(, 1).Select

End Sub

 

[Provence Vintage]

Re : Récupérer & Modifier données avec 1 USF

Le Fil,

Impossible de supprimer des TextBox dont je n'ai pas besoin à la lecture????!!!
Merci à vous tous pour vos solutions
A+

 

[Bebere]

Re : Récupérer & Modifier données avec 1 USF

bonsoir Provence,Carcharodon

boirait bien un coup aussi moi(avec vous évidemment)
http://cjoint.com/?ltvPuGrLxT
avec la version d'origine
fait recherche et modifier

à bientôt