Deux Worksheet_Change successifs Autres options

[apt]

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 :

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 :

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é".

Pourtant au debut il marchait seulement sans mise en majuscule.

Merci.

 

[Pierrot93]

Re : Deux Worksheet_Change successifs Autres options

Bonjour Apt

essaye comme ci dessous :

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.

@+

 

[wilfried_42]

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

 

[apt]

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 :

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

?

 

[wilfried_42]

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

tu mets dans target 1000 cellules
tu ne fais le traitement proper que si target contient une seule cellule

 

[wilfried_42]

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

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

 

[apt]

Re : Deux Worksheet_Change successifs Autres options

Ca ne marche pas ...

 

[CB60]

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

 

[apt]

Re : Deux Worksheet_Change successifs Autres options

Erreur d'exécution '1004'

Nom de champ introuvable ou incorrect dans la plage d'extraction.

 

[CB60]

Re : Deux Worksheet_Change successifs Autres options

Bonjour
j'ai modifié un peu la macro

 

[apt]

Re : Deux Worksheet_Change successifs Autres options

Merc CB60.

Ca marchge tres bien.

Mais au lieu des boutons, est-il possible d'utiliser les evenements ?

Merci.

 

[CB60]

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

 

[wilfried_42]

Re : Deux Worksheet_Change successifs Autres options

re: bonjour à tous

Ca ne marche pas ...

je n'ai fais aucun controle de colonne ou quoique ce soit

tu tapes en feuille 1, en feuiile2 tu as le resultat avec une majuscule

à toi d'adapter