Test sur les colonnes

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2012

• #2

Re : Test sur les colonnes

Bonjour.
Déclarez en tête du module:

VB:

Dim L As Long

Dans la Worksheet_BeforeDoubleClick:

VB:

L = Target.Row

et remplacez vos "Target.Offset(0, -2)" et "ActiveCell.Offset(0, -2)" par "Cells(L, 2)"
À +

 

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 11 Janvier 2012

• #3

Re : Test sur les colonnes

Bonjour Dranreb,

Merci pour ta réponse c'est sympa, j'ai fait des essais mais je n'arrive pas a gérer les colonnes pour que ça marche

uniquement sur le mois en cours comme expliquer dans fichier joint.

Bonne journée

Raymond

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2012

• #4

Re : Test sur les colonnes

Les instruction qui portaient sur Target tout seul ne doivent pas être changées, seulement les Target.Offset(0, -2)

 

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 11 Janvier 2012

• #5

Re : Test sur les colonnes

Re Dranreb

Merci c'est bon ça marche bien

la je souhaiterai svp que seul le mois de Janvier soit actif

donc je devrais pas pouvoir passer les autres cellules en gris des autres mois

seul janvier


Merci bon app

raymond

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2012

• #6

Re : Test sur les colonnes

Testez si Target.column - 3 = Month(Date)

 

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 11 Janvier 2012

• #7

Re : Test sur les colonnes

Dranreb à dit:

Testez si Target.column - 3 = Month(Date)

Cliquez pour agrandir...

Merci pour la réponse, mais je ne vois pas comment faire pour les tests avec les dates.

A+

 

Vote positif 0 Vote négatif

B

Byfranck

XLDnaute Occasionnel

• 11 Janvier 2012

• #8

Re : Test sur les colonnes

Bonjour
Tout en haut de votre code vous commencez par:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cliquez pour agrandir...

insérez une ligne juste dessous avec:

If Target.Column - 3 <> Month(Date) Then Exit Sub

Cliquez pour agrandir...

(la macro ne se déclanchera que si vous cliquez le mois en cours




@+

 

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 11 Janvier 2012

• #9

Re : Test sur les colonnes

Bonjour ByFranck,

Merci pour la réponse et le code

ça marche comment, c'est valable pour seulement Janvier ou pour tout les mois

ca va se passer comment quand on changera de mois

Je veux bien une chite explication svp

je vais essayer les codes proposer voir ce que ca fait

Merci a + Ray

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2012

• #10

Re : Test sur les colonnes

Date représente la date d'aujourd'hui. (enfin de demain, demain. Et après demain, après demain.)
Month(Date) représente le numéro du mois d'aujourd'hui
Avec ce qu'on vous recommande de faire la procédure n'agira que si la sélection à lieu dans la colonne qui y correspond.

 

Dernière édition: 11 Janvier 2012

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 11 Janvier 2012

• #11

Re : Test sur les colonnes

Re

Ok merci pour les explications, alors il faudrait coder comment si par Exemple

je voulais faire effacer automatiquement la colonne (B) zone B4:B25 le premier de chaque mois

afin de repartir sur le nouveau mois en cours

A+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Janvier 2012

• #12

Re : Test sur les colonnes

Vous pourriez systématiquement dans ce cas effacer dans B4:B25 toute cellule ne contenant pas le nom du mois en cours.

 

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 11 Janvier 2012

• #13

Re : Test sur les colonnes

Re

un code qui ferait cette action par exemple:

Si égal le 01 de chaque mois alors effacer zone B4:B25 avec éventuellement un petit message

avant voulez vous "Effacer la colonne B O/N"

Je ne sais pas coder ça

Merci a +

 

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 11 Janvier 2012

• #14

Re : Test sur les colonnes

Salut Byfranck

j'ai essayer ton code ça fonctionne bien, reste a savoir comment cela fera pour le mois suivant

et quel code utiliser svp pour faire effacer automatiquement la colonne (B) zone B4:B25 le premier de chaque mois

Merci pour la réponse et le code

Raymond A +

 

Vote positif 0 Vote négatif