Microsoft 365 Fonction Match sur VBA

[sgangbadjo]

Please Help
La syntaxe ci-dessous ne me permet pas de récupérer la position de la valeur cible.
l'execution se bloque au niveau de la fonction MATCH



Private Sub CommandButton1_Click()

Dim f1 As Worksheet
Dim ligne As Long
Dim cible As Variant

Set f1 = Sheets("TRACKING")
cible = Me.TextBox1.Value
ligne = Application.WorksheetFunction.Match(cible, Sheets("TRACKING").Range("C1:C"), 0)

If MsgBox("Etes vous sûr de vouloir sauvegarder?", vbYesNo, "confirmation") = vbYes Then

With f1

.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 With
End If
Unload Me

End Sub

 

[Bernard_XLD]

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

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, @+

 

[sgangbadjo]

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, @+

Merci @Yeahou

Je suis débutant, donc manque un peu de pratique. Je voudrais designer toute la colonne C de la feuille TRACKING

 

[Bernard_XLD]

Re,

Range("C:C")

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

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

Cordialement, @+

 

[Bernard_XLD]

Re,

et puis comme tu as déjà référencé ta feuille, utilise donc ta référence

ligne = Application.WorksheetFunction.Match(cible, f1.Range("C1:C" & f1.Range("C" & f1.Rows.Count).End(xlUp).Row), 0)

Et mets tes codes dans des balise, bouton "</>", c'est plus simple à lire.

Cordialement, @+

 

[sgangbadjo]

Re,

Range("C:C")

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

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

Cordialement, @+

Merci pour le retour @Yeahou

Malheureusement le code n'est toujours pas bon. Je m'y prends certainement mal. C'est le Userform 2 du fichier joint.

 

[Bernard_XLD]

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, @+

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

 

[sgangbadjo]

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, @+

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

Ca marche @Yeahou, Merci pour la patience. je vais essayer d'ajouter quelques conditions supplémentaires

 

[Bernard_XLD]

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

 

[sgangbadjo]

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

Merci, c'est bien noté.
Bonne journée