Bonjour,
J'utilise excel 2007 et VBA pour la première fois
J'ai lu plein de tutos mais j’avoue que je suis un peu (carrément) perdue.
Je voudrai déplacer certaines lignes de ma feuille 1, qui en colonne E ont "oui", sur ma feuille 2. En colonne E, j'ai soit "oui, soit "non" avec du texte, soit la cellule est vide.
Voici l'ébauche de macro que j'ai tapée:
Sub Copieaccorddeconfidentialité()
' // Copie des lignes desirées dans les feuilles de calcul dédiées
Dim Plage As Range
Dim Ligne As Range
Dim Origine As Worksheet
Dim Destination As Worksheet
Dim LigneDestination As Integer
Set Origine = Worksheets("accord de confidentialité")
Set Destination = Worksheets("faisabilité")
Set Plage = Range(Origine.Cells(2, 1), Origine.Cells(2, 1).SpecialCells(xlLastCell))
LigneDestination = 2
For Each Ligne In Plage.Rows
If Ligne.Cells(1, 5).Value = "oui" Then
Ligne.Copy Destination.Cells(LigneDestination, 2)
LigneDestination = LigneDestination
End If
Next
End Sub
est ce que quelqu'un voit où je me suis trompée?
sur ma feuille 1:commence en A2 et se termine en F5
Anne-So
J'utilise excel 2007 et VBA pour la première fois
J'ai lu plein de tutos mais j’avoue que je suis un peu (carrément) perdue.
Je voudrai déplacer certaines lignes de ma feuille 1, qui en colonne E ont "oui", sur ma feuille 2. En colonne E, j'ai soit "oui, soit "non" avec du texte, soit la cellule est vide.
Voici l'ébauche de macro que j'ai tapée:
Sub Copieaccorddeconfidentialité()
' // Copie des lignes desirées dans les feuilles de calcul dédiées
Dim Plage As Range
Dim Ligne As Range
Dim Origine As Worksheet
Dim Destination As Worksheet
Dim LigneDestination As Integer
Set Origine = Worksheets("accord de confidentialité")
Set Destination = Worksheets("faisabilité")
Set Plage = Range(Origine.Cells(2, 1), Origine.Cells(2, 1).SpecialCells(xlLastCell))
LigneDestination = 2
For Each Ligne In Plage.Rows
If Ligne.Cells(1, 5).Value = "oui" Then
Ligne.Copy Destination.Cells(LigneDestination, 2)
LigneDestination = LigneDestination
End If
Next
End Sub
est ce que quelqu'un voit où je me suis trompée?
sur ma feuille 1:commence en A2 et se termine en F5
Anne-So