Repèrer les "trous"
Bonjour,
J'ai une liste de références, certaines sont à 4 chiffres, d'autres avec des chiffres et des lettres, quelles sont les solutions pour pouvoir mettre en évidence les "trous" dans les références à 4 chiffres ?
Exemple :
Réf Réf Libre
1084 0
1085 0
15864adr 0
1088 2
1091 2
Merci de votre aide
en excel, c'est difficile
mais voici une macro qui identifiera ta cellule rouge quand les cellules sont sous se format-ci: 1234 5
si j'ai bien compris....
Sub cherche_trou()
For Each donnee In Range("a1:a65000")
ctrl = Mid(donnee, 5, 1)
If ctrl = " " Then
With donnee.Select
With Selection.Interior
.Color = 255
End With
End With
End If
Next donnee
End Sub
Bonsoir,
J'ai essayé ton code, par contre mes codes ne sont pas sous ma forme 1234 5.
Je voudrai deja faire un test si la valeur contient ou non des lettres.
Bonsoir
Un fichier avec tes références et un exemple de résultat que tu veux avoir, permettrait de t'aider
essaye ceci !!
Sub cherche_trou()
For Each donnee In Range("a1:a65000")
If IsNumeric(donnee) = False Then
With donnee.Select
With Selection.Interior
.Color = 255
End With
End With
End If
Next donnee
End Sub
Ci-joint un exemple du fichier
Ci joint fichier réel, j'ai testé ton code, super mais j'ai un dépassement de capacité
Bonjour
Dans la macro Tri modifies le type des variables
Sub tri(a, gauche, droite)
Dim G As Double
Dim D As Double
Dim Ref As Double
Dim Temp
Ref = a((gauche + droite) \ 2)Génial, ça venait d'ou ?
Merci beaucoup
Bonjour
Alex2 a écrit :ça venait d'ou ?
Le type Integer des variables n'acceptait pas (Dépassement de capacité) les nombres supérieurs à 32 767
Le type Double peut accepter jusqu'à 1,79769313486232E308
Je voudrai maintenant que les codes dispo s'affiche sur une autre feuille (dans le meme classeur) comment puis je faire ?
Merci
Bonjour
Précises juste la page
Ligne = Ligne + 1
Sheets("Feuil2").Range("D" & Ligne) = Val(Tablo(I)) + 1
Sheets("Feuil2").Range("E" & Ligne) = Val(Tablo(I + 1)) - 1J'obtiens "indice n'appartient pas à la selection" sur la ligne
Ref = a((gauche + droite) \ 2)
Bonjour
Une fois cela fonctionne, une fois cela ne fonctionne plus
Les données ont-elles changées ?
Joins le fichier en cause
voila
Bonsoir
Avec ce fichier pas de problème
Il me trouve plus de 1000 lignes contenant des plages de numéro