VBA cellule egale a une autre

Bsr ,

je veux sur ma feuille excel soit la colonne B = la colonne A (départ de la ligne 5 )

si je mettais une valeur '3' par exemple dans la cellule A5 , la cellule B5 egal '3' mais automatique en vba , sans bouton VBA est sans mettre dans l'autre cellule B5= A5 .

merci

Bonjour,

à mettre dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A5")) Is Nothing Then

Range("b3").Value = Range("a5").Value

End If

End Sub

merci

mais peut etre mal compris

je veux B5=A5 , B6=A6....... la colonne A = la colone B ( le depart par la ligne 5)

mais ce fait automatique

c'est simple mais j'ai pas trouver la solution

merci

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim lRow As Long
 lRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
        SearchDirection:=xlPrevious, LookIn:=xlValues).Row

    For i = 5 To lRow
        If Not Intersect(Target, Range("A" & i)) Is Nothing Then
            Range("b" & i).Value = Range("a" & i).Value
        End If
    Next
End Sub

Puisque je ne suis pas certain dans quel sens tu veux le faire .. tu n'as qu'à inverser les lettres au besoin

N'oublies pas de marquer comme résolu si la solution te convient

merci bcp