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

Signaler
-
 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.

2 réponses

Messages postés
15350
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 septembre 2020
1 361
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
Next
End Sub
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!!!