Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code Vba qui fait planter Excel ???

K

Kiriko

XLDnaute Occasionnel
Bonjour à tous !!!,
On m'a fournit le code suivant (merci Dan) :
Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    'Macro Dan pour Kiriko le 21/10/2010
    If Not Intersect(Target, Columns("A:A")) Is Nothing Then
    Target = UCase(Target)
    End If
    If Not Intersect(Target, Columns("B:B")) Is Nothing Then
    Target = Application.Ceiling(Target, 0.25)
    End If
    End Sub

Mais il fait planter excel (2007 et même 2010 bêta) dès l'exécution ("APPCRASH" dans l'observateur d'évènements)...
Une idée d'où peut venir le problème et comment y remédier ??

Merci de l'attention que vous porterez à mon problème...
 

Pièces jointes

  • Code qui fait planter Excel.xls
    27 KB · Affichages: 74
Dernière édition:
Trier par date Trier par votes
S

Softmama

XLDnaute Accro
Re : Code Vba qui fait planter Excel ???

Bonjour,
Comme ça ça fonctionne à priori. (pas testé)
Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    'Macro Dan pour Kiriko le 21/10/2010
    Application.EnableEvents = False
    If Not Intersect(Target, Columns("A:A")) Is Nothing Then
    Target = UCase(Target)
    End If
    If Not Intersect(Target, Columns("B:B")) Is Nothing Then
    Target = Application.Ceiling(Target, 0.25)
    End If
    Application.EnableEvents = True
    End Sub
 
Vote positif 0 Vote négatif
K

Kiriko

XLDnaute Occasionnel
Re : Code Vba qui fait planter Excel ???

Bonjour le fil,
Bonjour, Softmama et JNP. Et merci beaucoup !!
Super...
Que faut-il modifier pour que la 1ère ligne ne soit pas prise en compte ?? (Ligne de titre)?

Merci encore !!!
 
Vote positif 0 Vote négatif
S

Softmama

XLDnaute Accro
Re : Code Vba qui fait planter Excel ???

Bonjour,
Normalement, juste en rajoutant cette ligne, cela fonctionne (pas testé) :
Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    'Macro Dan pour Kiriko le 21/10/2010

[B]If Target.Row = 1 Then Exit Sub[/B]

    Application.EnableEvents = False
    If Not Intersect(Target, Columns("A:A")) Is Nothing Then
    Target = UCase(Target)
    End If
    If Not Intersect(Target, Columns("B:B")) Is Nothing Then
    Target = Application.Ceiling(Target, 0.25)
    End If
    Application.EnableEvents = True
    End Sub
 
Vote positif 0 Vote négatif
K

Kiriko

XLDnaute Occasionnel
Re : Code Vba qui fait planter Excel ???

Merci beaucoup, c'est niquel...
J'avais besoin également que les accents ne restent pas avec la modif, j'ai bidouillé un truc mais il doit y avoir plus simple ?? :
Merci encore à tous !!
J'ai bidouillé une modif pour les accents, mais si vous avez plus simple, ça m'intéresse :

Code: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
         'Macro Dan pour Kiriko le 21/10/2010
    If Target.Row = 1 Then Exit Sub
    If Not Intersect(Target, Columns("A:A")) Is Nothing Then
   codeA = "ÉÈÊËÔéèêëàçùôûïî"
   codeB = "EEEEOeeeeacuouii"
   temp = Target
    For i = 1 To Len(temp)
    p = InStr(codeA, Mid(temp, i, 1))
    If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
   Next
    Application.EnableEvents = False
    Target = UCase(temp)
    Target = UCase(Target)
    End If
    Application.EnableEvents = True
    If Not Intersect(Target, Columns("B:B")) Is Nothing Then
    Application.EnableEvents = False
    Target = Application.Ceiling(Target, 0.25)
    End If
    Application.EnableEvents = True
    End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
K

Kiriko

XLDnaute Occasionnel
Re : Code Vba qui fait planter Excel ???

Merci beaucoup, c'est impeccable....

Dernier point, est-il possible que les accents des minuscules saisies n'apparaisent pas sur les majuscules lors de la transformation ??
 
Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc
Re : Code Vba qui fait planter Excel ???

