Lien menu deroulant Feuille excel

Re : Lien menu deroulant Feuille excel

Bonjour,

pas tout compris, modifie déjà peut être ceci :

bonne journée
@+

Re : Lien menu deroulant Feuille excel

Merci pierrot, Apparement le probleme a disparu. Cepandant j'ai une autre question:

Je veux appliquer ce code a toutes les cellules de la colonne AC de 6 jusqu'a 100 et de meme pour la colonne BM, y a t il un moyen simple de le faire au lieu d'ecrire a chaque fois Or Target.Address= "$AC$6" puis 7 puis 8 etc..

Merci

Re : Lien menu deroulant Feuille excel

Re,

regarde ceci :

Re : Lien menu deroulant Feuille excel

salut Pierrot,

Je suis debutant et j'ai peur de ne pas bien avouir saisi ou metter la ligne de code que tu vien de me donner. Peux tu la placer dans le code initial ci dessous:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Target.Address = "$AC$6" Or "$BM$6" Then
If Target = "Rejected and will be resubmitted" Then Call movetoResubmission
End If
End Sub

Re : Lien menu deroulant Feuille excel

Salut tout le monde,

J'ai pu resoudre partiellement le probleme: en utilisant le code suivant:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Target.Address = "$AC$6" Or Target.Address = "$AL$6" Or Target.Address = "$AU$6" Or Target.Address = "$BD$6" Or Target.Address = "$BM$6" Or Target.Address = "$BV$6" Or Target.Address = "$CE$6" Or Target.Address = "$CN$6" Or Target.Address = "$CW$6" Or Target.Address = "$DF$6" Or Target.Address = "$DO$6" Or Target.Address = "$DX$6" Or Target.Address = "$EG$6" Or Target.Address = "$EP$6" Or Target.Address = "$EY$6" Or Target.Address = "$FH$6" Or Target.Address = "$FQ$6" Or Target.Address = "$FZ$6" Or Target.Address = "$GI$6" Or Target.Address = "$GR$6" Or Target.Address = "$HA$6" Or Target.Address = "$HJ$6" Or Target.Address = "$HS$6" Or Target.Address = "$IB$6" Or Target.Address = "$IK$6" Or Target.Address = "$IT$6" Or Target.Address = "$JC$6" Or Target.Address = "$JL$6" Or Target.Address = "$JU$6" Then
If Target = "Rejected and will be resubmitted" Then Call movetoResubmission
Else

Repeter la meme chose en changeant le numero de la ligne: 7, 8, 9...... mais en arrivant a 100 j'ai un message d'erreur me disant the procedure is too large y a t il un moyen pour contourner ce problem ou une maniere differente d'ecrire ce code de maniere a couvrir au mon les 200 premiere lignes.

Merci d'avance pour votre aide.

Re : Lien menu deroulant Feuille excel

Bonjour,

si tu veux placer le code dans le module "thisworkbook" :

Ce code se déclenchera à chaque modification, et ce quelque soit la feuille du classeur en question...

bonne journée
@+