TRIER en deux categories
Bonjour tout le monde,
'S'il vous plait j'ai un fichier excel dont je veux trier les cases a 9 chiffres et ceux a 10 chiffres.
en plus si j'essaye d'ajouter un chiffre a ceux qui contiennent 9 elle ne s'effectue pas correctement, je vous remercie pour votre aide.
cis joint le fichier excel
Bonjour,
Voici une proposition de macro qui réalise la séparation des nombres selon qu'ils ont
9 chiffres (col B),
10 chiffres (col C)
ou autre (col D).
A+
Bonjour,
Je vous remercie de votre réponse, s'il vous plait je ne suis pas expert en la matière, je vous prie de bien vouloir détailler le processus,
Mes respects
Pour que je puisse t'aider, il faut m"en dire plus sur les points de blocage.
Pour visualiser la macro :
- tu appuies sur alt + F11 pour ouvrir l'éditeur,
- tu appuies sur ctrl + R pour ouvrir l'explorateur de projets,
- tu double-cliques sur Modules / Module1 pour voir le code.
La procédure balaye toutes les données renseignées de la colonne A puis prélève dans chaque cellule les caractères correspondant à des chiffres afin de reformer un nombre à 9 chiffres, 10 chiffres ou autre et répartir ces nombres dans des colonnes distinctes.
A+
Bonjour,
J' ai essaye de suivre les consignes ci dessous le code :
Sub test()
Dim Cel As Range
Dim Texte As String
Dim i As Integer
For Each Cel In Range("A1", Range("A" & Rows.Count).End(xlUp))
If Cel <> "" Then
For i = 1 To Len(Cel)
If IsNumeric(Mid(Cel, i, 1)) Then
Texte = Texte & CStr(Mid(Cel, i, 1))
End If
Next i
If Len(Texte) = 9 Then
Cel.Offset(, 1) = Format(Texte, "000000000")
ElseIf Len(Texte) = 10 Then
Cel.Offset(, 2) = Format(Texte, "0000000000")
Else
Cel.Offset(, 3) = Format(Texte, "#")
End If
Texte = ""
End If
Next Cel
End Sub
c est ce code que je dois exécuter si oui merci de me dire comment et merci.
bonjour
une proposition
=SI(NBCAR(A1)=9;9;SI(NBCAR(A1)=10;10;""))et filtrer par 9 ou 10
cordialement
Bonjour
je vous remercie pour votre reponse, je suis ignorant pour l' execution des codes , j ai essaye d'inserer le code envoye , j ai recu un message d'erreur ci joint le message et merci
Bonjour
J 'attends toujours une réponse et merci
Bonjour,
c est ce code que je dois exécuter si oui merci de me dire comment
Que veux-tu que je réponde ?
De mon coté, je ne vois pas ce qui te bloque.
- Tu as bien trouvé le code.
- Tu as constaté que la procédure est lancée par le bouton de commande.
- La procédure est bien appliquée sur le fichier que tu as joint.
- Tu obtiens le résultat souhaité.
Si tu as d'autres besoins, il faut que tu sois plus loquace et précis.
A+
Bonjour,
Je voudrais séparer en deux colonnes une contenant 9 chiffres et l' autre 10 chiffres sinon rejeter les autres.
Mes remerciements
Bonjour,
C'est ce que fait la macro du classeur que je t'ai envoyée le 24 Oct 2016, 12:31
As-tu testé cette macro ?
A+
Bonjour,
Quand je clique sur le bouton run en vert je reçois ce message.Merci
Pour activer les macros, aller dans les Options d'Excel > Centre de gestion de confidentialité > Paramètres du Centre de gestion de confidentialité > Paramètres des macros.
A+
Bonjour,
Je vous remercie de votre soutien,je vous en suis reconnaissant.