Code d'alerte sur plusieurs cellules ne fontionne pas

Pierrot93

XLDnaute Barbatruc

• 9 Mars 2008

• #2

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Bonjour Eduraiss

essaye peut être comme ci dessous, mais sur pas tout compris de résultat attendu si plusieurs cellules sélectionnées, à tester donc :

Code:

Option Explicit
Dim col&
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
    For col = 7 To 2 Step -2
        If Target.Column = col Then
            If Target = "CLAVAUD G" And (Target.Offset(0, 2 - col) = "EMBALLAGE L3" Or Target.Offset(0, 2 - col) = "LAMINEUR L3") Then
                MsgBox " Poste interdit à CLAVAUD G !"
        End If
      End If
    Next
Next c
End Sub

bon dimanche.
@+

 

Dernière édition: 9 Mars 2008

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Mars 2008

• #3

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Bonjour le forum et bonjour pierrot93

J'ai bien installé le code mais cela n'a pas l'air de fonctionner

Si tu déplace CLAVAUD G seul pas de problème cela fonctionne trés bien par contre si tu déplaces les trois cellules par exemple J4, J5, J6 ensemble la macro bug erreur d'exécution "13" imcompatibilité de type

Si tu peux voir merci a toi

Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Mars 2008

• #4

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Re

il y a ce test dans ton code :

Code:

If Target.Column = col Then

la variable "col" déclarée de nivau module n'est pas initialisé dans le code fourni...

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Mars 2008

• #5

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Re

ce que tu veux me dire est de déclarer la variable col?

Merci a toi

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Mars 2008

• #6

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Re

non, elle est déjà déclarée, mais à priori dans le fichier que tu a donné elle n'est pas valorisée, ce qui fait que tu as une comparaison numéro de la colonne modifiée et 0 ???

edition : ca va pas moi ce matin, oui elle est bien valorisée....

 

Dernière édition: 9 Mars 2008

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Mars 2008

• #7

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Re

si je reprend le précédent fil, ton fichier n'a plus rien à voir, la macro d'Excel-Lent marche très bien... Pour le fichier que tu proposes aujourd'hui, il faut peut être une autre approche.... A voir...

https://www.excel-downloads.com/threads/code-vba-pour-interdiction.90809/

@+

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Mars 2008

• #8

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Re bonjour

Oui c'est exact Pierrot93, ma demande de base était différente, c'est lorsque que j'ai essayer de la mettre dans le fichier source le code que je me suis aperçu de ce problème, qui est relativement problématique.

Je déplace très souvant plusieurs cellules a la fois, mais la cela provoque un bug au niveau du code, je ne peux donc pas utilise ce genre de code

Je pensais qu'il y aurait peut être une petite modification a faire

Merci

Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Mars 2008

• #9

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Re

c'est à ce niveau qu'il y a un souci :

Code:

Target.Offset(0, 2 - col)

quand ca détermine un numéro de colonne inférieure à 1, enfin je pense.

@+

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Mars 2008

• #10

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Re

je ne vois pas trop pourquoi le fait d'avoir ce code dans le feuille ne permet plus de déplacer plusieurs cellule a la fois

il faudrait mais bon je ne sais pas faire, une boucle sur les cellule déplace et ensuite voir si le noms d'une personne handicapées est a l'intérieur de ses cellules

Si oui message si non rien

Mais comment le traduire en code alors la mistère

Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Mars 2008

• #11

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Re

ta boucle sur les cellules modifiées se trouve dans la ligne de code ci dessous :

Code:

For Each c In Target

"target" représentant la plage modifiée.

ensuite il faut tester chaque élément de "target", soit

Code:

If c.Value = "tartenpion" Then

@+

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 9 Mars 2008

• #12

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Bonsoir le forum et merci pierrot pour ta reponse
Voici le code ci-dessous comment apporter les modifs STP

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim col As Integer
For Each c In Target
For col = 7 To 2 Step -2
If Target.Column = col Then
If Target = "CLAVAUD G" And (Target.Offset(0, 2 - col) = "EMBALLAGE L3" Or Target.Offset(0, 2 - col) = "LAMINEUR L3") Then
MsgBox " Poste interdit à CLAVAUD G !"
End If
End If
Next
Next c
End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Mars 2008

• #13

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Re

désolé, mais je n'ai toujours pas compris le résultat attendu sur ton derrnier fichier, quelles colonnes controlées, a priori ce ne sont plus les mêmes, ou tu peux, tu dois rentrer les nouveles données, sans doute des controles à faire... trop d'incertitude de mon point de vue pour te donner une solution.

Tu avais également dans le post précédant une proposition de Michel avec des listes de validation, cela semble une bonne piste également.

bonne soirée
@+

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 10 Mars 2008

• #14

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Bonjour le forum et a toi pierrot

Pour faire simple dans le fichier de mon premier post hier 8h57

si la personne qui a un hadicap est noté dans le code par exemple
If Target = "CLAVAUD G" And (Target.Offset(0, 2 - col) = "EMBALLAGE L3" Or Target.Offset(0, 2 - col) = "LAMINEUR L3
Un message se declanchera si je positionne CLAVAUD G sur les lignes EMBALLAGE L3 et LAMINEUR L3, la pas de problème

Si par contre je veux deplacer par exemple trois cellules (en glisser ou couper ou copier) avec CLAVAUD G a l'interieur ou pas cela bug

Merci a vous

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 10 Mars 2008

• #15

Re : Code d'alerte sur plusieurs cellules ne fontionne pas

Bonsoir le forum

Je pense qu'il ne doit pas y avoir de solution, ou peut être que mes explications ne sont pas assez précises, je ne sais pas

Dites moi s'il vous plait, car ce code est très important pour mon futur projet

Cordialement

 

Vote positif 0 Vote négatif