If trop long, existe il une autre façon de faire ?

Question

Bonsoir, une partie de ma macro regarde si dans chaque cellule il y a au moins un de ces termes la, sachant que si c'est le cas, il n'y aura pas uniquement ce terme, d'où l'emploi de "InStrRev". N'y a t il pas un moyen de mettre tout ces termes dans un groupes pour ne faire qu'un seul "if" afin d’alléger la macro ? Merci d'avance ...

vbMsgBoxHelpButton · Answer

Bonsoir, mettre les termes de chaque partie des IF dans un tableau puis faire une boucle de chaque tableau pour tester si A VERIFIER est contenu dans ce tableau, une valeur boolean à TRUE si trouver sinon False, si FALSE on teste le deuxième tableau avec les termes du deuxième groupe de "ou", sinon on fait ce que l'on doit faire si c'est trouvé....

Mais là à la lecture c'est "imbuvable" en plus vous vous êtes trompés de balise, il faut utiliser les balises "code".

vbMBHB

Curulis · Answer

Salut l'équipe,

sauf erreur, d'un ElseIf à l'autre, BonneColonne = toujours BonneColonne...

... pas plus facile de chercher la brebis galeuse?

Alors, pour rire, hein?, vu l'heure et le... euh, non, les verres de vin siphonnés à l'occasion des 20 et 25 ans de deux de mes jeunes, je te signale qu'il n'y a déjà qu'un seul IF dans ta macro, comme tu le souhaites.

Ben, oui, sinon, ce sont des ElseIf...

Bon, d'accord...

Verrai mieux demain..., enfin, tout à l'heure...

A+

Steelson · Answer

Mieux vaut mettre ces données

Mauvais = Array("Football (", "Football(", "France (", "Ligue 1 Conforama (", "Allemagne (", "Allemagne(", "Domino's Ligue 2 (", "Coupe de la Ligue (", "Angleterre (", "Espagne (", "Italie (", "Portugal (", "Argentine (", "Belgique (", "Ligue des Champions(", "Ligue Europa (", "Ch. du Monde(", "Ch. du Monde (", "Coupe du Monde 2018(", "Amérique du Sud (", "Autriche (", "Autriche(", "Belgique (", "Bosnie-Herzégovine(", "Bulgarie (", "Chili (", "Chypre (", "Colombie (", "Croatie (", "Danemark (", "Ecosse (", "Grèce (", "Etats-Unis (", "République Tchèque(", "République Tchèque (", "Israël (", "Maroc (", "Mexique (", "Score exact (", "Pays-Bas (", "Pologne (", "Roumanie (", "Russie (", "Serbie (", "Turquie (", "Basketball (", "Rugby", "Hockey", "Handball (", "Handball(", "Handball (", "Badminton(", "Badminton (", "Slovaquie(", "Slovaquie (", "Suède (", "Suède(", "Norvège(", "Norvège (", _
"Volley", "Auto-Moto", "Baseball", "Boxe", "Football Américain", "Golf", "Rugby à XIII", "Snooker", "Cyclisme", "Sports d'hiver", "Tennis", "Pays de Galles", "Tous", "Résultat (", "Finlande(", "Finlande (", "Suisse (", "Suisse(", "NFL (", "NFL(", "Ecart de buts", "Total de buts", "Buts par équipe", "Autre", "Football Américain (", "Golf (", "Rugby à XIII (", "Snooker (", "Cyclisme (", "Sports d'hiver (", "Tennis (", "Pays de Galles (", "Tous", "Résultat (", "Compétition ", "Saison régulière (", "Buteurs", "Ce match fait partie d'un contest JDE actuellement disponible dans le lobby des contests. Sélectionnez vos joueurs favoris afin de partager la dotation avec les meilleurs entraineurs !", "JDE", "Total de points", "Ecart de points", "Scoreurs", "SE CONNECTER S'INSCRIRE", "Basketball", "NHL(", "NHL (", "KHL (", "KHL(")

dans une feuille excel, ce sera plus lisible et mieux maintenable !

J vais aussi m'en servir du coup pour trifouiuller le JSON du site winamax

