Copie de lignes
Résolu
thierrymalagnou
Messages postés
49
Statut
Membre
-
thierrymalagnou Messages postés 49 Statut Membre -
thierrymalagnou Messages postés 49 Statut Membre -
Bonjour a vous
j'ai un probleme sur une de mes programmes.
j 'ai un classeur eXcel de 2 feuillles. sur la première il y a une liste de données. ces données proviennent d'un autre classeur.
par exemple
jean richard
marie curie
1
1
louis deF
commme on peut le constater il y a parfois des lignes avec 1.
j'ai donc créer un programme vba sur la deuxième feuille qui copie la première page et enlève les lignes contenant un 1.
sur la page 2 j'obtiens
jean richard
marie curie
louis deF
si maintenant je remplace sur la première feuille le 1 par un nom et prénom et je lance mon programme rien ne va changer sur la page 2
je sais pas si je me fais comprendre.
merci d avance
j'ai un probleme sur une de mes programmes.
j 'ai un classeur eXcel de 2 feuillles. sur la première il y a une liste de données. ces données proviennent d'un autre classeur.
par exemple
jean richard
marie curie
1
1
louis deF
commme on peut le constater il y a parfois des lignes avec 1.
j'ai donc créer un programme vba sur la deuxième feuille qui copie la première page et enlève les lignes contenant un 1.
sur la page 2 j'obtiens
jean richard
marie curie
louis deF
si maintenant je remplace sur la première feuille le 1 par un nom et prénom et je lance mon programme rien ne va changer sur la page 2
je sais pas si je me fais comprendre.
merci d avance
Configuration: Windows XP Internet Explorer 6.0
3 réponses
-
-
salut
en premier lieu j'exécute la marco copier qui me copie sur la feuille 2 les données de la feuille 1
Sub copier()
'
'
Range("A23:N44").Select
Selection.Copy
Sheets("Pipeline").Select
Range("A23:N44").Select
ActiveSheet.Paste
End Sub
Ensuite j'exécute le programme qui me supprime les ligne contenant "1" dans la colonne B
Private Sub CommandButton1_Click()
Dim i As Integer
Sheets("Pipeline").Select
For i = 23 To Range("B10000").End(xlUp).Row
If Cells(i, 1).Value = "1" Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next i
End Sub
voila merci
-
-
Refais ta macro "copier", en choisissant copiage spécial, et en cochant le bouton en bas copier avec liaison... ou ajoute link:=true à la fin de la ligne activesheet.paste
Sub copier()
'
'
Range("A23:N44").Select
Selection.Copy
Sheets("Pipeline").Select
Range("A23:N44").Select
ActiveSheet.Paste Link:=True
End Sub
Comme ça tu établis la liaison entre la cellule d'origine et sa copie,
:-) -
