Microsoft 365 FORMULE Excel VBA

[kenny]

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

 

[kenny]

bonjour Phil,
Oui pour moi le nom de la colonne était le titre de colonne.
lol. j'ai honte.^^
Cela fonctionne merci

gbinforme comment j'utilise ta macro, quand je le copie elle me demande de donner un nom.
Pis quand je mets un nom le VBA me crée un autre sub

 

[kenny]

Phil je reviens vers toi car j'ai un petit souci les zéros se rajoute bien dans la colonne kool, merci.
En revanche j'ai un soucis, comme c'est au format spécial, lorsque je fais une recherche V ou "X" , je retrouve pas mes petits car d'un côté j'ai un format spécial "000000000", d'un autre côté un format "texte".
quand je fais la rechercheV sur les 2 colonnes au format spécial, il me retrouve les occurences, mais le résultat est sans les neufs caractères.

y a t-il un moyen au lien d'avoir le format spécial, d'avoir le format texte tout en gardant les 9 caractères.

J'en demande beaucoup ^^

 

[gbinforme]

gbinforme comment j'utilise ta macro, quand je le copie elle me demande de donner un nom.
Pis quand je mets un nom le VBA me crée un autre sub

Il suffit de la copier telle quelle dans le code de la feuille concernée