Microsoft 365 VBA Match: comment éviter l'erreur?

Simon 1234 · 12 Décembre 2024

Bonjour à tous. Je coince depuis hier...
Excel 365 et VBA, fonction MATCH: j'essaie de faire un petit formulaire qui ajoute une ligne dans une feuille OU qui, si elle existe déjà, vient corriger cette ligne. J'utilise MATCH pour trouver cette ligne si elle existe (NumLigne). Bon ça, ça semble marche. Là où ça coince, c'est si MATCH ne trouve rien.

VB:

Sub SAUVER_AVALIDER()
'copier depuis la fiche vers la base de données "A_VALIDER"
Dim NomFeuil As Variant 'on y stocke le nom de la feuille où stocker les données (action)
NomFeuil = Range("AA24").Value

'ci dessous ne marche pas si numligne n'existe pas
Dim NumLigne As Long
NumLigne = Application.Match(Range("T1").Value, Worksheets(NomFeuil).Range("A:A"), 0) ' laligne où se trouve l'IDU
If IsError(NumLigne) Then
Sheets(NomFeuil).Rows("1:1").Insert 'insérer une ligne
NumLigne = 1
ElseIf NumLigne > 0 Then 'reference existante
MsgBox "ref trouvée"
End If

'ci dessous ce sont les cellules où sont les données que je veux stocker dans la feuille
Source = Array("t1", "u16", "n8", "u21", "x21", "aa21", "ad21", "u24", "x24", "aa23", "aa24")

'on copie/colle en masse
For i = 0 To UBound(Source) ' Les tableaux commencent en 0, Ubound donne la fin
      Worksheets(NomFeuil).Cells(NumLigne, i + 1) = Worksheets("FICHE").Range(Source(i)).Value 'j'aime bien cette ligne <3
Next
MsgBox "La fiche a été stockée."

End Sub

Qu'est-ce que je ne comprends pas?
Je suis presque sûr que c'est presque rien... AU SECOURS!

Simon 1234 · 12 Décembre 2024

Si une âme égarée cherche la même chose que moi, ceci semble fonctionner

VB:

Sub VALIDER_ACTION()
Dim NumLigne
If Not IsError(Application.Match(Range("A1").Value, Worksheets("FEUILLE").Range("A:A"), 0)) Then
   NumLigne = Application.Match(Range("A1").Value, Worksheets("FEUILLE").Range("A:A"), 0) ' la ligne où se trouve l'IDU
   MsgBox "Ligne trouvée"
Else
    MsgBox "ligne non trouvee"
End If
End Sub

Avec A1 la cellule qui contient la valeur à chercher dans ta feuille "FEUILLE"

Simon 1234 · 12 Décembre 2024

Pour donner une idée j'ai cette alternative qui fonctionne mais manque un peu d'élégance:

VB:

Sub SAUVER_AVALIDER()
'copier depuis la fiche vers la base de données "A_VALIDER"
Dim NomFeuil As Variant 'on y stocke le nom de la feuille où stocker les données (action)
NomFeuil = Range("AA24").Value
Dim NumLigne As Long

On Error GoTo LigneVide
'ci dessous ne marche pas si numligne n'existe pas

NumLigne = Application.Match(Range("T1").Value, Worksheets(NomFeuil).Range("A:A"), 0) ' laligne où se trouve l'IDU

GoTo CopiCol

LigneVide:
Sheets(NomFeuil).Rows("1:1").Insert 'insérer une ligne
NumLigne = 1

CopiCol:
'ci dessous ce sont les cellules où sont les données que je veux stocker dans la feuille
Source = Array("t1", "u16", "n8", "u21", "x21", "aa21", "ad21", "u24", "x24", "aa23", "aa24")

'on copie/colle en masse
For i = 0 To UBound(Source) ' Les tableaux commencent en 0, Ubound donne la fin
      Worksheets(NomFeuil).Cells(NumLigne, i + 1) = Worksheets("FICHE").Range(Source(i)).Value 'j'aime bien cette ligne <3
Next

MsgBox "La fiche a été stockée."

End Sub

Dranreb · 12 Décembre 2024

Bonjour.
Cette structure est préférable :

VB:

