Discussion :

[Ropa48]

Bonjour,
débutant, j'ai une question sur une commende IF et un vrai pb sur une partie de la ligne de commande qui a pour objet de mettre sous condition le fond des cellules pour certaines lignes des colonnes A à G .
Dans un 1er temps, je test la syntaxe dans le dernier test de IF
If Worksheets(FeuilleBdc).Cells(BdcLigne, ColBdcExport) = "oui" Then Worksheets(FeuilleEcr).Range(Cells(Ecbcoldeb, EcbLigne), Cells(EcbcolFin, EcbLigne)).Interior.Color = RGB(255, 128, 128)
Voilà des heures que j’essaie plusieurs des solutions mais aucune ne fonctionne.
Par ailleurs concernant l'instruction IF, je ne comprend pas pourquoi,dés que je veux utiliser ELSE et/ou END IF je me fais jeter.

Si quelqu'un pouvait m'aider, je lui en serai vraiment reconnaissant
Cordialement
PS : le code source est dans le fichier excel joint sous le nom test1 Alt + F11 et dans le fichier Code test1.pdf

PJ : Fichier test
Description du traitement a effectuer

[halaster08]

Bonjour,

Plutôt qu'un fichier joint, donne directement ton code (penses aux balises code) tu auras plus de réponse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Ecbcoldeb, EcbLigne), Cells(EcbcolFin, EcbLigne)

Tu a inverser ligne et colonne

Il y a plusieurs syntaxe possible pour le if

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
if condition then instruction 'sur une ligne
 
if condition then
instruction 1
instruction 2
...
end if 'sur plusieurs ligne
 
if condition then
instruction 1
instruction 2
...
else
instruction 1
instruction 2
...
end if 'avec un else

[Ropa48]

Bonjour,

Merci, pour l'info
Concernant la syntaxe du code, j'avais déjà essayé avec la syntaxe que tu m'indiques par acquis de conscience je viens de réessayer mais c'est aussi en erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets(FeuilleBdc).Cells(BdcLigne, ColBdcExport) = "oui" Then Worksheets(FeuilleEcr).Range(Cells(EcbLigne, Ecbcoldeb), Cells(EcbLigne, EcbcolFin)).Interior.Color = RGB(255, 128, 128)

concernant la syntaxe j'ai essayé comme tu me l'indiques mais avec une seule instruction après Then entre if et else, mais en erreur aussi.
Franchement je suis perdu

La totalité du code est dans le fichier Excel Test1 alt+F11 et je l'ai rajouté en Pdf, mais beaucoup moins lisible .
CdT

[mjpmjp]

bonjour,
est ce normal ?

Cells(EcbLigne, EcbLigne)

@+JP

[Ropa48]

Bonjour,
Merci pour la réponse, Non effectivement ce n'est pas normal la colonne devrait être à Ecbcoldeb, je vais rectifier!
Pour le test cela ne gêne pas car le but est de tester que la dernière ligne renseignée est passée. et j'ai mis juste quelques lignes
afin de tester le VBA avec toutes les conditions.
J'ai déjà testé client inconnu et cela fonctionne, par contre pour le test de colorisation de plusieurs cellules (test du dernier if), je crois avoir essayé dans tous les sens sans y arriver, mais bon je suis bien conscient que l'erreur c'est moi qui la génère et je n'arrive pas a trouver la solution
Cdt

[mjpmjp]

bonjour,

peut être ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 Worksheets(FeuilleBdc).Activate
    BdcLigne = BdcLigne

@+JP

[halaster08]

La totalité du code est dans le fichier Excel Test1 alt+F11 et je l'ai rajouté en Pdf, mais beaucoup moins lisible .
CdT

Pourquoi faire simple quand on peut faire compliqué ... tu aurais pu zippé le pdf aussi ça aurait été encore mieux

Pourquoi ne pas copier directement le code dans ton message ?

[Ropa48]

Pourquoi faire simple quand on peut faire compliqué ... tu aurais pu zippé le pdf aussi ça aurait été encore mieux

Pourquoi ne pas copier directement le code dans ton message ?

Sans doute est ce parce que c'est la première fois que j'utilise ce forum ou ???? ce n'est pas impossible !
A l'avenir concernant mes posts Je suivrai le principe de La Rochefoucauld.
"La simplicité, qui devrait être une qualité naturelle, a souvent besoin d’étude pour s’acquérir."