Copie de lignes
Résolu/Fermé
thierrymalagnou
Messages postés
49
Date d'inscription
mardi 9 octobre 2007
Statut
Membre
Dernière intervention
25 février 2008
-
31 janv. 2008 à 15:33
thierrymalagnou Messages postés 49 Date d'inscription mardi 9 octobre 2007 Statut Membre Dernière intervention 25 février 2008 - 31 janv. 2008 à 16:03
thierrymalagnou Messages postés 49 Date d'inscription mardi 9 octobre 2007 Statut Membre Dernière intervention 25 février 2008 - 31 janv. 2008 à 16:03
A voir également:
- Copie de lignes
- Copie cachée - Guide
- Copie écran samsung - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie disque dur - Guide
- Site de vente en ligne particulier - Guide
3 réponses
Fxbrg
Messages postés
710
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
199
31 janv. 2008 à 15:40
31 janv. 2008 à 15:40
Faudrait mettre ton code ici... :-)
Fxbrg
Messages postés
710
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
199
31 janv. 2008 à 15:55
31 janv. 2008 à 15:55
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,
:-)
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,
:-)
thierrymalagnou
Messages postés
49
Date d'inscription
mardi 9 octobre 2007
Statut
Membre
Dernière intervention
25 février 2008
31 janv. 2008 à 16:03
31 janv. 2008 à 16:03
super ca marche merci infiniment
bonne journée
bonne journée
thierrymalagnou
Messages postés
49
Date d'inscription
mardi 9 octobre 2007
Statut
Membre
Dernière intervention
25 février 2008
31 janv. 2008 à 16:03
31 janv. 2008 à 16:03
ok
31 janv. 2008 à 15:49
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