Interdire texte dans un cellule

[gerard55]

Bonjour à tous
Je voudrais interdire que l'on saisit du texte dans les colonnes impaires d'un tableau. Il faudrait que cette interdiction soit sous forme de code car j'ai déjà utiliser les formats conditionnels
Merci d'avance pour vos suggestion
Gérard

 

[adel53]

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

 

[mécano41]

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 :

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

 

[gerard55]

Re : Interdire texte dans un cellule

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

 

[gerard55]

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 F10T200 car il y a des colonnes où je dois indiquer du texte.
Merci d'avance
Gérard

 

[mécano41]

Re : Interdire texte dans un cellule

Bonsoir,

Voici le code modifié :

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

 

[gerard55]

Re : Interdire texte dans un cellule

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