Sujet Précédent Sujet Suivant

Problème pour copier des lignes Excel

Résolu/Fermé
Utilisateur anonyme - Modifié par Marmar66 le 25/05/2010 à 09:18
tibouuh Messages postés 2686 Date d'inscription lundi 30 juin 2008 Statut Contributeur Dernière intervention 9 février 2017 - 25 mai 2010 à 19:53
Bonjour,

J'ai 2 feuilles excel 1 et 2 :
Je veux utiliser une fonction qui permet de chercher le mot "DEPASSEMENT" dans une colonne de la feuille2 et s'il existe je veux copier toutes les lignes qui contiennent ce mot dans la feuille1.
Prière si quelqu'un peut m'aider à résoudre ce problème.



A voir également:

3 réponses

Réponse 1 / 3
tibouuh Messages postés 2686 Date d'inscription lundi 30 juin 2008 Statut Contributeur Dernière intervention 9 février 2017 647
25 mai 2010 à 14:27
Salut,

j'ai 2 solutions à te proposer.
j'espère qu'au moins une des 2 te conviendra...?!

en supposant que la colonne dans laquelle le mot "DEPASSEMENT" se trouve est la colonne A de Feuil2.

la méthode sans macro :
dans la cellule A1 de Feuil1, tape la formule suivante :
=SI(Feuil2!$A1="DEPASSEMENT";SI(Feuil2!A1<>"";Feuil2!A1;"");"")
tire la cellule sur le nombre de colonnes nécessaires
puis tire la ligne ainsi obtenue sur le nombre de lignes nécessaires.

la méthode avec macro :
Sub copie()

Application.ScreenUpdating = False

Dim cellule As Range
Dim ligne As String

For Each cellule In Worksheets("Feuil2").Range("A1:A65536")
Worksheets("Feuil2").Activate
If cellule.Value = "DEPASSEMENT" Then
If IsEmpty(Worksheets("Feuil1").Range("A65536").End(xlUp)) Then
Rows(cellule.Row).Copy
Worksheets("Feuil1").Activate
Worksheets("Feuil1").Range("A65536").End(xlUp).Select
ActiveSheet.Paste
Else
Rows(cellule.Row).Copy
Worksheets("Feuil1").Activate
ligne = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
Range("A" & ligne + 1).Select
ActiveSheet.Paste
End If
End If
Next cellule
Application.CutCopyMode = False
Worksheets("Feuil1").Activate

End Sub

avec la macro tu n'as que des lignes remplies en Feuil1.
tu peux l'avoir sans macro simplement en faisant un tri sans cellule vide.
0
Utilisateur anonyme
25 mai 2010 à 16:45
Merci pour la réponse.
Je suis entrain d'essayer la première mèthode car la deuxième je n'ai pas bien saisie, car c'est la 1ère fois que j'utilise le macro .
0
Utilisateur anonyme
25 mai 2010 à 17:18
Merci ca marche la 1ère mèthode ,Le seul problème c'est qu'il existe parfois des lignes non vides séparées par plusieurs lignes vides.
Est ce qu'il y'a possibilité d'afficher seulement des lignes non vides?
0
Réponse 2 / 3
tibouuh Messages postés 2686 Date d'inscription lundi 30 juin 2008 Statut Contributeur Dernière intervention 9 février 2017 647
25 mai 2010 à 17:42
re,

comme je te l'avais précisé (petite erreur de vocabulaire de ma part dans le message précédent tout de même, désolé), tu peux les masquer en utilisant un filtre.
il suffit alors de décocher la case "Vides".
0
Utilisateur anonyme
25 mai 2010 à 18:50
Merci beaucoup tibouuh pour ton aide,je doit comme tu as dit utiliser un filtre. pour garder seulement les fichiers voulus
0
Réponse 3 / 3
tibouuh Messages postés 2686 Date d'inscription lundi 30 juin 2008 Statut Contributeur Dernière intervention 9 février 2017 647
25 mai 2010 à 19:53
de rien ^^
si ton problème est réglé, pense à changer le statut de la discussion en "résolu".
ciao
0

Discussions similaires

Dessiner avec son clavier et avec des lettres
JSS -
Polodu33 -

78 réponses
Afficher toutes les lignes masquées excel
livlarsen -
esicom -

26 réponses
recopier une formule sans décalage
aziz_alg80 -
aziz_alg80 -

2 réponses