Recherche

[clautu]

Bonjour à tous,
Je suis en peine. Je cherche une macro qui me permetterait de trouver le nom inscrit dans une cellule dans une plage et lorsqu'il l'a trouvé me donner la possibilité de corriger le contenu et de l'enregistrer en écrasant l'ancienne information.
pour le moment je peux la trouver ,la corriger mais si je l'enregistre elle la rajoute comme une nouvelle donnée

C'est une liste de noms de personnes avec leur coordonnées
J'utilise déjà la fonction recherchev. Lorsqu'il trouve l'information elle appparait je veux la modifier et l'enregistrer en écrassant l'ancienne.
Du genre :
Recherche la valeur de A1 dans la plage b1à b20.
lorsque que l'ordi l'a trouvé je la modifie et enregistre la en écrassant l'ancienne c'est ce dernier bout que je ne sais comment faire.

Merci à tous et bonne journée

 

[tototiti2008]

Re : Recherche

Bonjour clautu,

peux-tu joindre un bout de fichier pour clarifier ce que tu as déjà fait ?

 

[klin89]

Re : Recherche

Bonjour à tous,
Bonjour clautu, tototiti2008,

En attendant ton fichier, une petite démo de notre ami Thierry pour illustrer ta demande.

https://www.excel-downloads.com/thr...nees-ajout-modif-supress-en-un-seul-usf.9541/

Amicalement klin89

 

[jacky 17]

Re : Recherche

Bonjour forum
clautu, tototiti2008, klin89
Et avec un userform , j’ai trouver ce classeur j’essai de reproduire l’userform pour mon classeur
Avec des données en plus
Si cela peu servir
Merci à By JYLL pour sa prestation
A+
Cordialement
Jacky 17

 

[clautu]

Re : Recherche

Salut à tous
Mon fichier est trop lourd et j'ai beaucoup de noms et no de tél. Mais voici quelque bride.
J'utilise cette formule pour faire apparaitre dans mes cellules le nom adresse no de tél. =SI($M$3=0;0;RECHERCHEV($M$3;clients;2;0))
Je corrige les erreurs au besoin et en suite j'exécute cette petite macro

Sub Transfert()
If ActiveSheet.Range("v1").Value = "Faux" Then
Dim retour As Integer
retour = MsgBox("Ce client est déjà répertorié", vbNo + vbInformation + vbDefaultButton2, "Le Site des Pins")

ElseIf ActiveSheet.Range("v1").Value = "" Then
retour = MsgBox("Ce client est déjà répertorié" & Chr(13) & "et les corrections seront sauvegardées en quittant ", vbNo + vbInformation + vbDefaultButton2, "Le Site des Pins")
Else
Sheets("saisie").Select
Range("e56:k56").Copy
Sheets("feuil1").Select
Range("b2").Select
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Sheets("saisie").Select
Range("e11").Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Sheets("saisie").Select
Range("e1") = Sheets("saisie").Range("e1") + 1

Range("b13").Select
End If
Mais cela ne fait que ajouter à la liste il ne corrige rien.

J'aimerais concerver cela si possible.

Merci beaucoup de votre gentillesse.

 

[jacky 17]

Re : Recherche

Re
Désolé je ne connaît pas suffisamment vba pour cela
A+ jacky 17

 

[clautu]

Re : Recherche

Je vais essayer d'être plus clair.
Présentement je tape le no de tél. et la recherche se fait. Il m'apparait dans une colonne le nom, l'adresse, la ville,la province. Je peux faire des corrections et je veux sauver. Mais je voudrais sauver en écrassant l'ancienne information pour ne pas avoir 2 fois le même client (no de tél.).
Y a t-il une macro qui en sauvegardant verrait si le no de tél. existe déjà. Si non il le rajoute à la suite des autres, si il existe déjà, il supperime l'ancien et le remplace par le nouveau.

Merci
Je comprend que ce n'est pas toujours facile de comprendre . Dans ma tête c'est clair.
Je vous remercie infiniment pour le temps que vous m'accordez. Si un jour je deviens compétent comme vous j'essairai d'en aider d'autres.

Merci encore