Discussion :

[Boujnah]

Bonjour,

Je débute en VBA et je vais essayer de vous expliquer ce que je veux car j'avoue que mon titre n'est pas très clair .

J'ai une feuille excel dans laquelle une cellule (A1) se met à jour automatiquement. J'aimerais créer un bouton qui me permettrait de copier la valeur de cette cellule dans une colonne (B). J'aimerais conservé les valeurs à chaque copie et ainsi remplir la colonne. Il faudrait que la copie se fasse à chaque fois que je clique sur le bouton et que la valeur de (A1) a été modifié.

J’espère avoir été assez clair .

Merci d'avance.

[Phil'oche]

Salut,

Réponse "vite fait"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
 
Dim DernCell As Range
 
Set DernCell = Feuil1.Range("$B$10000").End(xlUp)
 
    Select Case DernCell
        Case ""
            DernCell = Range("$A$1")
        Case Range("$A$1")
            ' rien
        Case Else
            DernCell.Offset(1) = Range("$A$1")
    End Select
 
End Sub

A adapter, surtout si tu as la possibilité parfois de mettre "rien" en A1...

[Boujnah]

Merci de la réponse rapide et efficace !

J'avais en fait deux colonnes à copier et j'ai pu adapter ta macro. Pour ne pas avoir deux problèmes de valeur nulles j'ai rajouté une condition sur la cellule source (A1).

Bonne fin de journée !