Copier coller en fonction de la colonne A
Résolu
marc
-
marc -
marc -
Bonjour,
Sur la colonne A je met un 1 dans la cellule des options que je choisi
J'aimerais que si je met le petit 1 que le texte de l'option en question qui se trouve dans la colonne b soit copier sur une autre feuille afin de créer un résumé.
j'ai écrit:
Sub Bouton1_Cliquer()
Dim cell As Range, plage As Range
Set plage = Range("Choix")
For Each cell In plage
If cell.Value = 1 Then
cell.Select
ActiveCell.Offset(0, 1).Copy
Sheets("Résumé").Select
Range("Arrivée").End(xlUp).Offset(1).Select
ActiveSheet.Paste
End If
Next
End Sub
Choix etant la colonne A
Arrivée vous l'aurez compris le résultat esperer.
Problème cela ne fonctionne que avec une option :(
d'avance merci.
Sur la colonne A je met un 1 dans la cellule des options que je choisi
J'aimerais que si je met le petit 1 que le texte de l'option en question qui se trouve dans la colonne b soit copier sur une autre feuille afin de créer un résumé.
j'ai écrit:
Sub Bouton1_Cliquer()
Dim cell As Range, plage As Range
Set plage = Range("Choix")
For Each cell In plage
If cell.Value = 1 Then
cell.Select
ActiveCell.Offset(0, 1).Copy
Sheets("Résumé").Select
Range("Arrivée").End(xlUp).Offset(1).Select
ActiveSheet.Paste
End If
Next
End Sub
Choix etant la colonne A
Arrivée vous l'aurez compris le résultat esperer.
Problème cela ne fonctionne que avec une option :(
d'avance merci.
A voir également:
- Copier coller en fonction de la colonne A
- Fonction si et - Guide
- Déplacer colonne excel - Guide
- Historique copier coller - Guide
- Style d'écriture a copier coller - Guide
- Copier coller pdf - Guide
2 réponses
Bonjour,
une facon de faire:
'premiere cellule vide d'une plage nommee
'Range("Arrivée").Cells.SpecialCells(xlCellTypeBlanks).Range("A1")
une facon de faire:
'premiere cellule vide d'une plage nommee
'Range("Arrivée").Cells.SpecialCells(xlCellTypeBlanks).Range("A1")
Sub Bouton1_Cliquer()
Dim cell As Range, plage As Range
Set plage = Range("Choix")
For Each cell In plage
If cell.Value = 1 Then
cell.Offset(0, 1).Copy Range("Arrivée").Cells.SpecialCells(xlCellTypeBlanks).Range("A1")
End If
Next
End Sub