Pas de données dans une colonne

[eliot raymond]

Bonsoir Tous le monde, Bonsoir Forum,

Si vous avez encore deux petites minutes alors SVP juste un petit test en code VBA car je souhaiterai ne pas entrer de données au clavier dans une colonne EX: De J2:J27 mais par contre que rien d'empeche d'afficher des données venant d'une autre colonne.

(1) pas d'entrée autoriser au CLAVIER dans la plage J2:J27

(2) mais par contre on peut afficher

Merci bien et bonne soirée a tous

Raymond

 

[Tibo]

Re : Pas de données dans une colonne

Bonjour,

à défaut de solution VBA, une piste :

Sélectionner de A1 à A20 (par exemple), puis Données - Validation - Autoriser : Personnalisé - Formule : =ESTVIDE(A1)

Validation à mettre après avoir mis le cas échéant des formules.

A savoir : cette validation permet de ne pas pouvoir saisir de valeur au clavier (comme demandé), mais elle n'empèche pas de coller des données sur ces cellules

Bonne soirée.

@+

 

[eliot raymond]

Re : Pas de données dans une colonne

Bonsoir Tibo forum

Merci bien c'est sympa, Dit moi ce n'ai pas possible en VBA j'aurai voulu savoir comment on procede ca pourrait me servir pour plus tard.

Merci a toi Tibo et bonne soiree.

Raymond

 

[eliot raymond]

Re : Pas de données dans une colonne

Bien le bonjour Tibo, Forum bonjour,

Je ne sais pas si tu as vu ma reponse d'hier soir, mais comme je suis en train d'apprendre le VBA, peut tu me dire si c'est possible de faire en VBA et comment bien sur, accompagner d'un grand STP.

Merci d'avance et bonne journée. (pas de données dans une colonne)

Raymond

 

[Tibo]

Re : Pas de données dans une colonne

Bonjour raymond,

J'ai bien vu ta réponse, mais le souci, c'est qu'en matière de VBA, je suis proche du zéro absolu.

Il va donc falloir attendre le passage de Vbaïstes émérites qui pourront t'apporter une réponse.

Bonne journée

@+

 

[James007]

Re : Pas de données dans une colonne

Bonjour,

Tu peux tester ce code ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J2:J27")) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub

A +

 

[eliot raymond]

Re : Pas de données dans une colonne

Re Tibo

Merci pour ta réponse, je vais attendre et suivre ca,

Te dit @+ aussi et bon courage, j'aime bien ce site j'y ai déja appris beaucoup.
Raymond

 

[eliot raymond]

Re : Pas de données dans une colonne

Bonjour James007, Forum

Merci pour le petit code mais peut'on le placer dans

Private Sub Worksheet_Change(ByVal Target As Range)

plutot que Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ce qui m'arrangerai vraiment bien si possible STP.

Merci et a plus tard bonne journée

Raymond