Re ,
Non .
Mais tu as mis une fonction de conversion où il manquent pas mal de cas ...
Si tu commences par ton UCase, tu n'auras à traiter que les majuscules .
Et tu peux trouver ici par exemple d'autre fonctions de conversion.
Bon courage
 
Vote positif 0 Vote négatif
K

Kiriko

XLDnaute Occasionnel
Re : Code Vba qui fait planter Excel ???

Merci beaucoup !!

Dernier point : Est-il possible d'appliquer ceci à l'ensemble de la feuille (sauf 1ère ligne), de manière à ce que qu'elle que soit la cellule de saisie, elle se transforme en majuscule sans accent ou en arrondi à 0.25 prêt supérieur en fonction de ce qui est saisi sans générer d'erreur ?? Et dans ce cas, comment "exclure" une colonne donnée? (la D par exemple)?
 
Dernière édition:
Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc
Re : Code Vba qui fait planter Excel ???

Bonjour,

Kiriko, il est de bonne habitude d'éviter d'ouvrir des fils sur le même sujet dans plusieurs forums sans avoir au moins la pensée de signaler que tu demandes des informations ailleurs.

Dommage mais j'aurais préféré que tu le signales sur l'autre forum mais aussi ici pour ceux qui ont passé du temps à rechercher une solution à ton problème.

A bientôt
 
Dernière édition:
Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc
Re : Code Vba qui fait planter Excel ???

Re ,
Avec la remarque de Dan, je ne sais pas si la dernière question est toujours d'actualité ... Merci Dan pour cette info .
Code: 
[COLOR=blue]Private Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If[/COLOR] Target.Row = 1 [COLOR=blue]Or[/COLOR] Target.Column = 4 [COLOR=blue]Then Exit Sub[/COLOR]
Application.EnableEvents = [COLOR=blue]False[/COLOR]
[COLOR=blue]If[/COLOR] IsNumeric(Target) [COLOR=blue]Then[/COLOR]
Target = Application.Ceiling(Target, 0.25)
[COLOR=blue]Else[/COLOR]
Target = UCase(Target)
[COLOR=blue]End If[/COLOR]
Application.EnableEvents = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Bon dimanche
 
Vote positif 0 Vote négatif
K

Kiriko

XLDnaute Occasionnel
Re : Code Vba qui fait planter Excel ???

Merci à tous,
Je présente mes excuses ici à tous, je n'avais pas conscience que le fait de poster sur 2 forums sans le signaler explicitement (Je t'ai néanmoins cité, Dan, mais il est vrai sans te le demander où t'informer, d'où mes excuses).

Je suis de bonne volonté et tiens à "rentrer dans le rang" des pratiques cordiales de ces forums qui m'apportent beaucoup, et espère que vous voudrez bien mettre cette pratique sur le dos de ma faible pratique et mon inattention..

Cordialement à tous, avec de nouveau mes excuses et mes remerciements....
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
408
crocrocro
C
  • Résolu(e)
XL 2013 (RESOLU) Code afficher/Masquer problème
Réponses
10
Affichages
475
chaelie2015
U
  • Question
Autres [RESOLU] Déclaration de variable
Réponses
5
Affichages
464
un internaute
U
T
  • Résolu(e)
XL 2010 VBA - Fonction double clics à opérations multiples
Réponses
2
Affichages
299
Titi456
T
S
  • Question
Microsoft 365 Clavier virtuel: SelectionChange, empêche la répétition
Réponses
3
Affichages
328
Simon 1234
S
P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
607
pat66
P
  • Question
Microsoft 365 [VBA] Listes déroulantes à choix multiples sur N colonnes discontinues
Réponses
4
Affichages
523
ralph45
Y
  • Résolu(e)
XL 2013 Macro si changement dans case à cocher
Réponses
6
Affichages
394
Yvan1
Y
  • Question
XL 2013 Réduire un code
Réponses
0
Affichages
465
chaelie2015
  • Question
Microsoft 365 Trouver et attribuer une plage de cellule en fonction de la cellule active
Réponses
6
Affichages
358
Jojo973
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…