copie de cellules

[cmalifarge]

Bonjour,
Je suis à la recherche du code VBA qui me permettrait de copier (c'est un exemple) la cellule A1 dans la cellule A2 et si la cellule A2 est déjà complétée dans la cellule A3.

Est ce que cela est réalisable?

Cordialement

 

[camarchepas]

Re : copie de cellules

Bonjour ,

Une première solution

sub copie

if range("A2")="" then
range("A2")=range("A1")
else
range("A3") =range("A1")
end if
end sub

 

[cmalifarge]

Re : copie de cellules

super merci

 

[cmalifarge]

Re : copie de cellules

Oups!

La formule fonctionne mais uniquement sur la plage de cellules A1 - A3.
En fait j'aimerais copier chaque jour à l'exécution de la macro le contenu de la cellule A1 dans la cellule vide suivante .

La valeur de la cellule A1 est modifiée régulièrement l'activation de la macro doit chaque fois me sauvegarder son contenu de manière à pouvoir faire un total par exemple en fin de mois

Est ce que cela est réalisable?

 

[camarchepas]

Re : copie de cellules

Bonjour ,

Avec les nouvelles précisions , comme ceci alors

Sub Copie()
Dim Ligne As Long

 'Trouve la derniere ligne renseignée de la colonne A et ajoute 1 pour trouver la première ligne vide
 Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1

'Transfert de A1 vers la lgine cible
 Range("A" & Ligne) = Range("A1")

End Sub

 

[cmalifarge]

Re : copie de cellules

Merci ça correspond à ce que je voulais

Désolé d'avoir manqué de précision le première fois.