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

Code Vba qui fait planter Excel ???

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Kiriko
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

Dernière édition:
Trier par date Trier par votes
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
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
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
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
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
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
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
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
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
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.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
45
Francky79
F
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
213
jalaba
J
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
173
sofmat
S
  • Résolu(e)
XL 2013 customui copymemory qui fait encore des siennes
Réponses
8
Affichages
161
Rheeem
R
C
  • Question Question
XL 2016 VBA Détecter la suppression de la dernière ligne d'un Tableau
Réponses
9
Affichages
470
crocrocro
C
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
311
sylvanu
  • Résolu(e)
XL 2013 (RESOLU) Code afficher/Masquer problème
Réponses
10
Affichages
531
chaelie2015
  • Question Question
XL 2013 Réduire un code
Réponses
0
Affichages
520
chaelie2015
  • Question Question
Microsoft 365 [VBA] Listes déroulantes à choix multiples sur N colonnes discontinues
Réponses
4
Affichages
581
ralph45
T
  • Résolu(e)
XL 2010 VBA - Fonction double clics à opérations multiples
Réponses
2
Affichages
333
Titi456
T
S
  • Question Question
Microsoft 365 Clavier virtuel: SelectionChange, empêche la répétition
Réponses
3
Affichages
364
Simon 1234
S
F
  • Résolu(e)
Microsoft 365 Simplification code
Réponses
2
Affichages
262
Francky79
F
K
  • Question Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
282
Gégé-45550
U
  • Question Question
Autres [RESOLU] Déclaration de variable
Réponses
5
Affichages
519
un internaute
U
P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
656
pat66
P
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
631
dadu35
D
Y
  • Résolu(e)
XL 2013 Macro si changement dans case à cocher
Réponses
6
Affichages
483
Yvan1
Y
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
332
Oneida
L
  • Question Question
Microsoft 365 Aide pour code protection cellules non vides à la fermeture
2
Réponses
22
Affichages
788
crocrocro
C
N
  • Résolu(e)
Microsoft 365 Ajouter une condition dans une VBA
Réponses
2
Affichages
391
Nathan027
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…