Copier coller en fonction de la colonne A

Résolu/Fermé

marc - 28 févr. 2014 à 16:11
marc - 3 mars 2014 à 07:51

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.

A voir également:

Copier coller en fonction de la colonne A
Fonction si et - Guide
Déplacer une colonne excel - Guide
Copier coller pdf - Guide
Copier une vidéo youtube - Guide
Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 févr. 2014 à 17:21

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

Réponse 2 / 2

marc
3 mars 2014 à 07:51

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!!!

Discussions similaires

Dessiner avec son clavier et avec des lettres

je veut créer des codes

Formule magique excel??????

Comment faire le signe de croix (chrétiens) ?

liste de noms par ordre alphabétique

Discussions similaires

Newsletters