Jacques25bis
XLDnaute Junior
Bonjour à tous,
J'essaye d'optimiser un code pour en améliorer la lecture tout en essayant de rester performant. Je bloque sur un problème de syntaxe je pense avec le bout de code suivant :
RQ1 est une checkbox, donnée est défini plus haut et RQ_Nom est une cellule nommée
Si j'écris :
Dim réclamQ as worksheet, Dérog as worksheet
Set RéclamQ= thisworkbook.sheets("RéclamQ")
Set Dérog= thisworkbook.sheets("Dérog")
If RéclamQ.RQ1.value=true then
with Dérog
.[D5]=donnée
.[M5]=[RQ_Nom]
End with
... Ca ne marche pas alors que :
Dim réclamQ as worksheet, Dérog as worksheet
If worksheet("RéclamQ").RQ1.value=true then
with Dérog
.[D5]=donnée
.[M5]=[RQ_Nom]
End with
Avez vous une explication svp?
2ème question :
Si ma checkbox RQ1 est cochée, j'ai des actions à faire sur 2 onglets différents, est-ce que avec seulement with.... End with c'est suffisant ou est-ce qu'il faut que je fasse un select ou activate entre les 2?
Ce qui donnerai (avec mon de code qui fonctionne :
If worksheet("RéclamQ").RQ1.value=true then
Dérog. select ou .activate ou rien
with Dérog
.[D5]=donnée
.[M5]=[RQ_Nom]
End with
RéclamS. select ou .activate ou rien
with RéclamS
...
...
end with
Merci de votre aide
@ plus
Jack
J'essaye d'optimiser un code pour en améliorer la lecture tout en essayant de rester performant. Je bloque sur un problème de syntaxe je pense avec le bout de code suivant :
RQ1 est une checkbox, donnée est défini plus haut et RQ_Nom est une cellule nommée
Si j'écris :
Dim réclamQ as worksheet, Dérog as worksheet
Set RéclamQ= thisworkbook.sheets("RéclamQ")
Set Dérog= thisworkbook.sheets("Dérog")
If RéclamQ.RQ1.value=true then
with Dérog
.[D5]=donnée
.[M5]=[RQ_Nom]
End with
... Ca ne marche pas alors que :
Dim réclamQ as worksheet, Dérog as worksheet
If worksheet("RéclamQ").RQ1.value=true then
with Dérog
.[D5]=donnée
.[M5]=[RQ_Nom]
End with
Avez vous une explication svp?
2ème question :
Si ma checkbox RQ1 est cochée, j'ai des actions à faire sur 2 onglets différents, est-ce que avec seulement with.... End with c'est suffisant ou est-ce qu'il faut que je fasse un select ou activate entre les 2?
Ce qui donnerai (avec mon de code qui fonctionne :
If worksheet("RéclamQ").RQ1.value=true then
Dérog. select ou .activate ou rien
with Dérog
.[D5]=donnée
.[M5]=[RQ_Nom]
End with
RéclamS. select ou .activate ou rien
with RéclamS
...
...
end with
Merci de votre aide
@ plus
Jack