Cree une liste a partir d'une cellule

mac fred -  
ccm81 Messages postés 11033 Statut Membre -
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

4 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    2
  2. macfred
     
    BRAVO ET MERCI...
    super boulot...
    0
  3. macfred
     
    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 .
    0
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    0