Saisie sur la même ligne si :

[isa44]

Bonjour,

Comment faire si dans le tableau "données" en colonne G se trouve une donnée égale à la valeure du Textbox4 pour valider la saisie sur cette même ligne sans créer de nouvelle ligne à la fin du tableau ?

Private Sub CommandButton1_Click()

Dim DerLigne As Integer
DerLigne = Sheets("données").Range("A65536").End(xlUp).R ow + 1


With Sheets("données")
.Activate
With .Range("G" & DerLigne)
.Value = MyCellValue
End With


.Range("A" & DerLigne) = TextBox3.Value
.Range("B" & DerLigne) = TextBox2.Value
.Range("C" & DerLigne) = TextBox1.Value
.Range("G" & DerLigne) = TextBox4.value
.Range("H" & DerLigne) = TextBox9.value
.Range("I" & DerLigne) = TextBox38.Value
.Range("J" & DerLigne) = TextBox12.value
.Range("K" & DerLigne) = TextBox13.value
.Range("L" & DerLigne) = TextBox8.value

End With




End Sub]

[/CODE]

 

[Guest]

Re : Saisie sur la même ligne si :

Bonjour Isa,

A tester:

Private Sub CommandButton1_Click()
    Dim Ligne As Integer
    Dim c As Range
    
    With Sheets("données")
        .Activate
        Set c = .Range("G:G").Find(What:=TextBox4.Text, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
        If Not c Is Nothing Then
            Ligne = c.Row
        Else
            Ligne = Sheets("données").Range("A65536").End(xlUp).Row + 1
             .Range("G" & Ligne) = MyCellValue
        End If
        .Range("A" & Ligne) = TextBox3.Value
        .Range("B" & Ligne) = TextBox2.Value
        .Range("C" & Ligne) = TextBox1.Value
        .Range("G" & Ligne) = TextBox4.Value
        .Range("H" & Ligne) = TextBox9.Value
        .Range("I" & Ligne) = TextBox38.Value
        .Range("J" & Ligne) = TextBox12.Value
        .Range("K" & Ligne) = TextBox13.Value
        .Range("L" & Ligne) = TextBox8.Value
    End With
End Sub

A+