VBA

Fermé
Signaler
-
 Zeni -
Bonjour à tous,

J'ai trouvé une macro sur votre forum que me serait bien utile mais voilà je suis novice et je voudrais que la macro s'applique de la colonne 4 à 9. Quelqu'un peut-il venir à mon secours ? Merci beaucoup :-)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Then 'Ajuster le no de la colonne
On Error Resume Next
If IsNumeric(Target) And Target <> "" Then
Target = Left(Target, Len(Target) - 2) & ":" & Right(Target, 2)
End If
End If
Application.EnableEvents = True
End Sub

3 réponses

Messages postés
2967
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
890
Salut le Forum

If Target.Column > 3 And Target.Column < 10 then 

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Bonjour

Oui Myta ou un truc comme ca

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Column
Case 4 To 9
If IsNumeric(Target) And Target <> "" Then
Target = Left(Target, Len(Target) - 2) & ":" & Right(Target, 2)
End If
End Select
Application.EnableEvents = True
End Sub

A+

Maurice
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Merci infiniment, ça fonctionne :-)
Messages postés
2967
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
890
Re le Forum

Ou encore en remplacant la ligne
If Target.Column = 4 Then

Par
If Not Application.Intersect(Target, Range("D:I")) Is Nothing Then

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Merci beaucoup, c'est parfait :-) j'ai du choix ;-)