Tri Dynamique

[Regueiro]

Bonsoir le Forum
J'ai un petit problème avec le tri dynamique sur mon fichier

Je vous joint le fichier

Message erreur
Erreur d'exécution '1004'
La méthode Sort de la Classe Range a échoué

 

[Guest]

Re : Tri Dynamique

bonsoir,

Propostion:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Intersect(Target, Range("Tableau1")) Is Nothing Then Exit Sub
 
    If Application.CountA(Intersect(Target.EntireRow, Range("Tableau1"))) = 17 Then
       Range("Tableau1").Sort key1:=Range("Tableau1")(1), Header:=xlYes
    End If
End Sub

A+

 

[Regueiro]

Re : Tri Dynamique

Parfait ça marche très bien.
Je me permets encore quelques questions ?
Comment faire pour les colonnes soit :
1. Entreprise : majuscules, gras et centrer
2. Nom : majuscules et centrer
3. Prénom : 1ère lettre maj + suivante en minuscule
4. téléphone : +41 26 934 38 37

Et merci encore pour votre 1ère réponse.
A+

 

[david84]

Re : Tri Dynamique

Bonsoir, salut Hasco🙂,
pour tout ce qui concerne la mise en forme, fais fonctionner l'enregistreur de macros et procède aux modifications souhaitées. Tu récupéreras ainsi une structure de code avec la syntaxe appropriée. Nous pourrons ensuite t'aider à peaufiner ton code.
Pour mettre les noms en majuscules, tu peux utiliser la fonction UCase et pour les prénoms la WorksheetFunction.Proper.
Regarde sur l'aide d'Excel (touche F1) la manière d'utiliser ces fonctions.
Pour les téléphones, je n'ai pas compris ce que tu veux.
A+