copie d'une cellule..

pizzaman · 20 Juillet 2010

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 · 20 Juillet 2010

Re : copie d'une cellule..

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

David590 · 20 Juillet 2010

Re : copie d'une cellule..

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

Voila en xls

Deneb · 20 Juillet 2010

Re : copie d'une cellule..

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

Efgé · 20 Juillet 2010

Re : copie d'une cellule..

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

Code:

[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 · 21 Juillet 2010

Re : copie d'une cellule..

Super les 2 fonctionnent
Merci @+

copie d'une cellule..

pizzaman

XLDnaute Occasionnel

Pièces jointes

Deneb

XLDnaute Junior

David590

XLDnaute Occasionnel

Pièces jointes

Deneb

XLDnaute Junior

Pièces jointes

Efgé

XLDnaute Barbatruc

pizzaman

XLDnaute Occasionnel

Discussions similaires