VBA

Fermé

Zeni - 13 oct. 2014 à 19:25
Zeni - 17 oct. 2014 à 16:10

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

A voir également:

VBA
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 13/10/2014 à 19:58

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

Réponse 2 / 3

Maurice
13 oct. 2014 à 20:33

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

Zeni
Modifié par Zeni le 17/10/2014 à 16:09

Merci infiniment, ça fonctionne :-)

Réponse 3 / 3

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 13/10/2014 à 21:52

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

Zeni
17 oct. 2014 à 16:10

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters