L'indice n'appartient pas à la sélection.
Résolu
BUDGETS Messages postés 1594 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17270 Date d'inscription Statut Membre Dernière intervention - 29 août 2021 à 09:34
f894009 Messages postés 17270 Date d'inscription Statut Membre Dernière intervention - 29 août 2021 à 09:34
A voir également:
- L'indice n'appartient pas à la sélection vba tableau
- Tableau word - Guide
- Tableau ascii - Guide
- A qui appartient ce numéro - Guide
- Tableau croisé dynamique - Guide
- Indice téléphonique - Guide
3 réponses
Bonjour a vous deux,
BUDGET:
Y a pas de tableau ou nom de plage "BD articles menus".
Vous avez un tableau "TNAM"
Ceci comme je programme. Vous n'avez pas a mettre le nom de feuille pour manipuler un tableau
Fichier Fichier BUDGETS-ALS35-V11 (8) code qui cree la ligne. Le tableau "BD_Articles" existe
BUDGET:
I = WorksheetFunction.Match(cbCodArt.Value, Range("bd articles menus[CAM]"), 0)
'et
With Feuille_Liste_Bd_articles_menus.ListObjects("BD articles menus")Y a pas de tableau ou nom de plage "BD articles menus".
Vous avez un tableau "TNAM"
'Sur la feuille BD articles menus, ajouter une ligne vide en fin de tableau
Range("TNAM").ListObject.ListRows.Add
LI = Range("TNAM").Rows.CountCeci comme je programme. Vous n'avez pas a mettre le nom de feuille pour manipuler un tableau
Fichier Fichier BUDGETS-ALS35-V11 (8) code qui cree la ligne. Le tableau "BD_Articles" existe
'Sur la feuille BD, ajouter un ligne vide en fin de tableau
With Feuille_BD_Articles.ListObjects("BD_Articles")
.ListRows.Add
Ici = .ListRows.Count 'Indice de la dernière ligne (dans le tableau)
End With
Bonjour f894009,
1) Je laisse garde I= Worksheet... et j'ajoute With Feuille_Liste ou je supprime I = pour ne garder que le 2) ?
2) Sur la feuille BD article, j'ajoute les deux instructions mentionnées ?
En attendant ta réponse, je vais faire des essais.
Je viens de tester le 2) en gardant I= Worksheet... et je n'ai plus de message d'erreur. Sauf erreur ou omission de ma part, ce n'est pas LI mais I (dans mon test, j'ai bien mis I et non LI).
1) Je laisse garde I= Worksheet... et j'ajoute With Feuille_Liste ou je supprime I = pour ne garder que le 2) ?
2) Sur la feuille BD article, j'ajoute les deux instructions mentionnées ?
En attendant ta réponse, je vais faire des essais.
Je viens de tester le 2) en gardant I= Worksheet... et je n'ai plus de message d'erreur. Sauf erreur ou omission de ma part, ce n'est pas LI mais I (dans mon test, j'ai bien mis I et non LI).
Re,
Code en partant de l'original
Code en partant de l'original
Private Sub cmdValiderCAM_Click()
Dim I As Long, Ici As Long
'Contrôles cellules obligatoires
If cbCodeNAM.Value = "" Then
MsgBox "Pas de code nature article menu saisi !", vbExclamation
cbCodeNAM.SetFocus
Exit Sub
End If
'Vérification de la présence d'un article déjà présent.
On Error Resume Next
I = WorksheetFunction.Match(cbCodArt.Value, Range("TNAM[CAM]"), 0)
On Error GoTo 0
If I > 0 Then
MsgBox "Un articleexiste déjàpour ce code article !", vbExclamation
cbCodArt.SetFocus
Exit Sub
End If
'Sur la feuille BD articles menus, ajouter une ligne vide en fin de tableau
With Feuille_Liste_Bd_articles_menus.ListObjects("TNAM")
.ListRows.Add
Ici = .ListRows.Count 'Indice de la dernière ligne dans le tableau
End With
End Sub
Bonjour f894009,
J'ai encore ce message d'indice qui n'appartient pas à la sélection en ce qui concerne le tri. J'ai bien mis le nom du tableau (TNAM). Merci de m'apporter une nouvelle fois ton aide précieuse.
https://www.ct.com/c/KHCkyNAcsVo
J'ai encore ce message d'indice qui n'appartient pas à la sélection en ce qui concerne le tri. J'ai bien mis le nom du tableau (TNAM). Merci de m'apporter une nouvelle fois ton aide précieuse.
https://www.ct.com/c/KHCkyNAcsVo
UF01_CAM : procédure cmdValiderCAM_Click(), ligne 'Sur la feuille BD articles menus, ajouter une ligne vide en fin de tableau
With FL02_BDAM
Quand tous les cb et tb sont renseignés et que je clique sur Valider CAM, j'ai ce message "L'indice n'appartient pas à la sélection".
D'avance merci pour ton aide éventuelle.