XL 2010 Macro VBA Excel (Doublon,SansAccents,Maj,Min,Nompropre,Espaces superflus)

[Virginie17d]

 

[Virginie17d]

J'ajouterais que j'ai beau faire des réunions avec les clients pour leur expliquer comment le remplir, ce n'est jamais respecté, alors quand il comporte 20 lignes ca va mais quand il en comporte 3000 c'est déjà plus compliqué

 

[ChTi160]

Re mon petit message #238
C'était pour te montrer que ton fichier donnait accès à plein de Choses Lol
je n'ai pas de solution toute faite pour ta requête (les deux Pro en ont peut être lol) !
je verrai donc après avoir regardé ce que sont tes attentes !
Merci de toutes ces précisions
Jean marie

 

[Virginie17d]

Re mon petit message #238
C'était pour te montrer que ton fichier donnait accès à plein de Choses Lol
je n'ai pas de solution toute faite pour ta requête (les deux Pro en ont peut être lol) !
je verrai donc après avoir regardé ce que sont tes attentes !
Merci de toutes ces précisions
Jean marie

Ok je vais essayé de continuer à chercher, les pauvres je crois que je les ai usés .

J'ai un call client et un RDV chez le Médecin je re dans la soirée

Merci encore

 

[patricktoulon]

bon Alors la récrée est fini
test moi ce fichier min maj proper mdp

 

[Virginie17d]

bon Alors la récrée est fini
test moi ce fichier min maj proper mdp

Je te fais un retour dès que je suis devant mon pc.
Je le sens bien

 

[patricktoulon]

ok tu verra aussi j'ai mis dans la bars de status ce que fait l'action
a chaque fois que tu utilise un bouton

 

[_Thierry]

Hello Patrick, Pendant ma "récréation" en télétravail...

Ton Concat n'a pas éfé fixé, il créé toujours un résidu N/A en bas de tableau. (Je l'avais fixé dans la XLMAv03)

Du coup MDP plante ensuite avec la colonne D car il voit une erreur 2042 (à cause du #N/A)

Mais je suis vache, ils m'ont énervé au bureau LoL

Sinon ca fonctionne bien MDP, min, MAJ, Proper

SubDoublon plante aussi mais toujours à cause du fameux #N/A, sinon il éradique la ligne en doublon.

Trim Espace fait son boulo partout sans distinction de la selection, mais c'est normal.

Le Format téléphone, il y a toujours deux icones, dont un pas branché et pas encore branché Multi Colonnes...

Dans min, MAJ, Proper tu ne gères pas encore la multi-selections non-contigue (par Colonnes) , il faudrait au moins gérer l'erreur 1004.

Et pour la Bar de Status, oui bien vu, mais tu l'as vide pas à la fin ? même après fermeture de ton classeur ....

Voilà pour ma récrée
@+Thierry

 

[patricktoulon]

re
bonjour
les tel c'est toi qui les a pris en charge
je vais voir pour gérer l'erreur n/A
a tu remarqué que les passerelle entre les callbact et la sub de traitement ont sauté aussi

 

[_Thierry]

les tel c'est toi qui les a pris en charge

Ils sont sont gérés dans la version 3 de la XLAM, là tu as la version 1.
@+Thierry

 

[patricktoulon]

Dans min, MAJ, Proper tu ne gères pas encore la multi-selections non-contigue (par Colonnes) , il faudrait au moins gérer l'erreur 1004.

Thierry c'est sélection ça tu dors encore?

regarde

 

[_Thierry]

a tu remarqué que les passerelle entre les callbact et la sub de traitement ont sauté aussi

Ben dans la v03, c'est une fonction pour tous les appels de chacune des Subs dans le module Module00_Controller... Mais tu n'as pas dû l'ouvrir.
@+

 

[_Thierry]

Dans min, MAJ, Proper tu ne gères pas encore la multi-selections non-contigue (par Colonnes) , il faudrait au moins gérer l'erreur 1004.

C'est toi qui fatigue

 

[patricktoulon]

re
non je ne parle pas des callback mais des passerelles
non je généralise pas les callback on pourrait avoir besoins de certaines property pour gérer tel ou tel action ou cas

et pour le multicolonnes entiere et non contiguë voila un problème réglé

Sub Traite_casse(Comment As String, mode As Long)
    Dim Cellule As Range, LastRow As Long, rng As Range, t$, fx$, area, rng2 As Range
    Set rng = Selection
    If rng.Cells.Count < 1 Then MsgBox "Vous devez sélectionner au moins une cellule  pour appliquer cette macro", vbInformation: Exit Sub
    LastRow = ActiveSheet.UsedRange.Rows.Count
    Select Case mode
    Case 1: Set rng = rng
    Case 2: Set rng = Cells(2, rng.Column).Resize(LastRow - 1, 1)
    Case 3:
     If rng.Areas.Count = 1 Then
    Set rng = rng.Resize(LastRow - 1, rng.Columns.Count)
    Else
    Set rng2 = rng.Areas(1).Cells(1).Resize(LastRow, 1)
       For Each area In rng.Areas:    Set rng2 = Union(rng2, area.Cells(1).Resize(LastRow, 1)):    Next
   Set rng = rng2
        End If
      End Select

    t = "application sur " & rng.Address(0, 0) & " de la fonction"
    If rng.Rows.Count > 1000 Then
        If MsgBox("Ca va prendre du temps sur : " & Format(Selection.Rows.Count, "#0,000,000") & " Cellules" & vbCrLf & "Voulez-vous continuer ?", vbOKCancel) = vbCancel Then Exit Sub
    End If
    For Each Cellule In rng
        If Not IsError(Cellule) Then
            Select Case Comment
            Case "maj": Cellule = UCase(Cellule): fx = " Majucucule"
            Case "Npropre": Cellule = Application.Proper(Cellule): fx = " Nom Propre"
            Case "min": Cellule = LCase(Cellule): fx = " Minuscule "
            End Select
        End If
    Next Cellule
    Application.StatusBar = t & fx
End Sub

 

[Virginie17d]

Bon les enfants, on arrête de se chamailler je vais faire un v5en réconciliant toutes les macros si vous voulez, mais pas d’autre surprise entre temps lol

 

[_Thierry]

Bon les enfants, on arrête de se chamailler je vais faire un v5en réconciliant toutes les macros si vous voulez, mais pas d’autre surprise entre temps lol

Oui 'maman' !!! LoL
@+Thierry