VBA
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
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
-
ContributeurSalut 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. » -
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 -
ContributeurRe le Forum
Ou encore en remplacant la ligneIf Target.Column = 4 Then
ParIf 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. »
