Microsoft 365 FORMULE Excel VBA

kenny · 7 Avril 2023

Bjr,

je voudrais appliquer cette formule en VBA qui me retourne les doublon en ouvrant une boite de dialogue et qui demande sur quelle colonne l'appliquer, cette formule s'applique à la cellule 2 de la colonne préciser.

j'ai une erreur de type :

Je n'arrive pas à solutionner.

Merci pour votre aide.
PS. : visiblement d'après le débogueur c'est cette partie du code qui pose problème :
Set rng = ActiveSheet.Range(colName & "2:" & colName & ActiveSheet.Cells(Rows.Count, colName).End(xlUp).Row)

Sub AddLeadingZeros()

' Demander à l'utilisateur sur quelle colonne appliquer la macro
Dim colName As String
colName = InputBox("Entrez le nom de la colonne :")

' Vérifier si le nom de colonne est valide
If colName = "" Then
MsgBox "Veuillez entrer un nom de colonne valide."
Exit Sub
End If

' Définir la plage de cellules
Dim rng As Range
Set rng = ActiveSheet.Range(colName & "2:" & colName & ActiveSheet.Cells(Rows.Count, colName).End(xlUp).Row)

' Parcourir chaque cellule de la plage
For Each cell In rng
' Vérifier si la cellule n'est pas vide et ne contient pas d'erreur
If Not IsError(cell.Value) And cell.Value <> "" Then
' Appliquer la formule avec la fonction REPT et NBCAR
cell.Value = WorksheetFunction.Rept("0", 9 - WorksheetFunction.Len(cell.Value)) & cell.Value
End If
Next cell

MsgBox "La macro a été appliquée avec succès à la colonne " & colName & "."

End Sub

gbinforme · 7 Avril 2023

kenny à dit:
elle rajoute des zéro si un nombre n'atteint pas 9 caractères

pourquoi mettre cette formule car si tu veux avoir un nombre à 9 chiffres il te suffit de modifier le format

VB:

Range("a1:a10").NumberFormat = "000000000"

Phil69970 · 7 Avril 2023

Bonjour @kenny

kenny à dit:
PS. : visiblement d'après le débogueur c'est cette partie du code qui pose problème :
Set rng = ActiveSheet.Range(colName & "2:" & colName & ActiveSheet.Cells(Rows.Count, colName).End(xlUp).Row)

Manifestement on a pas le même débogueur !!
Ton problème vient de ta formule qui est fausse

kenny à dit:
' Appliquer la formule avec la fonction REPT et NBCAR
cell.Value = WorksheetFunction.Rept("0", 9 - WorksheetFunction.Len(cell.Value)) & cell.Value

Alors quelle est ta formule que tu souhaites (écris là en formule sans essayer de la convertir en VBA)

De plus ton code ne contrôle rien du tout car si je tape par exemple dans la boite de dialogue "qsdfgqdrg" et bien tu l'acceptes et plantage 3 lignes plus loin !!!

@Phil69970

kenny · 7 Avril 2023

Bjr Phil,
La formule est la suivante :
=REPT("0";9-NBCAR(H2))&H2 elle rajoute des zéro si un nombre n'atteint pas 9 caractères

gbinforme · 7 Avril 2023

kenny à dit:
elle rajoute des zéro si un nombre n'atteint pas 9 caractères

pourquoi mettre cette formule car si tu veux avoir un nombre à 9 chiffres il te suffit de modifier le format

VB:

Range("a1:a10").NumberFormat = "000000000"

Phil69970 · 7 Avril 2023

Re

Je te propose plus simplement pour reprendre le code de @gbinforme

VB:

Sub AddLeadingZeros()
Dim MaZone As Range
Set MaZone = Range("A2:K" & UsedRange.Rows.Count) 'Lettre des colonnes à adapter éventuellement

MaZone.NumberFormat = "000000000"
Set MaZone = Nothing
End Sub

Plus besoin de demander à l'utilisateur une colonne toute la zone passe au format voulue et plus de contrôle à avoir.....

Merci de ta réponse

@Phil69970

kenny · 8 Avril 2023

gbinforme à dit:
pourquoi mettre cette formule car si tu veux avoir un nombre à 9 chiffres il te suffit de modifier le format

VB:

Range("a1:a10").NumberFormat = "000000000"

bJR GBINFORME c'était pour automatisé la macro et ne pas être obligé de modifier la macro à la main pour l'adapter à la colonne à modifier.

kenny · 8 Avril 2023

Phil69970 à dit:
Re

Je te propose plus simplement pour reprendre le code de @gbinforme

VB:

Sub AddLeadingZeros() Dim MaZone As Range Set MaZone = Range("A2:K" & UsedRange.Rows.Count) 'Lettre des colonnes à adapter éventuellement MaZone.NumberFormat = "000000000" Set MaZone = Nothing End Sub

Plus besoin de demander à l'utilisateur une colonne toute la zone passe au format voulue et plus de contrôle à avoir.....

Merci de ta réponse

@Phil
[/QUOTE]

kenny · 8 Avril 2023

Bonjour Phil,

