Créer une macro si et faire fonctionner une macro malgré un verouillage des cellules

K

kjin

XLDnaute Barbatruc

• 3 Décembre 2012

• #2

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Bonjour,
1

Code:

If Ucase([X3]) = "OUI" and [Y3]="" Then [AA3] = ""

2
Pour que le verrouillage des cellules soit effectif il faut que la feuille soit protégée
Donc, si c'est le cas

Code:

Activesheet.UnProtect Mdpasse éventuel entre guillemets
...la procédure
Activesheet.Protect Mdpasse éventuel entre guillemets

A+
kjin

 

Vote positif 0 Vote négatif

A

agnes95

Guest

• 3 Décembre 2012

• #3

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Merci beaucoup de votre reponse mais cela fonctionne que pour a ligne 3 alors que mon tableau dispose environ de 700 lignes et la formule que j'ai mise est valable pour toute les lignes (j'ai "glissé" la formule pour qu'elle fonctionne sur toute les lignes.

Merci de votre aide

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Décembre 2012

• #4

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Re,

agnes95 à dit:

cela fonctionne que pour a ligne 3 alors que mon tableau dispose environ de 700 lignes et la formule que j'ai mise est valable pour toute les lignes

Cliquez pour agrandir...

Bé c'est pas très compliqué, il suffit de tester la ligne qui contient la cellule active (--> Target)

Code:

dim L#
L = target.row
If Ucase(range("X" & L)) = "OUI" and (range("Y" & L)) ="" Then (range("AA" & L)) = ""

Maintenant, avec un fichier allégé, ce serait sans doute plus efficace...
A+
kjin

 

Vote positif 0 Vote négatif

A

agnes95

Guest

• 3 Décembre 2012

• #5

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Comme demandé voici un fichier allégé, en esperant que cela puisse être plus simple et que tu puisse m'aider....

Je suis novice en VBA et donc pas autonome du tout, par ailleurs je m'en excuse.

Merci beaucoup pour cette aide précieuse

Agnès

 

Pièces jointes

• EXEMPLE.xls

  42.5 KB · Affichages: 63
• EXEMPLE.xls

  42.5 KB · Affichages: 60
• EXEMPLE.xls

  42.5 KB · Affichages: 55

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Décembre 2012

• #6

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Bonjour agnes25

Salut kjin

A tester:

Code:

If Target.Column = 24 Or Target.Column = 25 Then
     If UCase(Range("X" & Target.Row)) = "OUI" And Range("Y" & Target.Row).Value = "" Then
       Range("AB" & Target.Row) = Range("AA" & Target.Row)
     Else
       Range("AB" & Target.Row) = ""
     End If
   End If

 

Vote positif 0 Vote négatif

A

agnes95

Guest

• 3 Décembre 2012

• #7

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Merci pour ce code mais quel "Sub" mettre au début?

Merci encore

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Décembre 2012

• #8

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Re, salut Pierre Jean🙂,
Tu n'indiques pas dans quel cas les changements doivent intervenir dans la colonne AA !!!
Tu saisies une valeur en colonne 24, 25, les 2, une autre colonne...
A+
kjin

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Décembre 2012

• #9

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Re

Comme tu l'avais fait:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

 

Vote positif 0 Vote négatif

A

agnes95

Guest

• 3 Décembre 2012

• #10

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Ca ne veux pas fonctionner, il me mets une erreur sur la première ligne :
Private Sub Worksheet_Change(ByVal Target As Range)

Peux être qu'il ne peux pas y avoir deux Private Sub Worksheet_Change l'une sous l'autre

🙁🙁🙁

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Décembre 2012

• #11

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Re,

agnes95 à dit:

Peux être qu'il ne peux pas y avoir deux Private Sub Worksheet_Change l'une sous l'autre

Cliquez pour agrandir...

C'est sûr, mais si tu réponds à la question 8....
A+
kjin

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Décembre 2012

• #12

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Re

Oui il ne doit y avoir qu'une Private Sub Worksheet_Change

 

Vote positif 0 Vote négatif

A

agnes95

Guest

• 3 Décembre 2012

• #13

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Excuse moi je n'avais pas vu la question 8.

Une fois que la personne a declenché sa facture (sur un tout autre logiciel), elle ouvre le fichier excel et doit indiqué "oui" via la liste déroulante en colonne X, à ce moment la en colonne AA et AB il y a la date du jour qui apparait.
Ensuite si elle mets un commentaire en colonne Y, la date du jour ce mets en colonne Z (Date du commentaire) et la date indiqué en AB doit disparaître (car l'envoi ce fera à posteriorie et sera donc indiqué en manuel ultérieurement)

En esperant avoir été le plus claire possible.

Encore mille excuse de ne pas avoir répondu à la question.

Merci
Agnès

 

Vote positif 0 Vote négatif

A

agnes95

Guest

• 3 Décembre 2012

• #14

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Sauriez vous si c'est possisble de faire quelque chose?

Sans cette macro je dois repenser mon tableau 🙁

Encore merci de vos reponses

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Décembre 2012

• #15

Re : Créer une macro si et faire fonctionner une macro malgré un verouillage des cell

Re

Ceci ne convient pas ?????

 

Pièces jointes

• agnes_EXEMPLE.xls

  44.5 KB · Affichages: 47

Vote positif 0 Vote négatif