Test sur les colonnes

[eliot raymond]

Bonjour a toutes et tous, forum

Voila je souhaiterai svp faire quelques tests sur des colonnes afin d'afficher un message dans la colonne (B)

après maintes essais hé bien ça fonctionne pas.

Si quelqu'un veut bien regarder pour ce faire si cela est possible

Voir svp fichier ci-joint pour plus d'infos.

Merci a vous de votre aide ainsi que de votre temps, bonne journée.

Cordialement Raymond

 

[Dranreb]

Re : Test sur les colonnes

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

Dim L As Long

Dans la Worksheet_BeforeDoubleClick:

L = Target.Row

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

 

[eliot raymond]

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

 

[Dranreb]

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)

 

[eliot raymond]

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

 

[Dranreb]

Re : Test sur les colonnes

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

 

[eliot raymond]

Re : Test sur les colonnes

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

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

A+

 

[Byfranck]

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)

insérez une ligne juste dessous avec:

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

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




@+

 

[eliot raymond]

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

 

[Dranreb]

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.

 

[eliot raymond]

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+

 

[Dranreb]

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.

 

[eliot raymond]

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 +

 

[eliot raymond]

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 +