VBA Fermé

Question

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

Mytå · Answer

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. »

Maurice · Answer

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

Mytå · Answer

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. »

VBA

3 réponses

Discussions similaires