Sujet Précédent Sujet Suivant

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:

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 745
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)
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
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
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
0
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
0
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 745
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
0
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!
0

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc
Paria -
2008G.C -

60 réponses
Excel si cellule contient texte alors...
caba_44 -
RENOU -

41 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses