[excel]macro copier/coller entre classeurs
Fermé
pastaga5115
Messages postés
1
Date d'inscription
mardi 6 février 2007
Statut
Membre
Dernière intervention
6 février 2007
-
6 févr. 2007 à 14:16
Sofsip - 28 mars 2009 à 19:08
Sofsip - 28 mars 2009 à 19:08
A voir également:
- [excel]macro copier/coller entre classeurs
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Copier coller pdf - Guide
- Historique copier-coller android - Guide
- Si et excel - Guide
1 réponse
salut, je sais pas si tu a eu ta réponse mais elle peut être pratique pour tous ceux qui cherche la même information.
La macro est programmée pour 4 colonnes, elle compte les lignes qui sont cochées d'un "X" a la 5ieme colonne et copies l'information de ces lignes sur une seconde feuille.
Private Sub CheckBox1_Click()
Dim I, I2, L As Integer
I = 1
I2 = 1
L = 1
While Cells(I, 1) <> ""
If Cells(I, 5).Value = "X" Then
For L = 1 To 4
Sheets("Sheet2").Cells(I2, L).Value = Sheets("Sheet1").Cells(I, L).Value
Next
Else
I2 = I2 - 1
End If
I = I + 1
I2 = I2 + 1
Wend
End Sub
Les données de la page sont disposées comme suit:
Mot1 Mot2 Mot3 Mot4 X
Cette série sera recopié sur la worksheet #2
J'espère que ce sera utile a quelques personnes
@+!
La macro est programmée pour 4 colonnes, elle compte les lignes qui sont cochées d'un "X" a la 5ieme colonne et copies l'information de ces lignes sur une seconde feuille.
Private Sub CheckBox1_Click()
Dim I, I2, L As Integer
I = 1
I2 = 1
L = 1
While Cells(I, 1) <> ""
If Cells(I, 5).Value = "X" Then
For L = 1 To 4
Sheets("Sheet2").Cells(I2, L).Value = Sheets("Sheet1").Cells(I, L).Value
Next
Else
I2 = I2 - 1
End If
I = I + 1
I2 = I2 + 1
Wend
End Sub
Les données de la page sont disposées comme suit:
Mot1 Mot2 Mot3 Mot4 X
Cette série sera recopié sur la worksheet #2
J'espère que ce sera utile a quelques personnes
@+!