On Error Resume Next
NumLigne = Application.Match(Range("T1").Value, Worksheets(NomFeuil).Range("A:A"), 0) ' laligne où se trouve l'IDU
If Err Then
   Sheets(NomFeuil).Rows(1).Insert 'insérer une ligne
   NumLigne = 1
   End If

Remarque: De tout façon pour qu'une variable puisse recevoir une valeur d'erreur il faut qu'elle soit déclarée As Variant.

AtTheOne · 12 Décembre 2024

VB:

...
NumLigne=0
On error resume next
NumLigne = Application.Match(Range("T1").Value, Worksheets(NomFeuil).Range("A:A"), 0)
on error goto 0
If NumLigne= 0 then
     Sheets(NomFeuil).Rows("1:1").Insert 'insérer une ligne
     NumLigne=1
else
     Msgbox "Ligne trouvée"
end if
...

Edit : Rafraichissement ! Bonjour @Dranreb et bonjour à toutes & à tous !

Dranreb · 12 Décembre 2024

@Simon 1234, pourquoi ne le feriez vous pas cette mise à jour par un UserForm ?
Ça vous permettrait d'utiliser une ComboBox pour le critère d'identification, de sorte que vous ne seriez plus obligé de rechercher la ligne à postériori.

Simon 1234 · 12 Décembre 2024

Dranreb à dit:
@Simon 1234, pourquoi ne le feriez vous pas cette mise à jour par un UserForm ?
Ça vous permettrait d'utiliser une ComboBox pour le critère d'identification, de sorte que vous ne seriez plus obligé de rechercher la ligne à postériori.

Bonjour et merci. Oui, probablement que je pourrais mais je ne suis pas familier des userforms. C'est un mélange de flemme et d'habitude...

Dranreb · 12 Décembre 2024

j'ai des objets utilitaires très pratiques pour gérer les mises à jour avec peu d'instructions dans le module de l'UserForm
Et aussi un outils perso pour les dessiner …

Simon 1234 · 12 Décembre 2024

Dranreb à dit:
j'ai des objets utilitaires très pratiques pour gérer les mises à jour avec peu d'instructions dans le module de l'UserForm
Et aussi un outils perso pour les dessiner …

Faudrait que je m'y mette c'est vrai...

Simon 1234 · 12 Décembre 2024

Bon plus rien ne marche ><
J'ai l'erreur "l'indice n'appartient pas à la sélection" à la ligne

VB:

NumLigne = Application.Match(Range("T1").Value, Worksheets(A_VALIDER).Range("A:A"), 0) ' laligne où se trouve l'IDU

Dranreb · 12 Décembre 2024

Vérifiez dans les options VBE les dispositions à prendre en cas d'erreur. Évitez "Arrêt sur toutes les erreurs", préférez "Arrêt dans le module de classe" plutôt que "Arrêt sur les erreurs non gérées".

Simon 1234 · 12 Décembre 2024

Dranreb à dit:
Vérifiez dans les options VBE les dispositions à prendre en cas d'erreur. Évitez "Arrêt sur toutes les erreurs", préférez "Arrêt dans le module de classe" plutôt que "Arrêt sur les erreurs non gérées".

C'est l'enfer ce MATCH

TooFatBoy · 12 Décembre 2024

Simon 1234 à dit:
J'ai l'erreur "l'indice n'appartient pas à la sélection" à la ligne

C'est quoi A_VALIDER ?
Un coup c'est une BDD, un coup ça semble être soit le nom d'une feuille soit une variable, soit...

Dranreb · 12 Décembre 2024

C'est l'enfer de ne pas joindre de fichier surtout.

Simon 1234 · 12 Décembre 2024

C'est une feuille dans laquelle je stocke les données des cellules que l'on voit dans mon array.

Simon 1234 · 12 Décembre 2024

Dranreb à dit:
C'est l'enfer de ne pas joindre de fichier surtout.

Oui mais je ne vois pas comment faire, le formulaire appelle des données sur le serveur et tout est confidentiel. Sans ça, ça ne tournerait pas

Microsoft 365 VBA Match: comment éviter l'erreur?

Simon 1234

XLDnaute Junior

Simon 1234

Simon 1234

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

AtTheOne

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

Simon 1234

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

Simon 1234

XLDnaute Junior

Simon 1234

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

Simon 1234

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Simon 1234

XLDnaute Junior

Simon 1234

XLDnaute Junior

Discussions similaires