J'ai dû mal m'exprimer, cette macro doit être générale, vu que les colonnes qui doivent contenir les chiffres avec 9 caractères sont mobiles
D'où ma tentative de demander la colonne sur laquelle appliquer cette macro.
J'ai essayer ta proposer la plage de A2 à K cela ne répond pas à ma demande. Il s'agit d'appliquer la macro sur une colonne précise qui contiendrait des chiffres à 6 ou 7 caractères..

Je te remercie d'avance

Phil69970 · 8 Avril 2023

Re

Je te propose cette version qui fonctionne quelque soit le nombre de chiffres
(Pour info chez moi un chiffre n'est pas une lettre)

kenny à dit:
sur une colonne précise qui contiendrait des chiffres à 6 ou 7 caractères..

VB:

Sub AddLeadingZeros()

' Demander à l'utilisateur sur quelle colonne appliquer la macro
Dim colName As String
colName = InputBox("Entrez le nom de la colonne :")

' Vérifier si le nom de colonne est valide
If colName = "" Then
    MsgBox "Veuillez entrer un nom de colonne valide."
    Exit Sub
End If

' Définir la plage de cellules
Dim Rng As Range
Set Rng = ActiveSheet.Range(colName & "2:" & colName & ActiveSheet.Cells(Rows.Count, colName).End(xlUp).Row)

Rng.NumberFormat = "000000000"

MsgBox "La macro a été appliquée avec succès à la colonne " & colName & "."

End Sub

Merci de ton retour

@Phil69970

gbinforme · 8 Avril 2023

kenny à dit:
D'où ma tentative de demander la colonne sur laquelle appliquer cette macro.
Il s'agit d'appliquer la macro sur une colonne précise qui contiendrait des chiffres à 6 ou 7 caractères..

Comme ceci il te suffit de faire un double clic sur une cellule de la colonne choisie

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Columns(Target.Column).NumberFormat = "000000000"
End Sub

Cette macro est à mettre dans la feuille concernée

kenny · 9 Avril 2023

gbinforme à dit:
Comme ceci il te suffit de faire un double clic sur une cellule de la colonne choisie

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Columns(Target.Column).NumberFormat = "000000000" End Sub

Cette macro est à mettre dans la feuille concernée

Bonjour Phil, j'ai essayé ta macro, j'ai un bug sur la partie du code :
Set Rng = ActiveSheet.Range(colName & "2:" & colName & ActiveSheet.Cells(Rows.Count, colName).End(xlUp).Row)

Je joins un fichier test,

gbinforme idem cela ne fonctionne pas bizarre tout cela

Phil69970 · 9 Avril 2023

Re

@kenny
Tu as mis aucune macro dans le fichier test que tu as fourni donc sans macro cela ne peut pas fonctionner !!!

J'ai mis un bouton et rajouter une dizaine de colonne (pour pouvoir choisir une colonne)
J'ai juste copié le code que j'ai fourni au post #9 pour lancer la macro et tu vas rire cela fonctionne sur mon PC comme sur tous les PC du monde et surement aussi sur mac mais vu que je n'ai pas de Mac j'ai pas pu faire d'essai.

@Phil69970

kenny · 9 Avril 2023

Phil69970 à dit:
Re

@kenny
Tu as mis aucune macro dans le fichier test que tu as fourni donc sans macro cela ne peut pas fonctionner !!!

J'ai mis un bouton et rajouter une dizaine de colonne (pour pouvoir choisir une colonne)
J'ai juste copié le code que j'ai fourni au post #9 pour lancer la macro et tu vas rire cela fonctionne sur mon PC comme sur tous les PC du monde et surement aussi sur mac mais vu que je n'ai pas de Mac j'ai pas pu faire d'essai.

@Phil69970

Phil merci mais je comprends pas avec moi ca fonctionne pas
cela me retourne cette erreur.

2)

3)

c'est quoi cette incompatibilité de type qui me pourrie la vie ;o))

Phil69970 · 9 Avril 2023

Re

@kenny

Aie, aie, aie il y a du boulot !!!

Une colonne est ..... une colonne

Le nom de la colonne c'est A, B, C.....

Et ici la colonne B est sélectionné

@Phil69970

gbinforme · 9 Avril 2023

kenny à dit:
gbinforme idem cela ne fonctionne pas bizarre tout cela

Sans doute dû à 365 comme ceci cela devrait fonctionner

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Columns(Target.Column)
        .NumberFormat = "000000000"
    End With
    Cancel = True
End Sub

Microsoft 365 FORMULE Excel VBA

kenny

XLDnaute Occasionnel

gbinforme

Phil69970

XLDnaute Barbatruc

kenny

XLDnaute Occasionnel

gbinforme

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

kenny

XLDnaute Occasionnel

kenny

XLDnaute Occasionnel

kenny

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

gbinforme

XLDnaute Impliqué

kenny

XLDnaute Occasionnel

gbinforme idem cela ne fonctionne pas bizarre tout cela

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

kenny

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

gbinforme

XLDnaute Impliqué

Discussions similaires

Microsoft 365 FORMULE Excel VBA

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Occasionnel

gbinforme idem cela ne fonctionne pas bizarre tout cela​

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Impliqué

Discussions similaires

gbinforme idem cela ne fonctionne pas bizarre tout cela