Discussion :

[Ordonalor]

Bonjour,

Je suis dans la phase d'élaboration d'un fichier pour pouvoir gérer les clients que mon entreprise reçoit.
Pour cela j'ai crée pour les nouveaux clients un premier UserForm. Qui fonctionne même si j'aimerais dans un second temps qu'il accorde lorsque j'accepte une numéro à chaque client pour les rendre unique.
Mais cela fera plus l'objet d'une seconde discussion, car ce n'est pas le plus Urgent.

La où le bas blesse, c'est comment es que je peux faire pour avoir un UserFrom pour modifier mes données. Quel est le code que je pourrais mettre (je suis nul en code, c'est pas mon JOB )?
Pour un peu plus d'explication, il faut que m'on second (ou le même que pour l'ajout) userform puisse modifier la même base de donnée que celle de l'ajout.

Je vous remercie de votre aide toujours précieuse.
Désolé mon meilleur ami l'orthographe n'est pas à coté de moi donc s'il y a quelques fautes ne m'en tenez par rigueur

A bientôt

[Invité]

Bonjour,
une idée! http://www.developpez.net/forums/d14...e/#post7819625

[Ordonalor]

Bonjour il est trop cool votre classeur j'ai réussi a faire ce que je voulais.

Mais il y a un gros bug, la ou je bosse on a tous des mac et les fonctions recherches ne fonctionne pas.

Pouvez vous m'aider?

Encore merci pour tout

Benoit

[Invité]

bonjour,
je ne suis pas très documenter sure mac!

ma macro utilise la méthode suivant de la recherche, utilise l'enregistreur de macro pour faire une recherche, et e ensuite click sur suivant pour rechercher une deuxième occurrence! arrête l'enregistreur de macro et poste le code généré par ton mac je regarderais le résultat pour le modéliser!

j'utilise le on error resume next si ça ce trouve c'est là que le bas blesse! dis moi la ligne qui pose problème, peur être que des pro de Mac aurons une réponse!

Code Pour ceux qui aurons une réponse :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean) As Long '
On Error Resume Next
SerchXls = 0
   SerchXls = Myrange.Cells.Find(What:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row Then SerchXls = 0
End Function

[Ordonalor]

Voici le code proposer par mac:
Voici que pour la recherche sans rien mettre dans l'onglet recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.FindNext(After:=ActiveCell).Activate

Voici en y mettant quelque chose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    Cells.Find(What:="pey", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate