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

[Virginie17d]

 

[Virginie17d]

Si si il est prévu celui là dans le Module de ma Review :

Case "00331" ' <<<< verrue pour ce format à la noix !
Cell.Value = Replace(Cell.Value, "00331", "0033-1-")

Bonjour Messieurs,
Ce case est bien dans le module et pourtant n'a pas fonctionné sur les colonnes téléphone

Les 88 1ère lignes ont été "checker" alors que 10 lignes renseignées.

Pour ceci, j'ai appliqué en harmonisant les codes de ceux de Patrick avec sa méthode de détection des Selections, Column ou MultiColumn (idemen que MinMAJProper... Teste la même chose avec ma XLAM V03 (sans le Setup Coché pour Ref Last Row to "Column A"

Pour le format tel en 01.23.34.45.34 effectivement je pense que ce cas n'a pas été vu je vais essayé de trouver le "case" adéquat

Bonne journée

 

[Virginie17d]

Oui j'ai Windows 10 !

Bonjour ChTi160,

Moi je suis sur Win10 et j'ai utilisé ce lien

http://openxmldeveloper.org/cfs-fil.../00-00-00-72-93/OfficeCustomUIEditorSetup.zip

Bien à toi

 

[patricktoulon]

Bonjour virginie
je ne sais pas ou tu es mais chez nous ce lien n'est pas valable

 

[ChTi160]

Re
Bonjour Virginie !
Idem chez moi pas valide .mdr
jean marie

 

[Gégé-45550]

Bonjour Madame, Messieurs, le fil ...
Vous êtes passionnants mais je commence à avoir du mal à suivre !
Alors juste une modeste contribution
CustomUIEditor
si ça peut aider

Bravo à vous tous!

 

[Virginie17d]

Re
Bonjour Virginie !
Idem chez moi pas valide .mdr
jean marie

Pardon j'ai été un peu vite, j'ai eu le meme pb et j'ai donc prit le suivant :

Fichier en PJ

 

[Virginie17d]

Bonjour patrick,

j'ai souhaité ajouté une règle dans mon module tel pour dire quand la cellule est vide ignore le traitement, mais j'ai une erreur à l'enregistrement de synthaxe que je n'arrive pas à résoudre.

"Nombre d'argument incorrect ou affectation des propriétés incorrecte"

Sub PhoneFormat(ZZZ As String, Mode As Long)
Dim i As Long
For i = "M" To "O"
If Not IsEmpty(Range("M", "N", "O" & i).Value) Then


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") & " Cellules" & vbCrLf & "Voulez-vous continuer ?", vbOKCancel) = vbCancel Then Exit Sub
End If

Application.StatusBar = t & fx
ET_Telephone_ou_il_veut rng
Application.StatusBar = ""
End If
Next
End Sub

Merci de ton aide

 

[Virginie17d]

Dim i As Long
For i = "M" To "O"
If Not IsEmpty(Range("M", "N", "O" & i).Value) Then


End If
Next

Voici les valeurs que j'ai ajoutées

 

[ChTi160]

Re
ca peut pas marcher c'est plutôt un truc du genre

For i = 13 To 15 'Colonnes 13 à 15
If Not IsEmpty(Cells(RowCible, i).Value) Then
End If
Next 'i

mais je ne pense pas que ce soit a ce niveau qu'il faut vérifier si les cellules sont vides !
plus par là lol

ET_Telephone_ou_il_veut rng

les chefs (Patrick & @+Thierry) vont te dire cela Lol
bonne journée
Merci pour le Fichier
Jean marie

 

[Virginie17d]

Re
ca peut pas marcher c'est plutôt un truc du genre

For i = 13 To 15 'Colonnes 13 à 15
If Not IsEmpty(Cells(RowCible, i).Value) Then
End If
Next 'i

mais je ne pense pas que ce soit a ce niveau qu'il faut vérifier si les cellules sont vides !
plus par là lol

les chefs (Patrick & @+Thierry) vont te dire cela Lol
bonne journée
Merci pour le Fichier
Jean marie

Bon j'y arrive pas ca me met des rejets, je dois pas le mettre ou il faut ou il doit me manquer des infos, je vais attendre que "les chefs" me répondent, merci quand meme

 

[ChTi160]

Re
Pour Patrick
j'ai trouvé ça !
RibbonX Visual Designer 2010
Qu'en penses tu ?
Jean marie

 

[patricktoulon]

re
inexploitable apparemment je viens de télécharger
le projet est protégé
le xlam ne fonctionne pas
et les explications sont plus que succincte y compris dans la video qui date de 2015
tout ce qui brille n'est pas d'or
d'autant plus que je vois une interruption de msj depuis 2012 et puis une lastest version 2016
bizarre

je resume
fin des mise a jours 2012
demo video de 2015
et la lasttest version date de 2016 sans résumé ni avertissement que ce soit

 

[Virginie17d]

@patricktoulon

En attendant que tu puisses regarder mes histoires de téléphone, pourrais tu me dire qu'elle appli tu utilise pour tes démos vidéo quand tu veux me montrer tes parametrages ?

Merci par avance

 

[ChTi160]

Re moi LICEcap en mode ".Gif"
Jean marie

 

[ChTi160]

Re
Patrick
Voilà ce que j'obtiens apres avoir enregistrer le . xlam
je ne sais pas comment m'en servir Lol
mais y'a une tonne de Docs donc je vais y regarder Lol
Bonne journée
encore merci
Jean marie