Theze · Answer

Pour effectuer une recherche avec InStr(), tu peux concaténer tes chaines. Dans mon exemple, j'ai concaténé avec comme séparateur le point-virgule pour plus de lisibilité mais sinon, il ne sert à rien d'autre et tu peux t'en passer. J'ai respecté tes 6 chaines mais tu peux n'en faire qu'une seule (voir second code). Pour le test, les cellules contenant le mot trouvé dans les 6 chaines sont colorées de différentes couleurs selon la chaine, à adapter à tes besoins : Sub Test() Dim Lig As Integer Dim Col As Integer Dim Chaine1 As String Dim Chaine2 As String Dim Chaine3 As String Dim Chaine4 As String Dim Chaine5 As String Dim Chaine6 As String Dim AVerifier As String Chaine1 = "Football (;Football(;France (;Ligue 1 Conforama (;Allemagne (;Allemagne(;Domino's Ligue 2 (;Coupe de la Ligue (;Angleterre (;Espagne (" Chaine1 = Chaine1 &amp; ";Italie (;Portugal (;Argentine (;Belgique (;Ligue des Champions(;Ligue Europa (;Ch. du Monde(;Ch. du Monde (" Chaine2 = "Coupe du Monde 2018(;Amérique du Sud (;Autriche (;Autriche(;Belgique (;Bosnie-Herzégovine(;Bulgarie (;Chili (;Chypre (" Chaine2 = Chaine2 &amp; ";Colombie (;Croatie (;Danemark (;Ecosse (;Grèce (;Etats-Unis (;République Tchèque(;République Tchèque (" Chaine3 = "Israël (;Maroc (;Mexique (;Score exact (;Pays-Bas (;Pologne (;Roumanie (;Russie (;Serbie (;Turquie (;Basketball (;Rugby" Chaine3 = Chaine3 &amp; ";Hockey;Handball (;Handball(;Badminton(;Badminton (;Slovaquie(;Slovaquie (;Suède (;Suède(;Norvège(;Norvège (" Chaine4 = "Volley;Auto-Moto;Baseball;Boxe;Football Américain;Golf;Rugby à XIII;Snooker;Cyclisme;Sports d'hiver" Chaine4 = Chaine4 &amp; ";Tennis;Pays de Galles;Tous;Résultat (;Finlande(;Finlande (;Suisse (;Suisse(;NFL (;NFL(" Chaine5 = "Ecart de buts;Total de buts;Buts par équipe;Autre;Football Américain (;Golf (;Rugby à XIII (;Snooker (;Cyclisme (;Sports d'hiver (" Chaine5 = Chaine5 &amp; ";Tennis (;Pays de Galles (;Tous;Résultat (;Compétition ;Saison régulière (" Chaine6 = "Buteurs;Ce match fait partie d'un contest JDE actuellement disponible dans le lobby des contests. Sélectionnez vos joueurs favoris afin de partager la dotation avec les meilleurs entraineurs !" Chaine6 = Chaine6 &amp; ";JDE;Total de points;Ecart de points;Scoreurs;SE CONNECTER S'INSCRIRE;Basketball;NHL;NHL (;KHL (;KHL(" With Sheets("Tableau") For Lig = 1 To 10 For Col = 1 To 10 AVerifier = .Cells(Lig, Col).Value If AVerifier &lt;&gt; "" Then If InStr(Chaine1, AVerifier) &gt; 0 Then .Cells(Lig, Col).Interior.ColorIndex = 4 'vert clair If InStr(Chaine2, AVerifier) &gt; 0 Then .Cells(Lig, Col).Interior.ColorIndex = 7 'rose If InStr(Chaine3, AVerifier) &gt; 0 Then .Cells(Lig, Col).Interior.ColorIndex = 8 'bleu If InStr(Chaine4, AVerifier) &gt; 0 Then .Cells(Lig, Col).Interior.ColorIndex = 19 'jaune If InStr(Chaine5, AVerifier) &gt; 0 Then .Cells(Lig, Col).Interior.ColorIndex = 13 'violet If InStr(Chaine6, AVerifier) &gt; 0 Then .Cells(Lig, Col).Interior.ColorIndex = 22 'saumon End If Next Col Next Lig End With End Sub Une seule chaine : Sub Test() Dim Lig As Integer Dim Col As Integer Dim Chaine As String Dim AVerifier As String Chaine = "Football (;Football(;France (;Ligue 1 Conforama (;Allemagne (;Allemagne(;Domino's Ligue 2 (;Coupe de la Ligue (;Angleterre (;Espagne (" Chaine = Chaine &amp; ";Italie (;Portugal (;Argentine (;Belgique (;Ligue des Champions(;Ligue Europa (;Ch. du Monde(;Ch. du Monde (" Chaine = Chaine &amp; "Coupe du Monde 2018(;Amérique du Sud (;Autriche (;Autriche(;Belgique (;Bosnie-Herzégovine(;Bulgarie (;Chili (;Chypre (" Chaine = Chaine &amp; ";Colombie (;Croatie (;Danemark (;Ecosse (;Grèce (;Etats-Unis (;République Tchèque(;République Tchèque (" Chaine = Chaine &amp; "Israël (;Maroc (;Mexique (;Score exact (;Pays-Bas (;Pologne (;Roumanie (;Russie (;Serbie (;Turquie (;Basketball (;Rugby" Chaine = Chaine &amp; ";Hockey;Handball (;Handball(;Badminton(;Badminton (;Slovaquie(;Slovaquie (;Suède (;Suède(;Norvège(;Norvège (" Chaine = Chaine &amp; "Volley;Auto-Moto;Baseball;Boxe;Football Américain;Golf;Rugby à XIII;Snooker;Cyclisme;Sports d'hiver" Chaine = Chaine &amp; ";Tennis;Pays de Galles;Tous;Résultat (;Finlande(;Finlande (;Suisse (;Suisse(;NFL (;NFL(" Chaine = Chaine &amp; "Ecart de buts;Total de buts;Buts par équipe;Autre;Football Américain (;Golf (;Rugby à XIII (;Snooker (;Cyclisme (;Sports d'hiver (" Chaine = Chaine &amp; ";Tennis (;Pays de Galles (;Tous;Résultat (;Compétition ;Saison régulière (" Chaine = Chaine &amp; "Buteurs;Ce match fait partie d'un contest JDE actuellement disponible dans le lobby des contests. Sélectionnez vos joueurs favoris afin de partager la dotation avec les meilleurs entraineurs !" Chaine = Chaine &amp; ";JDE;Total de points;Ecart de points;Scoreurs;SE CONNECTER S'INSCRIRE;Basketball;NHL;NHL (;KHL (;KHL(" With Sheets("Tableau") For Lig = 1 To 10 For Col = 1 To 10 AVerifier = .Cells(Lig, Col).Value If AVerifier &lt;&gt; "" Then If InStr(Chaine, AVerifier) &gt; 0 Then .Cells(Lig, Col).Interior.ColorIndex = 4 'vert clair End If Next Col Next Lig End With End Sub...

vbMsgBoxHelpButton · Answer

Bonjour à tous ! Là on a bien représenté le principe d'un Forum : place public où on échange ! Pour ma part j'ai le rôti à mettre à cuire, donc je vous laisse ! vbMBHB...

Steelson · Answer

Ce dont je me suis aperçu, c'est que les données envoyées sous forme Json sont toujours les mêmes, que ce soit au niveau du site ou au niveau de l'un des matches, le parti pris du web-designer a été de renvoyer le traitement des données vers le poste client ... et donc si on arrive à décoder proprement le Json on aura tout ce qu'il faut en une seule interrogation ! encore faut-il y arriver ...

Steelson · Answer

Pour le moment j'en suis là sur le principe https://forum.excel-pratique.com/viewtopic.php?f=2&t=102624&p=602797#p602797 je mettrai l'adresse web en paramètre...

Steelson · Answer

Tu as raison, c'est différent voir ici avec le paramètre www dans la feuille est-ce que tu peux me dire quelles données t'intéressent ici ...