Enregistrement

Bonjour,

j'ai veux sauvegarder des donne dans une base mais peut êtres avec des cellule fusionner elle n'a pas marcher

je veux enregistrer des donner de ma feuille " General information" vers une autre feuille "base"

Private Sub CommandButton1_Click()

    lgn = Sheets("Base").Range("A" & Rows.Count).End(xlUp)(2).Row
    For i = 1 To 31
        adrI = Choose(i, "D4:E4", "D6:E6", "N4:P4", "N6:P6", "D10:I10", "M10:P10", "D11:P11", "D12:E12", "H12:K12", "M12:P12", "D15:I15", "M15:P15", "D17:F17", "M17:P17", "B19", "E19", "H19:I19", "M19:N19", "B21", "E21", "H21:I21", "N21", "D23", "H23:I23", "D25:E25", "N25", "D27", "F32:H32", "M32:N32", "F34:H34", "M34:N34")
        Sheets("Base").Cells(lgn, i).Value = Range(adrI)
        Range(adrI).ClearContents
    Next i

End Sub

Un grand merci à vous

Si possible me donner un code ou me corrigé

Bonjour Mark-Tk le forum

bah c'est sur que de définir lgn et ensuite de faire une bouche de 1 à 31 colonnes pour coller des sélections de plus de 1 colonne cela ne risque pas de marcher!!!!

sans fichier et sans exemple du résultat à obtenir impossible de t'en dire plus

(de plus cela ne pourrait fonctionner, que si tu es sur la feuille d’où tu souhaites copier les données car tu ne fais pas référence à la feuille général etc)

a+

Papou

Merci Paritec pour vos réponse

voila mon fichier

et merci

5tst.xlsm (46.32 Ko)

Re Mark-Tk le forum

il est ou l'exemple de ce que l'on doit obtenir dans la feuille base???

a+

papou

OK VOILA EXEMPLE

6tst.xlsm (44.33 Ko)

Re Mark-tk le forum

bah oui mais c'était surtout dans la feuille Base que je voulais le résultat de ce que tu as mis dans général

je regarderai cet après midi

a+

Papou

Re bonjour Mark-Tk le forum

ton fichier en retour

a+

Papou

6mark-tk-v1.xlsm (45.21 Ko)

Merci bcp parfait

Rechercher des sujets similaires à "enregistrement"