ActiveCell.Offset ne fonctionne pas

bonjour,

je cherche à me deplacer dans excel par vba grace à la fonction ActiveCell.Offset afin d'affecter une valeur à une cellule.

j'ai un problème car ma vba ne prend pas en compte le bon point de départ !

je vous joins un exemple

merci à vous pour vos explications et aides.

Bonjour,

Sans trop comprendre, essaie cela...

Bonsoir à tous,

Avec double clic

on se demande à quoi servent l'InputBox et la formule en B4 ?

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim vlig As Integer, vmodif As String

    If Not Application.Intersect(Target, Range("b4")) Is Nothing Then
        vlig = Range("B5")
        vmodif = InputBox("Nom ?")
            With Sheets("données")
               .Range("A4").Offset(vlig, 3) = vmodif
            End With
            Range("b4") = "=données!d" & vlig + 4 & ""
            Range("a4").Activate
    End If
End Sub

direct en changeant B4

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vlig As Integer, vmodif As String

    If Not Application.Intersect(Target, Range("b4")) Is Nothing Then
        vlig = Range("B5")
            With Sheets("données")
               .Range("A4").Offset(vlig, 3) = Target
            End With
    End If
End Sub

Amicalement

Claude

Merci Claude, ca marche

c'était un exemple simplifié donc c'est pour ça que tu t'interroges de l'inputbox

merci en tous cas

Pour solder le poste, maintenant c'est ici