copie d'une cellule..

[pizzaman]

Bonjour à tous

J'utilise une macro sur la feuil1 pour faire afficher l'heure sur chaques colones de la feuil2
ci joint le fichier


Il faudrait que la cellule F3 feuil1 soit copier à la place de l'heure, et dans le cas ou la cellule F3 est vide c'est l'heure qui serait affiché

Merci d'avance

 

[Deneb]

Re : copie d'une cellule..

pourrais-tu fournir une version *.xsl pour excel 2003 s'il te plait ?

 

[David590]

Re : copie d'une cellule..

ah oui c'est vrai, j'y fait jamais attention

Voila en xls

 

[Deneb]

Re : copie d'une cellule..

Voilà... La cellule jaune est la cellule concernée

 

[Efgé]

Re : copie d'une cellule..

Bonjour pizzaman / David590, Bonjour Deneb
Une autre formulation, pour le même résultat:

[COLOR=BLUE]Private Sub[/COLOR] CommandButton1_Click()
    C = Sheets("Feuil2").Cells(1, 1).End(xlToRight).Column + 1
    [COLOR=BLUE]If[/COLOR] Sheets("Feuil2").Cells(1, 2) = "" [COLOR=BLUE]Then[/COLOR] C = 2
    [COLOR=BLUE]If[/COLOR] Sheets("Feuil2").Cells(1, 1) = "" [COLOR=BLUE]Then[/COLOR] C = 1
    Var = IIf(Sheets("Feuil1").Range("F3") = "", Time, Sheets("Feuil1").Range("F3").Value)
    Sheets("Feuil2").Cells(1, C) = Var
[COLOR=BLUE]End Sub[/COLOR]

Cordialement

 

[pizzaman]

Re : copie d'une cellule..

Super les 2 fonctionnent
Merci @+