Recherche et Copy par VBA

[Amigo]

Bonjour à tous
je viens vers vous aujourd'hui pour solliciter vos lumières.
J'essaye d'adapter à mon fichier une Macro de "Ti".
En cet instant, ayons une pensée émue à son âme.
Quand je fais une recherche, j'ai des lignes en double dans le résultat et la recherche s'étend à une chaine complète qui contient le mot cherché. (Voir fichier ci-joint).
Mon Souhait aussi de copier que les valeurs sans la liste déroulante avec et si possible d'avoir la même grandeur que la cellule d'origine.
Bien Cordialement

 

[Lone-wolf]

Bonjour Amigo, le Forum

J'ai modifié la macro, mais je ne sais pas si tu veux avoir les données à la suite ou pas.

La V2 copie les données à la suite.

 

[Amigo]

Bonjour Lone-wolf , Le Forum
D'abord merci pour ta réponse.
je suis vraiment désolé je me suis mal exprimé dans mon premier message.
En fait, la recherche devrait se faire sur toutes les colonnes car le mot pourrait se trouver dans toutes les colonnes et si "on trouve le mot" on copie toute la ligne.
Ta macro traite seulement la colonne "B".
Bien Cordialement

 

[Amigo]

Bonjour Lone-Wolf, le Forum
D'abord Merci.
je pense avoir résolu une partie de mon problème ce qui est la suppression des lignes en doublon en rajoutant une macro qui les supprime.
Bien sûr merci à ce forum et aux travaux de tous ses membres.
Grace à l'immense base de données que ce forum contient j'ai trouvé mes solutions.
Il me reste une chose c'est de copier et coller seulement les valeurs avec leur mise en forme.
Je continue mes recherches mais votre aide est très utile aussi.
Je joint le fichier au cas où un souhaite l'utiliser ou l'améliorer.
Bien Cordialement

 

[Lone-wolf]

Re

Il me reste une chose c'est de copier et coller seulement les valeurs avec leur mise en forme.

Dans le fichier que tu viens de mettre, le texte recherché se met déjà en gras et en rouge, je ne comprends pas.

Et il faut modifier ceci : Ligne = F4.Range("" & "B" & "65536").End(xlUp).Row + 1
Par Ligne = F4.Range("" & "B" & Rows.Count).End(xlUp).Row + 1
Tu n'as pas un tableau avec 65535 lignes non vides.
Range("B3:G50"
Idem pour Set Plage = Sheets("Base").Range("B3:G50")

With Sheets("Base")
Set plage = .Range("B3:G" & .Range("B" & Rows.Count).End(xlUp).Row)
End With
Comme ceci tu crée une plage dynamique, sinon si tu as plus de 50 lignes pleines, tu es obligé à chaque fois de modifié la plage Range("B3:G50")

 

[Amigo]

Bonjour Lone-Wolf, le Forum
Merci pour les modifications.
par contre pour le copier J'ai essayé "SpecialPaste" mais je n'ai pas réussi.
Bien Cordialement

 

[Amigo]

Bonjour Lone-Wolf, le Forum
Suite aux recherches sur ce Forum, j'ai "réussi" de copier les valeurs et les formats seulement.
Par contre, sur ma vrai base de données la macro est un peu longue.
Pourriez-vous m'aider si les macros sont cohérentes s'il vous plait et s'il faut faire des modifications ?
Merci par avance
Cordialement

 

[Lone-wolf]

Bonjour Amigo

Désolé, mais je ne peux rien faire.