cree une liste a partir d'une cellule

Question

Bonjour, 
je souhaiterais écrire dans la cellule A1 feuille 1 et quand je click sur un bouton crée sur la feuille 1, ce que  j'ai écrit en A1 va ce mettre en A1 feuille 2 et est effacé en feuille 1
puis j écris autre chose en A1 feuille 1 puis re bouton et ce que je viens d'écrire va en feuille 2 MAIS cellule 2 et la cellule A1 feuille 1 s'éfface.ETC......

en gros: j'écris toujours en A1 feuille 1 , ce qui cree une liste en feuille2
Merci pour votre aide


Configuration: Windows XP / Firefox 6.0.2

ccm81 · Accepted Answer

bonjour

à mettre dans le module de la feuille 1
RQ. le bouton a été crée avec la boite a outils controles

Option Explicit

Const lidebF2 = 1
Const coF2 = "A"

Private Sub CommandButton1_Click()
Dim lif2 As Long
lif2 = Sheets("feuil2").Range(coF2 & 65536).End(xlUp).Row + 1
Sheets("feuil2").Range(coF2 & lif2).Value = Sheets("feuil1").Range("A1").Value
Sheets("feuil1").Range("A1").Value = ""
End Sub

bonne suite

macfred · Answer

BRAVO ET MERCI...
super boulot...

macfred · Answer

Bonjour, 
encore une tuile, 
"Un peu comme le premier essais" 
je click sur mon bouton et :
ça  copie de la cellule "a1 a v12" et ça crée une liste en feuille 2 
en collant . 
Merci .

ccm81 · Answer

bonjour

ça copie de la cellule "a1 a v12" et ça crée une liste en feuille 2 
La plage A1:V12 est une plage "rectangulaire", et tu veux une "liste"  en feuille 2
En principe une liste est uni-ligne ou uni-colonne
Q1. veux tu une copie "bête" de cette plage (rectangulaire) en feuille 2 par exemple en A1:V12 ? dans ce cas tu n'obtiendra pas une "liste" sur une seulle ligne/colonne
sinon
Q2. Comment veux tu décrire la plage à copier 
OPTION 1. A1 puis A2 puis A3 etc ... A12, et on passe à la ligne suivante
OPTION 2. A1 puis B1 puis C1  etc ... puis V1 et on passe à la colonne suivante

bonne suite

Cree une liste a partir d'une cellule

4 réponses

Votre réponse

Discussions similaires

Newsletters