Copier cellules excel dans 1ère cellule vide

Résolu/Fermé

sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 - 14 sept. 2009 à 12:29
sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 - 17 sept. 2009 à 12:13

Bonjour à tous,

j'ai une colonne A de la feuille 1 dans laquelle sont entrées 25 valeurs (A1 --> A25)

j'ai une colonne A de la feuille 2 dans laquelle existent déja un certain nombre de valeurs.

J'aimerais créer une macro qui copierais les 25 valeurs de la colonne A de la feuille 1 à la suite des valeurs de la colonne A de la feuille 2.

En gros, ça serait un copier coller de ces 25 valeurs à partir de la 1ère cellule vide de la colonne A de la feuille 2.

Auriez vous une solution svp?

Merci d'avance

Sanchis

A voir également:

Excel si cellule vide alors copier cellule précédente
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Formule excel pour additionner plusieurs cellules - Guide
Si et excel - Guide

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
14 sept. 2009 à 12:38

Bonjour,
En VBA, le code est :
Sheets("Feuil1").Range("A1:A25").Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)

Réponse 2 / 4

sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 10
14 sept. 2009 à 15:24

Merci pijaku! c'est exactement ce que j'attendais!

Par contre, il faudrait que je complique encore un peu ce code...

j'ai une case C1 sur ma feuille 1 qui contient ou "X" ou "O"

Je voudrais que cette même macro puisse coller ces 25 données soit dans la colonne A soit dans la colonne B de la feuille 2, selon la valeur de la case C1

Merci pour votre aide

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
14 sept. 2009 à 15:29

Re-
If Range("C1") = "X" Then 'Si C1 = x alors
Sheets("Feuil1").Range("A1:A25").Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) 'on copie et colles en col A
If Range("C1") = "O" Then 'si C1 = o
Sheets("Feuil1").Range("A1:A25").Copy Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0) 'on copie et colle en col B
Else 'sinon
Exit sub 'on ne fait rien
End If
End If

sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 10 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
17 sept. 2009 à 11:54

Merci Pijaku pour le code!

Cependant, si je ne mets rien en C1, rien ne se passe --> NORMAL
si je mets "X" en C1, les valeurs sont copiées dans la colonne A --> NORMAL
si je mets "O" en C1, rien ne se passe --> PAS NORMAL

Aurais-tu une solution?

Merci d'avance

Réponse 3 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
17 sept. 2009 à 12:04

Salut,
'Fectivement ai oublié un "else" :

If Range("C1") = "X" Then 'Si C1 = x alors
Sheets("Feuil1").Range("A1:A25").Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) 'on copie et colles en col A
Else
If Range("C1") = "O" Then 'si C1 = o
Sheets("Feuil1").Range("A1:A25").Copy Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0) 'on copie et colle en col B
Else 'sinon
Exit Sub 'on ne fait rien
End If
End If

Réponse 4 / 4

sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 10
17 sept. 2009 à 12:13

Parfait merci Pijaku!

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

Excel si cellule contient texte alors...

Excel formule : savoir si une cellule contient partie texte

Excel : si ma cellule contient tel texte ou tel texte