Microsoft 365 Fonction Match sur VBA

sgangbadjo à dit:

ligne = Application.WorksheetFunction.Match(cible, Sheets("TRACKING").Range("C1:C"), 0)

Cliquez pour agrandir...

Yeahou à dit:

Bonjour sgangbadjo, le forum

déjà, "C1:C" ne veut rien dire, ou c'est une colonne ou c'est une plage, on ne peut pas faire moit/moit

Cordialement, @+

Cliquez pour agrandir...

Yeahou à dit:

Re,

Code:

Range("C:C")

mais match sur une colonne entière peut être long, vaudrait mieux

VB:

Range("C1:C" & Range("C" & Rows.Count).End(xlUp).Row)

Cordialement, @+

Cliquez pour agrandir...

Yeahou à dit:

re,

ok, tu recherches une chaine texte et c'est un nombre que tu veux trouver, match fonctionne avec le type de la valeur que tu envoies. En plus tu as ou du texte ou des nombres dans ta colonne
Précises le type au moment de ta recherche et ça fonctionnera avec du texte non numérique ou du nombre

Bien cordialement, @+

Code:

Private Sub CommandButton1_Click()

Dim F1 As Worksheet
Dim Ligne As String
Dim Cible As Variant
 
Set F1 = Sheets("TRACKING")
Cible = Me.TextBox1.Value
With F1
    Ligne = Application.WorksheetFunction.Match(IIf(IsNumeric(Cible), CDbl(Cible), Cible), .Range("C1:C" & .Range("C" & .Rows.Count).End(xlUp).Row), 0)
    If MsgBox("Etes vous sûr de vouloir sauvegarder?", vbYesNo, "confirmation") = vbYes Then
        .Cells(Ligne, 13).Value = Me.TextBox4.Value
        .Cells(Ligne, 14).Value = Me.TextBox5.Value
        .Cells(Ligne, 12).Value = Me.ComboBox1.Value
        .Cells(Ligne, 18).Value = Me.TextBox6.Value
        .Cells(Ligne, 15).Value = Me.ComboBox2.Value
        .Cells(Ligne, 16).Value = Me.ComboBox3.Value
        .Cells(Ligne, 17).Value = Me.TextBox7.Value
        .Cells(Ligne, 19).Value = Me.TextBox8.Value
        .Cells(Ligne, 21).Value = Me.TextBox9.Value
        .Cells(Ligne, 20).Value = Me.TextBox10.Value
        .Cells(Ligne, 22).Value = Me.TextBox11.Value
        .Cells(Ligne, 23).Value = Me.TextBox12.Value
    End If
End With
Unload Me

End Sub

Cliquez pour agrandir...

Yeahou à dit:

Re,

Ok, ne pas oublier de cocher la solution sur le post concerné pour passer le fil en résolu.
Un nouveau problème doit faire l'objet d'une nouvelle discussion.

Bonne journée

Cliquez pour agrandir...