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

Deux Worksheet_Change successifs Autres options

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion apt
  • 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
A

apt

XLDnaute Impliqué
Bonjour,

Je voulais essaye si deux événements Worksheet_Change fonctionne en
même temps.


Alors quand je tape une lettre dans la colonne A de Feuil1, elle sera
copiée dans la colonne A de Feuil2 et se mette en majuscule.


J'ai donc dans la première feuille Feuil1 le code poue copier les
lettres :


Code: 
Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Column = 1 And Target.Count = 1 Then 
    [A1:A100].AdvancedFilter Action:=xlFilterCopy, _ 
      CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True 
    Sheets("Feuil2").Range("A1:A100").Sort 
key1:=Sheets("Feuil2").Range("A1") 
   End If 
End Sub


Dans la deuxieme feuille Feuil2 le code pour mettre en majuscule :


Code: 
Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Column = 1 And Target.Count = 1 Then 
    Target = Application.Proper(Target) 
  End If 
End Sub


Mais j'ai une erreur d'exécution '1004' :


"La méthode AdvancedFilter de la classe Range a échoué".
Cliquez pour agrandir...

Pourtant au debut il marchait seulement sans mise en majuscule.

Merci.
 
Dernière édition:
Trier par date Trier par votes
Re : Deux Worksheet_Change successifs Autres options

Bonjour Apt

essaye comme ci dessous :

Code: 
Target = Application.WorksheetFunction.Proper(Target)

Sauf erreur de ma part, il ne me semble pas que la fonction "Proper" puisse être appelée directement depuis l'appli.

bonne journée.

@+
 
Vote positif 0 Vote négatif
Re : Deux Worksheet_Change successifs Autres options

bonjour à tous

j'ai fait des essais, pierrot tu as tout juste
je desirerais seulement ajouter que si a cellule est vide : suppr dans la case, plantage

if target > "" then Target = Application.WorksheetFunction.Proper(Target)

seulement pour etre sur de ne pas planter
 
Vote positif 0 Vote négatif
Re : Deux Worksheet_Change successifs Autres options

J'ai modifier le code de Feuil2 mais ça ne marche pas.

J'ai un premier essai --> les lettres sont copiées dans Feuil2

Apres quelques lignes il me sort une erreur d'execution sur le code de Feuil1 dans la ligne :

Code: 
[A1:A1000].AdvancedFilter Action:=xlFilterCopy, _
       CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True

?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Deux Worksheet_Change successifs Autres options

re:

j'ai regarde et c'est impssible que cela fonctionne

Set Target = Range("a1:a1000")
If Target.Column = 1 And Target.Count = 1 Then
If Target > "" Then Target = Application.WorksheetFunction.Proper(Target)
End If
Cliquez pour agrandir...

tu mets dans target 1000 cellules
tu ne fais le traitement proper que si target contient une seule cellule
 
Vote positif 0 Vote négatif
Re : Deux Worksheet_Change successifs Autres options

re:

essaie plutot cela :

dans feuille 1

Private Sub Worksheet_Change(ByVal Target As Range)
if target.column= 1 then
sheets("Feuil2").range(target.address) = target
end if
End Sub
Cliquez pour agrandir...

dans feuille 2


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1
Target = Application.WorksheetFunction.Proper(Target)
End If
Application.EnableEvents = True
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Deux Worksheet_Change successifs Autres options

Bonsoir
regarde si cela peut te servir
la feuil verso avec des valeur dans la colonne A des que tu valide cette valeur l'ensemble est copié et mis en Nom propre sur la feuil recto.
Tu a aussi trois bouton pour selectionner des cellules et le mettre en
Majuscule
Minuscule
Nom propre
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Deux Worksheet_Change successifs Autres options

Bonsoir
Sur la feuille verso tu a l'evenement worksheet, dès que tu met une valeur, elle recopie ta liste sur la feuille recto met les cellules en nom propre et fais un tris
 
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

  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
273
anthoYS
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
251
anthoYS
  • Question Question
XL 2016 Renseigner une plage 2 a partir d'une plage 1 selon le mois.
Réponses
4
Affichages
268
KTM
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
455
un internaute
U
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
151
anthoYS
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
508
job75
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
263
Nicolas JACQUIN
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
226
pascal21
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
739
un internaute
U
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
315
TooFatBoy
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
479
sylvanu
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
474
nabilexcel2007
N
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
303
Francky79
F
P
  • Résolu(e)
Microsoft 365 activer macro après collage
Réponses
6
Affichages
206
pat66
P
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
445
Lau01150
L
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
303
TooFatBoy
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
815
thunder23
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
252
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…