Inhiber une ligne de code sous condition
Bonjour
l'idée est simple.
a cause de la structure de boucles if imbriquées assez complexes, je voudrais EVITER une boucle IF qui décide si oui on non on fait l'opération et la remplacer un inhibiteur qui prend sa valeur dès le départ du code comme un paramètre
Je m'explique:
Je crée un fichier pour transférer de ma base de données des données produits prises dans ws1, en voici trois lignes
Code:
1
2
3
4
5
6
7
8
| 'Colonne Nom du produit K = 11
ws2.Cells(j, 11) = ws1.Cells(i, 40)
'Colonne Description L = 12
ws2.Cells(j, 12) = "<p>" & ws1.Cells(i, 43) & "</p>"
'Colonne Meta keywords M = 13
ws2.Cells(j, 13) = ws1.Cells(i, 64) |
Mais je veux poser une question au début du code, pour savoir si la description est à mettre à jour; la réponse à cette question pourrait valider un paramètre du style p, entier, p = 1 ou 0 selon que l'on veut ou pas, de sorte à neutraliser la ligne comme ça:
Code:
1
2
| 'Colonne Description L = 12
p*ws2.Cells(j, 12) = ("<p>" & ws1.Cells(i, 43) & "</p>")*p |
Ecrit comme ça c'est grossier, j'en convient, mais y aurait il une astuce pour éviter de boucler sur p uniquement pour cette ligne ?
sinon je me cogne
Code:
1
2
3
4
5
| 'Colonne Description L = 12
if p = 1 then
ws2.Cells(j, 12) = "<p>" & ws1.Cells(i, 43) & "</p>"
else
end if |
Ensuite, pour aller un peu plus loin, j'ai en fait deux cas de figure pour cette description,
=> elle est exécutée
=> elle n'est pas exécutée
=> elle est exécutée avec une autre valeur de cellule source, 37 au lieu de 43:
Code:
ws2.Cells(j, 12) = "<p>" & ws1.Cells(i, 37) & "</p>
Je suis sûr que vous allez avoir une idée géniale !
