creation d'un code VBA a partir d'un feuille

[eduraiss]

Bonjour le forum,

J'ai plusieurs feuilles qui represente les inaptitude de certaines personnes

Dans une feuille code, il y a un code qui me permet dans un autre dosier de ne pas mettre les personnes a certains poste.

Je joins un fichier

Cordialement.

 

[skoobi]

Re : creation d'un code VBA a partir d'un feuille

Bonjour,

Tout code (ou macro) est créé dans VBE (l'éditeur de macro).
Tu ne peux créer un code directement dans une feuille.

 

[Dan]

Re : creation d'un code VBA a partir d'un feuille

Bonjour,

Que veux-tu obtenir dans la feuille Code par rapport à tes feuilles.
Mets le dans ton fichier, on pourra peut être t'aider.

A te relire

Dan

 

[eduraiss]

Re : creation d'un code VBA a partir d'un feuille

Bonjour skoobi et merci

Mais je ne sais pas comment faire

Il me faudrait mais je ne sais pas si cela sera possible identifier dans la feuille les inaptitudes et avoir un bouton pour les transfèrer dans le code

Merci

 

[Dan]

Re : creation d'un code VBA a partir d'un feuille

re,

Je me doutais de ta réponse.

Oui c'est possible mais pour que cela corresponde à ton souhait, mets un fichier avec un exemple de ce que tu veux dans la feuille Code.

A te relire

Dan

 

[eduraiss]

Re : creation d'un code VBA a partir d'un feuille

Re

Dans la feuille code il y a rien sauf le code dans visualisation code

Je voudrais tranferer les inaptitudes de chaque feuille pour (CLAVAUD G, REIX P) dans les code VBE de la feuille code

Si je mets l'inaptitude a CLAVAUD G "oui" en face de OPERATEUR L4, je voudrais que le code se modifie egalement.

je ne sais pas si je suis assez clair

Cordialement.

 

[eduraiss]

Re : creation d'un code VBA a partir d'un feuille

Re
voici le code que j'ai actuellement si je dit oui en face de la case "OPERATEUR L4" cela veux dire que CLAVAUD G ne peux pas être a ce poste donx voici le code qui me faudrait voir en 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 2 Then Exit Sub
For col = 7 To 2 Step -2
If Target.Column = col Then

If Target = "CLAVAUD G" And (Target.Offset(0, 2 - col) = "OPERATEUR PE" Or Target.Offset(0, 2 - col) = "REGLEUR PE" Or Target.Offset(0, 2 - col) = "CHEF D'EQUIPE L3" Then
MsgBox " Poste interdit à CLAVAUD G !"

End If

'If Target = "REIX P" And Target.Offset(0, 2 - col) = "OPERATEUR F" Then
'MsgBox " Poste interdit à REIX P !"

'End If

End If
Next
End Sub
2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 2 Then Exit Sub
For col = 7 To 2 Step -2
If Target.Column = col Then

If Target = "CLAVAUD G" And (Target.Offset(0, 2 - col) = "OPERATEUR PE" Or Target.Offset(0, 2 - col) = "REGLEUR PE" Or Target.Offset(0, 2 - col) = "CHEF D'EQUIPE L3" Or Target.Offset(0, 2 - col) = "OPERATEUR L4") Then
MsgBox " Poste interdit à CLAVAUD G

End If

'If Target = "REIX P" And Target.Offset(0, 2 - col) = "OPERATEUR F" Then
'MsgBox " Poste interdit à REIX P !"

'End If

End If
Next
End Sub

Merci

 

[Dan]

Re : creation d'un code VBA a partir d'un feuille

Re,

Si je mets OUI à OPERATEUR L4 dans CLAVAUD, rien ne se passe dans ton fichier puisque le CODE se trouve dans la feuille CODE et non dans la feuille CLAVAUD.

Par ailleurs, tu dis :

...voici le code qui me faudrait voir en 2...

Si je comprends ton fichier, tu veux que chaque fois tu mets OUI en colonne 3 pour CLAVAUD, le code t'affiche un message INAPTITUDE ?
Le nom est toujours en cellule A2 ?

A te relire

Dan

 

[eduraiss]

Re : creation d'un code VBA a partir d'un feuille

Bonjour le forum et a toi Dan

Il ne se passe rien dans la feuille code est c'est la le problème
voici le code actuel

If Target = "CLAVAUD G" And (Target.Offset(0, 2 - col) = "OPERATEUR PE" Or Target.Offset(0, 2 - col) = "REGLEUR PE" Or Target.Offset(0, 2 - col) = "CHEF D'EQUIPE L3" Then
MsgBox " Poste interdit à CLAVAUD G !"

voici le code qui me faudrait apres avoir mis OUI en face de OPERATEUR L4

If Target = "CLAVAUD G" And (Target.Offset(0, 2 - col) = "OPERATEUR PE" Or Target.Offset(0, 2 - col) = "REGLEUR PE" Or Target.Offset(0, 2 - col) = "CHEF D'EQUIPE L3" Or Target.Offset(0, 2 - col) = "OPERATEUR L4") Then
MsgBox " Poste interdit à CLAVAUD G

Een fait pour fait pour faire simple je met oui et en appuyant sur un bouton le code se modifie automatiquement.

Je ne crois que cela puisse ce faire mais bon

Cordialement