Boucle pour si cellule prise prendre la suivante
Bonjour,
J'aimerais faire un bouton avec par exemple marqué dessus CHF 5.00 et que quand on clic dessus (donc mettre une macro dedans) il marque automatiquement dans le 2e onglets la date et heure dans A2 et dans B2 le montant de 5.-. Jusque là c'est bon. Mais j'aimerais que quand A2 et B2 sont pris, il fasse la formule sur A3 et B3 et ainsi de suite avec une boucle.
Voici ma formule :
Sub Macro8()
'
' Macro8 Macro
'
'
Sheets("Feuil2").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[8]C[5]"
Range("A3").Select
End Sub
Bonjour,
Salut,
si tu nous expliquais tout de suite exactement ce que tu veux faire... on gagnerait beaucoup de temps!
A+
Hello,
Le but serat de faire une sorte de livre de caisse. J'aimerai faire une macro avec une boucle qui fait qu'on a juste à cliquer sur le bouton 5.- et que ça m'affiche l'heure sur le 2e onglet mais à la suite.... car la ça m'affiche toujours dans A2
Desolé si c'est pas très claire je connais pas très bien les macros
Salut,
quelque chose me dit que ça ne va pas s'arrêter là...
'
With Sheets("Feuil2")
iRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(iRow, 1) = Format$(Now, "dd/mm/yyy hh:mm")
.Cells(iRow, 2) = 5
End With
'A+