Sélectionner la cellule au dessus de la cellule modifiée

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Février 2013

• #2

Re : Sélectionner la cellule au dessus de la cellule modifiée

Bonjour Chris,

ton fichier en retour

à+
Philippe

 

Pièces jointes

• 111.xls

  49 KB · Affichages: 48
• 111.xls

  49 KB · Affichages: 52
• 111.xls

  49 KB · Affichages: 47

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 9 Février 2013

• #3

Re : Sélectionner la cellule au dessus de la cellule modifiée

Bonjour et merci Philippe c'est maqique!
Je vais essayer de bien comprendre le principe.

J'espère ne pas trop abuser mais j'ai une autre petite question.
J'aimerais que l'Userform ne s'affiche pas lorsque je supprime le contenu de la cellule dans la plage (C7 à L7).

Est-ce que c'est possible?

Cordialement

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 9 Février 2013

• #4

Re : Sélectionner la cellule au dessus de la cellule modifiée

Salut chris6999, Philippe🙂, le Forum

A tester

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target,[C7:L7]) Is Nothing Then [A1] = Target.Column: UserForm1.Show
End Sub

Bonne Journée

 

Dernière édition: 9 Février 2013

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 9 Février 2013

• #5

Re : Sélectionner la cellule au dessus de la cellule modifiée

Bonjour et merci DULL

Ta proposition fonctionne mais par contre quand je supprime le contenu de la cellule l'Userform s'affiche toujours.

Cordialement

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 9 Février 2013

• #6

Re : Sélectionner la cellule au dessus de la cellule modifiée

Re le Fil

Alors peut -être cela

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, [C7:L7]) Is Nothing Then [A1] = Target.Column: UserForm1.Show
End Sub

Bonne Journée

 

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 9 Février 2013

• #7

Re : Sélectionner la cellule au dessus de la cellule modifiée

Bravo DULL cela fonctionne nickel/

Merci encore à tous les deux et bonne journée

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Février 2013

• #8

Re : Sélectionner la cellule au dessus de la cellule modifiée

Re bonjour à tous

une modif concernant l'effacement de la cellule de la ligne 6 lorsqu'on supprime une donnée de la ligne 7

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [C7:L7]) Is Nothing And Target = "" Then
Target.Offset(-1, 0) = ""
Exit Sub
End If
If Not Intersect(Target, [C7:L7]) Is Nothing Then [A1] = Target.Column: UserForm1.Show
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 9 Février 2013

• #9

Re : Sélectionner la cellule au dessus de la cellule modifiée

salut

Si... tu veux te dispenser de l'userform :

Code:

Private Sub Worksheet_Change(ByVal R As Range)
  Dim T As Byte
  If Intersect(R, [C7:L7]) Is Nothing Or R.Count > 1 Then Exit Sub
  If IsDate(R) Then
    T = 1 + Int((Month(R) - 1) / 3)
    R(0, 1) = T & IIf(T = 1, "er", "ème")
  Else
    Application.EnableEvents = False
    R = "": R(0, 1) = ""
    Application.EnableEvents = True
  End If
End Sub

 

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 9 Février 2013

• #10

Re : Sélectionner la cellule au dessus de la cellule modifiée

Merci Philippe

C'est la cerise sur le gateau

Bonne journée

 

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 9 Février 2013

• #11

Re : Sélectionner la cellule au dessus de la cellule modifiée

Bonjour
Ta proposition me faciliterait grandement les choses sauf que....
Le trimestre qui remonte n'est pas forcément celui du mois.
Je m'explique :

Les dates du 1 au 6 janvier sont rattachées au 4ème trimestre de l'année précédente et non au 1er trim de l'année en cours.

Pou février et mars aucun problème qq soit le jour c'est bien le 1er trimestre qui doit remonter.

Les dates du 1 au 6 avril sont rattachées au 1er trimestre (et non au second) et ainsi desuite

Si tu as une idée du comment écrire un code pouvant intégrer ces contraintes...

Merci et cordialement

Si... à dit:

salut

Si... tu veux te dispenser de l'userform :

Code:

Private Sub Worksheet_Change(ByVal R As Range)
  Dim T As Byte
  If Intersect(R, [C7:L7]) Is Nothing Or R.Count > 1 Then Exit Sub
  If IsDate(R) Then
    T = 1 + Int((Month(R) - 1) / 3)
    R(0, 1) = T & IIf(T = 1, "er", "ème")
  Else
    Application.EnableEvents = False
    R = "": R(0, 1) = ""
    Application.EnableEvents = True
  End If
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif