Remplissage auto de cellule

Bonjour,

2 questions:

la premiere, comment puis-je faire pour transposer la valeur d'une cellule à une autre se trouvant dans sur une feuille masque et proteger, j'ai essayé par la methode:

Worksheets("notice utilisation").Range("A4").Value = Worksheets("ajout_modif").Range("EA7").Value

mais ça ne fonctionne pas :/ (ajout_modif) étant la feuille masqué)

Deuxième question, comment doit-t-on faire pour afficher la date et l'heure d'aujourd'hui dans une cellule proteger?

merci d'avance

cordialement

max

Bonjour,

Avec ces formules

A tester et copier sur ton fichier

=MAINTENANT()'  a coller dans la cellule qui doit recevoir la date et l'heure
lundi 2 mai 2016 16:49

ceci, le résultat de la formule

Bonjour,

une réponse pour ta 1ère question

Sub Copie()
'
' Copie Macro
'

    Sheets("Feuil1").Select     ' Sélectionne la cellule de la feuille 1 à copier
    ActiveCell.Range("A1").Select
    Selection.Copy
                                'Sélectionne et rend visible la feuille 2 masquée
    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select

                                ' dsémarre à la ligne 10000 et remonte jusqu'à la denière cellule remplie
                                ' et descend de 1 ligne pour coller sous la valeur précédente
    Range("A10000").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Range("A2").Select              ' masque à nouveau la feuille 2 et retourne vers la feuille 1
    Application.CutCopyMode = False
     'Sheets("Feuil3").Select
    Sheets("Feuil2").Visible = False
    Sheets("Feuil1").Select
                                    ' Fin de la macro
    Range("A1").Select
End Sub

Ce même code dans un fichier test

Amicalement

Pierrot

nickel!! Merci

Bonjour, Si cela correspond à tes désirs, n'oublies pas de cocher comme étant résolu.

Amicalement

Pierrot