Interdire texte dans un cellule

A

adel53

XLDnaute Occasionnel

• 21 Septembre 2014

• #2

Re : Interdire texte dans un cellule

bonjour

Pourquoi ne pas utiliser la validation de données? pas besoin de vba pour répondre à ton besoin

Données => Validation de données

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 21 Septembre 2014

• #3

Re : Interdire texte dans un cellule

Bonjour à tous,

Sinon, (car je ne me rappelle plus s'il y avait une validation de données sous 2003) tu mets cela dans le code de la feuille :

Code:

Sub Worksheet_Change(ByVal Cible As Range)
If WorksheetFunction.IsOdd(Cible.Column) And Not (IsNumeric(Cible.Value)) Then
        Application.EnableEvents = False
        Cible.Value = ""
        Application.EnableEvents = True
End If
End Sub

Cordialement

 

Dernière édition: 21 Septembre 2014

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 21 Septembre 2014

• #4

Re : Interdire texte dans un cellule

Merci Adel53 et Mécano41, je vais étudier ces 2 propositions
bonne soirée
Gérard

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 22 Septembre 2014

• #5

Re : Interdire texte dans un cellule

Bonjour mécano41,
Je viens de tester votre code qui fonctionne très bien. Merci
Pourrait-on limiter l'action de ce code à une zone du tableau dans mon cas F10😀T200 car il y a des colonnes où je dois indiquer du texte.
Merci d'avance
Gérard

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 22 Septembre 2014

• #6

Re : Interdire texte dans un cellule

Bonsoir,

Voici le code modifié :

Code:

Sub Worksheet_Change(ByVal Cible As Range)
If Not Intersect(Cible, Range("F10:T200")) Is Nothing And WorksheetFunction.IsEven(Cible.Column) And Not (IsNumeric(Cible.Value)) Then
    Application.EnableEvents = False
    Cible.Value = ""
    Application.EnableEvents = True
End If
End Sub

J'ai considéré impaire la première colonne de la zone. Si tu veux décaler d'une colonne, il faut remplacer WorksheetFunction.IsEven(... par WorksheetFunction.IsOdd(...

Cordialement

 

Dernière édition: 22 Septembre 2014

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 23 Septembre 2014

• #7

Re : Interdire texte dans un cellule

Merci Mécano41 pour ce code et ces conseils.
A+
Gérard

 

Vote positif 0 Vote négatif