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

[Simon 1234]

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.

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]

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

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]

Bonjour.
Cette structure est préférable :

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]

...
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]

@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]

@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]

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]

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]

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

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

 

[Dranreb]

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]

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]

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]

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

 

[Simon 1234]

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

 

[Simon 1234]

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