Une macro pour copier seulement certaines lignes d'un fichier à un autre

**asgard78** · 08/09/2010, 17h40

Bonjour le forum,

Voilà j'aurais voulu avoir votre avis sur un truc pour mon boulot.
Voilà j'ai un classeur 1 avec 1feuille (anomalie)en Excel)
ce que je voudrais faire, c'est copier certaines lignes des feuilles de ce classeur 1 notifier par une * en début de ligne et de les coller dans un autre classeur.
Avez vous des propositions ou des exemples?
Et pour couronner le tout je suis novice en VBA ,

Je vous remercie d'avance de vos réponses,

**LouiMz** · 02/10/2010, 18h06

Le nombre de feuille à la création d'un classeur peut être modifié dans les options d'excel...

Copiez vos données dans une nouvelle feuille et appliquez cette macro à la feuille. La macro doit être placée dans le même classeur que les données.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub essai()
Dim i as long 'initialisation de la variable
i = 2 'initialise à la ligne 2
 
Sheets("ma_feuille").Select 'A adapter selon les besoins
 
While(Range("A" & i).Value <> "") 'tant que la cellule (A, i) n'est pas vide
     If Left(Range("A" & i).Value, 1) <> "*" Then 'Si le 1er caractere en partant de gauche est différent de * alors
           Rows(i).delete 'On supprime la ligne
     Else 'Sinon on incrémente la ligne
            i =  i + 1
     End If 'fin de la condition
Wend 'fin de la boucle
 
End Sub

De plus:
"notifier par une * en début de ligne"
Précisez il s'agit bien d'une étoile dans les cellules de la colonne A.

**asgard78** · 03/10/2010, 17h24

bonjour,LouiMz
et merci pour ta réponse et ton code

je test dés que j'ai 5 minute, et je te dis si c'est bon pour moi

j'ai pas réussi avec le code je doit m'y prendre mal

il faudrait que je vous envoie mes fichier excel pour mieux comprend ma demande mais je sais pas comment faire
dommage

**ANOVA** · 04/10/2010, 20h34

Pour nous joindre ton fichier il faut cliquer sur le petit trombone. Un fenêtre s'ouvre, tu vas dans parcourir et tu nous joins ton fichier. Sauf que le format *.xls ne passe pas (cela doit être ça ton problème). Alors envoie nous ton fichier Excel avec une extension *.doc. Pour ça, tu vas dans le répertoire où est ton fichier et tu modifie l'extension (tu remplaces le .xls par un .doc) et tu nous l'envoie. Il nous suffira de faire la manipulation exactement inverse pour récupérer ton fichier au format xls. Avec ça on pourra t'aider.