Recherche doublons sur une feuille excel - Page 3
Résolu
Précédent
- 1
- 2
- 3
Bonjour MiKE,
Felicitation et je vous remercie bien pour vos efforts.
A propos la question 3 : je voudrai utiliser une macro de recherche soit par Nom ou Num Pol ou Num Dos et m'affiche le resultat de la recherche.
Question 4 :C'est exactement ce que vous avez ecris "chaque année à partir d'un fichier vierge appliquer la macro que nous avons créé pour aller chercher les données sur le classeur de l'année précédente".
Cordialement.
Felicitation et je vous remercie bien pour vos efforts.
A propos la question 3 : je voudrai utiliser une macro de recherche soit par Nom ou Num Pol ou Num Dos et m'affiche le resultat de la recherche.
Question 4 :C'est exactement ce que vous avez ecris "chaque année à partir d'un fichier vierge appliquer la macro que nous avons créé pour aller chercher les données sur le classeur de l'année précédente".
Cordialement.
Bonjour MIKE,
Excusez moi de vous deranger tjrs.
Je vous prie de bien me donner la suite de ce sujet ou bien je marque comme resolu.
J'attends votre reponse, je compte sur vous.
Merci d'avance.
Cordialement.
Excusez moi de vous deranger tjrs.
Je vous prie de bien me donner la suite de ce sujet ou bien je marque comme resolu.
J'attends votre reponse, je compte sur vous.
Merci d'avance.
Cordialement.
Bonjour MIKE,
J'ai un probleme dans ma base de donnee concernant votre code, si possible je vous transmis mon fichier afin de me resoudre ce souci et merci d'avance.
https://www.cjoint.com/?ednskZc5qU
Je suis vraiment desole si je vous derange de trop question.
Cordialement
J'ai un probleme dans ma base de donnee concernant votre code, si possible je vous transmis mon fichier afin de me resoudre ce souci et merci d'avance.
https://www.cjoint.com/?ednskZc5qU
Je suis vraiment desole si je vous derange de trop question.
Cordialement
Re,
Excuse mon retard, en fin de semaine je suis pas mal pris, j'ai récupéré ton fichier ou il y a des lignes en jaune (la 629 et 725 et 726), peux tu me dire ce qui se passe
Excuse mon retard, en fin de semaine je suis pas mal pris, j'ai récupéré ton fichier ou il y a des lignes en jaune (la 629 et 725 et 726), peux tu me dire ce qui se passe
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re MIKE,
Merci bien pour votre comprehension,
il y a un probleme lorsque je saisie un NumDos qui a été dejà saisie il m'affiche les donnees correctement et parfois non, il decale les donnees d'une ligne avant.
Donc j'ai decide de vous envoyer le fichier comme çà vous pouvez faire des essais de saise pour voir bien où se trouve le probleme car moi je suis novice en programmation.
- Pour la 629 c'est moi qui a fait çà c'est pas un probleme.
- Le souci entre la ligne 725 et 726 : j'ai saisie la ligne 725 normalement et lorsque je passes à la ligne 726 j'ai saisie un NumDos qui a déjà saisie avant il m'affiche les donnees dans la ligne 725 avec desordre et decalage des cellules.
Merci d'avance pour votre aide et je compte sur vous.
Cordialement.
Merci bien pour votre comprehension,
il y a un probleme lorsque je saisie un NumDos qui a été dejà saisie il m'affiche les donnees correctement et parfois non, il decale les donnees d'une ligne avant.
Donc j'ai decide de vous envoyer le fichier comme çà vous pouvez faire des essais de saise pour voir bien où se trouve le probleme car moi je suis novice en programmation.
- Pour la 629 c'est moi qui a fait çà c'est pas un probleme.
- Le souci entre la ligne 725 et 726 : j'ai saisie la ligne 725 normalement et lorsque je passes à la ligne 726 j'ai saisie un NumDos qui a déjà saisie avant il m'affiche les donnees dans la ligne 725 avec desordre et decalage des cellules.
Merci d'avance pour votre aide et je compte sur vous.
Cordialement.
Re,
Remplace le code par celui ci et tiens moi au courant
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo erreur
erreur:
If Not Intersect(Range("A2:A3000"), Target) Is Nothing And Target.Count = 1 Then
For Each c In Range("A2:A3000")
If UCase(c.Value) = UCase(Target.Value) And c.Row <> Target.Row And c.Value <> Empty Then
Range(Range(c.Address).Offset(0, 1), Range(c.Address).Offset(0, 14)).Copy
Target.Offset(0, 1).Select
ActiveSheet.Paste
Target.Offset(1, 0).Select
Exit Sub
End If
Next c
End If
If Not Intersect(Range("J2:J3000"), Target) Is Nothing And Target.Count = 1 Then
For Each c In Range("J2:J3000")
If UCase(c.Value) = UCase(Target.Value) And c.Row <> Target.Row And c.Value <> Empty Then
Range(Range(c.Address).Offset(0, 1), Range(c.Address).Offset(0, 2)).Copy
Target.Offset(0, 1).Select
ActiveSheet.Paste
Target.Offset(1, 0).Select
Exit Sub
End If
Next c
End If
Application.CutCopyMode = False
sortie:
Exit Sub
End Sub
Remplace le code par celui ci et tiens moi au courant
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo erreur
erreur:
If Not Intersect(Range("A2:A3000"), Target) Is Nothing And Target.Count = 1 Then
For Each c In Range("A2:A3000")
If UCase(c.Value) = UCase(Target.Value) And c.Row <> Target.Row And c.Value <> Empty Then
Range(Range(c.Address).Offset(0, 1), Range(c.Address).Offset(0, 14)).Copy
Target.Offset(0, 1).Select
ActiveSheet.Paste
Target.Offset(1, 0).Select
Exit Sub
End If
Next c
End If
If Not Intersect(Range("J2:J3000"), Target) Is Nothing And Target.Count = 1 Then
For Each c In Range("J2:J3000")
If UCase(c.Value) = UCase(Target.Value) And c.Row <> Target.Row And c.Value <> Empty Then
Range(Range(c.Address).Offset(0, 1), Range(c.Address).Offset(0, 2)).Copy
Target.Offset(0, 1).Select
ActiveSheet.Paste
Target.Offset(1, 0).Select
Exit Sub
End If
Next c
End If
Application.CutCopyMode = False
sortie:
Exit Sub
End Sub
Bonjour MIKE,
Merci bien pour votre soutien, je vais tester le nouveau code et je vous tiens au courant.
Merci d'avance.
Cordialement.
Merci bien pour votre soutien, je vais tester le nouveau code et je vous tiens au courant.
Merci d'avance.
Cordialement.
Bonjour MIKE,
Je vous remercie infinement pour vos efforts et soutiens fournis à moi.
Je suis tres heureux de voir ma base operationnelle 100%. Le seul souci, si possible , d'une part, je voudrai pour l'annee prochaine avoir un nouveau classeur nomme Production 2011 et qui est lie à l'ancien fichier "Production 2010" comme çà je ne serai pas oblige de saisir les donnees qui existent dejà dans le fichier "Production 2010" lorsque je saisie un NumDos repete.
D'autre part, pour la feuille search je voudrai la consacree pour la consultation des donnees soit par Num Dos soit par Nom et me donne les resultats.
Par exemple : je veux chercher un client par Num Dos ou bien Nom ou NumPol pour m'afficher tous les donnees qui existent.
Merci d'avance
Cordialement.
Je vous remercie infinement pour vos efforts et soutiens fournis à moi.
Je suis tres heureux de voir ma base operationnelle 100%. Le seul souci, si possible , d'une part, je voudrai pour l'annee prochaine avoir un nouveau classeur nomme Production 2011 et qui est lie à l'ancien fichier "Production 2010" comme çà je ne serai pas oblige de saisir les donnees qui existent dejà dans le fichier "Production 2010" lorsque je saisie un NumDos repete.
D'autre part, pour la feuille search je voudrai la consacree pour la consultation des donnees soit par Num Dos soit par Nom et me donne les resultats.
Par exemple : je veux chercher un client par Num Dos ou bien Nom ou NumPol pour m'afficher tous les donnees qui existent.
Merci d'avance
Cordialement.
Re,
Je vais prendre quelques jours de vacances, mais je ne t'oublie pas.
Pour récupérer les données sur le fichier de l'année précédente, est il possible que les deux fichiers soient ouverts (le nouveau et l'ancien)
Je vais prendre quelques jours de vacances, mais je ne t'oublie pas.
Pour récupérer les données sur le fichier de l'année précédente, est il possible que les deux fichiers soient ouverts (le nouveau et l'ancien)
Bonjour MIKE,
Esperant que vous passerez des belles journees de vacances.
Merci bien pour votre attention et soutien.
J'ai constate une remarque à propos de mon fichier, il y a des doublants des NumDos par rapport à la colonne Cat je m'explique : j'ai un NumDos qui a deux donnees de la colonne "Cat" càd j'ai deux clients qui ont les memes NumDos mais n'ont pas les memes Cat.
Est ce que c'est possible on tient compte de la colonne Cat en liaison avec NumDos ?
Merci d'avance et bonne vacance.
Cordialement.
Esperant que vous passerez des belles journees de vacances.
Merci bien pour votre attention et soutien.
J'ai constate une remarque à propos de mon fichier, il y a des doublants des NumDos par rapport à la colonne Cat je m'explique : j'ai un NumDos qui a deux donnees de la colonne "Cat" càd j'ai deux clients qui ont les memes NumDos mais n'ont pas les memes Cat.
Est ce que c'est possible on tient compte de la colonne Cat en liaison avec NumDos ?
Merci d'avance et bonne vacance.
Cordialement.
Précédent
- 1
- 2
- 3
