Offset avec valeurs différentes

Bonjour,

J'aurais besoin de votre aide afin de faire un offset de valeurs différentes sur le nombre de colonnes

En effet je doit écrire une valeur à droite de la dernière valeur de la ligne correspondante

Je vous joins mon code avec actuellement un offset paramétré sur 1

Private Sub CommandButton1_Click()

Dim Ref As String

Dim Empl As String

Dim Coord As String

Dim off As String

Ref = ComboBox1.Value

Empl = ComboBox2.Value

Coord = Sheets("EntréeSortie").Range("A2:A60").Find(What:=Ref, LookIn:=xlValues).Address

Sheets("EntréeSortie").Range(Coord).Offset(0, 1).Value = Empl

End Sub

Merci,

Bonjour,

A tester !...

Private Sub CommandButton1_Click()
Dim Ref As String, Empl As String, rCell As Range, lCol As Long
    Ref = ComboBox1.Value
    Empl = ComboBox2.Value
    With Worksheets("EntréeSortie")
        Set rCell = .Range("A2:A60").Find(What:=Ref, LookIn:=xlValues)
        If Not rCell Is Nothing Then
            lCol = .Cells(rCell.Row, .Columns.Count).End(xlToLeft).Column + 1
            .Cells(rCell.Row, lCol).Value = Empl
        End If
    End With
End Sub

Merci pour ta réponse Jean Eric,

J'ai oublié de préciser qu'un tableau se situait plus loin sur la même ligne

La valeur s'affiche donc à la suite du tableau

Je joins mon fichier cela peut-être plus pratique

Bonjour,

Quelle est l'utilité de ce tableau ?

Cdlt.

Ce tableau sert d'indicateur visuel pour les emplacements disponibles

Si cela n'est pas possible je pourrais changer le tableau de feuille, mais pour des raison pratique je préfère le garde à côté

Cordialement,