Recherche et Copy par VBA

Lone-wolf

XLDnaute Barbatruc

• 24 Juin 2018

• #2

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.

 

Pièces jointes

• Base - EDL-V2.xls

  69 KB · Affichages: 41
• Base - EDL.xls

  57.5 KB · Affichages: 24

Dernière édition: 24 Juin 2018

Vote positif 0 Vote négatif

Amigo

XLDnaute Occasionnel

• 24 Juin 2018

• #3

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

 

Vote positif 0 Vote négatif

Amigo

XLDnaute Occasionnel

• 24 Juin 2018

• #4

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

 

Pièces jointes

• Base - EDL - V1.xls

  70 KB · Affichages: 25

Dernière édition: 24 Juin 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Juin 2018

• #5

Re

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

Cliquez pour agrandir...

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")

 

Dernière édition: 24 Juin 2018

Vote positif 0 Vote négatif

Amigo

XLDnaute Occasionnel

• 24 Juin 2018

• #6

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

 

Vote positif 0 Vote négatif

Amigo

XLDnaute Occasionnel

• 26 Juin 2018

• #7

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

 

Pièces jointes

• Base - EDL - V3.xls

  78 KB · Affichages: 31

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Juin 2018

• #8

Bonjour Amigo

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

 

Vote positif 0 Vote négatif