Contourner les limites de Match
Résolu
Verchain
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
Verchain Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
Verchain Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Avec le code ci-dessous qui fonctionne bien sur une dizaine de colonnes, je voudrais étendre le contrôle sur 470 colonnes (et toujours 122 lignes) pour que la macro contrôle bien l'ensemble des saisies dans l'entièreté de mon tableau.
Dès que je change la valeur de j au-delà de 20, un bug apparaît, qui doit être lié au nombre de cellules à vérifier.
Comment puis-je faire ça ?
Mon code :
Dim i As Variant
Dim j As Variant
For i = 6 To 126
For j = 5 To 41
CF = Array("LM", "LL", "SL", "PF", "PM", "BV", "NP", "IF", "FO", "SB", "AM", "RT", "CP", "RE", "JV", "DE", 52, "", 0, "52")
V = Cells(i, j).Value
TEST = Application.Match(Left(V, 2), CF, 0)
If IsError(TEST) Then Cells(i, j).Interior.Color = 255
Next
Next
Avec le code ci-dessous qui fonctionne bien sur une dizaine de colonnes, je voudrais étendre le contrôle sur 470 colonnes (et toujours 122 lignes) pour que la macro contrôle bien l'ensemble des saisies dans l'entièreté de mon tableau.
Dès que je change la valeur de j au-delà de 20, un bug apparaît, qui doit être lié au nombre de cellules à vérifier.
Comment puis-je faire ça ?
Mon code :
Dim i As Variant
Dim j As Variant
For i = 6 To 126
For j = 5 To 41
CF = Array("LM", "LL", "SL", "PF", "PM", "BV", "NP", "IF", "FO", "SB", "AM", "RT", "CP", "RE", "JV", "DE", 52, "", 0, "52")
V = Cells(i, j).Value
TEST = Application.Match(Left(V, 2), CF, 0)
If IsError(TEST) Then Cells(i, j).Interior.Color = 255
Next
Next
A voir également:
- Contourner les limites de Match
- Contourner pub youtube - Accueil - Streaming
- Captvty drm contourner - Forum loisirs/vie pratique
- Application pour regarder match en direct sur iphone - Télécharger - Médias et Actualité
- Comment contourner un brouilleur - Forum Mobile
- Regarder match canadien en direct gratuit ✓ - Forum Réseaux sociaux
5 réponses
Même souci, la macro plante avec une 'Erreur d'exécution : 13 Icompatibilité de type" et le débogueur met en jaune :
TEST = Application.Match(Left(V, 2), CF, 0)
TEST = Application.Match(Left(V, 2), CF, 0)
Bonjour
Ajouter la déclaration de la variable v
Mais vous pouvez vous en passer en écrivant directement le résultat dans test
Cdlt
Ajouter la déclaration de la variable v
Dim v As Variant
Mais vous pouvez vous en passer en écrivant directement le résultat dans test
Dim i As Variant
Dim j As Variant
For i = 6 To 126
For j = 5 To 475
CF = Array("LM", "LL", "SL", "PF", "PM", "BV", "NP", "IF", "FO", "SB", "AM", "RT", "CP", "RE", "JV", "DE", 52, "", 0, "52")
TEST = Application.Match(Left(Cells(i, j), 2), CF, 0)
If IsError(TEST) Then Cells(i, j).Interior.Color = 255
Next
Next
Cdlt
Bonjour
l'incompatibilité vient non de J mais de la valeur "zéro-nombre" dans ton array :
en effet ton left(cells(i,j),2) transforme le zéro dans ta cellule en "zéro-texte"
essaie avec
"JV", "DE","","0", "52")
le "52-nombre" ne sert à rien et est supprimé
l'incompatibilité vient non de J mais de la valeur "zéro-nombre" dans ton array :
en effet ton left(cells(i,j),2) transforme le zéro dans ta cellule en "zéro-texte"
essaie avec
"JV", "DE","","0", "52")
le "52-nombre" ne sert à rien et est supprimé
Bonjour
En ligne 20 colonne "W" il ne trouve pas parce que la formule rechechev renvoi "#REF"
idem en ligne 23 colonne"Y"
Cdlt
En ligne 20 colonne "W" il ne trouve pas parce que la formule rechechev renvoi "#REF"
idem en ligne 23 colonne"Y"
Cdlt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Tu as mis un espion sur V et CF?