Excel VBA search cell value and select action if the value exist or not

Hy, I made 2 tabs : "Affaires" and "Actions" .

For "Affaires" it's OK: I have my input info Form and my Search and VisualizeFom

Bu for Actions I have a problem: Actually my form allow me to insert data but it's creating a new line each time.
I want the program to check in the "Actions" Tab if the Affaire number (which is in a COmbobox of my Action Form) already exists.
If yes: insert the data of the input form onte same line
If not: create a new line and insert data

I join my folder to be more clear, please excuse my vba code, I am a beginner

Thanks for your help

Nanouna Test VBA.xlsm

Hi,

see the help of the Find method for example …

Bonsoir,

Merci pour le tips j'ai trouvé une solution:

With Sheets("Actions")

Set columnAffaire = .Columns(1)
Set c = columnAffaire.Find(ComboBox65.Value, LookIn:=xlValues)

If MsgBox("Enregistrer l'action en cours?", vbOK, "Créer Action") = vbOK Then




If c Is Nothing Then

Der_lig = .Range("D65000").End(xlUp).Row + 1
.Range("A" & Der_lig) = ComboBox65
.Range("B" & Der_lig) = ComboBox1
.Range("C" & Der_lig) = ComboBox2
.Range("D" & Der_lig) = ComboBox3
.Range("E" & Der_lig) = TextBox4
.Range("F" & Der_lig) = TextBox3
.Range("G" & Der_lig) = ComboBox4
.Range("H" & Der_lig) = TextBox2
.Range("I" & Der_lig) = 1
.Range("J" & Der_lig) = TextBox46
.Range("JA" & Der_lig) = ComboBox66

Else
adresscell = c.Address
Range(adresscell).Activate

lineNb = c.Row
Do While Not (IsEmpty(ActiveCell))
NbColumn = NbColumn + 1
Selection.Offset(0, 1).Select

Loop

colNb = ActiveCell.Column
'lineNb = ActiveCell.Line

.Cells(lineNb, colNb) = ComboBox65
.Cells(lineNb, colNb + 1) = ComboBox1
.Cells(lineNb, colNb + 2) = ComboBox2
.Cells(lineNb, colNb + 3) = ComboBox3
.Cells(lineNb, colNb + 4) = TextBox4
.Cells(lineNb, colNb + 5) = TextBox3
.Cells(lineNb, colNb + 6) = ComboBox4
.Cells(lineNb, colNb + 7) = TextBox2
.Cells(lineNb, colNb + 8) = WorksheetFunction.Floor(colNb / 8, 1) + 1
.Cells(lineNb, colNb + 7) = TextBox46
.Cells(lineNb, "JA") = ComboBox66
End If



End If



End With
End If
ActiveWorkbook.Save
Unload Me


End Sub