Copier coller en fonction de la colonne A Résolu/Fermé

Question

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.

Configuration: Windows 7 / Chrome 33.0.1750.117

f894009 · Answer

Bonjour,

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    NextEnd Sub

marc · Answer

HAHAHAH!!!

Ca marche au poil!

MERCI BEAUCOUP

C'est vraiment sympa de prendre du temps pour aider les gens qui ont des problèmes.
Vous êtes magiques!!!

Copier coller en fonction de la colonne A

2 réponses

Discussions similaires