un chtit problème

[lorinette833]

voila..

Alors je travaille sur excel et j'ai un super grand problème...

Et j'espèrais qu'ici on puisse m'aider 🙂

J'ai une colonne (A) qui a des numéro par exemple :

1
2
6
7
8
9
12
14
..

Jusqu'à 6000 par là autour..

Et j'aimerais faire une formule qui puisse compléter cet colonne en ajoutant les nombres manquants, ainsi que je puisse les distinguée des autres (par exemple, d'une autre couleur).. et j'essai de faire une formule avec =si(nb.si etc.... mai c'est super compliquer et j'arrive pas a les distingués des autres..

SVP aidez-moi !!


Merci d'avance..

Gros bisous .. Meilleures salutations 😀

 

[skoobi]

Re : un chtit problème

Bonjour,
quelle est la logique de tes numéros pour passer de 2 à 6, de 9 à 12 de 12 à 14?😕

 

[lorinette833]

Re : un chtit problème

c'est parce que c'est le nombre de lappareil du client.. et ca se suit pas du tout parce que tout les appareils sont utilisé...

c'est compliqué .. =)

 

[lorinette833]

Re : un chtit problème

en gros.. 1 appareil est en service chez un client .. numero 1
le numéro 2 n'est pas utilisé.. mai le 3 oui .. le 4 oui mai peu etre pas le 5

 

[lorinette833]

Re : un chtit problème

y a aucun logique au nombre

 

[skoobi]

Re : un chtit problème

Re,

"Et j'aimerais faire une formule qui puisse compléter cet colonne en ajoutant les nombres manquants, ainsi que je puisse les distinguée des autres (par exemple, d'une autre couleur)"

qu'est-ce qui fait la distinction? le client? un doublon de numéro?😕

 

[jeanpierre]

Re : un chtit problème

Re, Salut skoobi,

Skoobi, si cela peut t'aider :

Bonne fin d'après-midi.

Jean-Pierre

Edition
Jeanpierre j'ai retiré ton lien vu que j'ai supprimé l'autre fil qui partait un peu n'importe comment et qui n'apportait rien.

Donc pour lorinette on reste sur ce fil

Pascal

 

[skoobi]

Re : un chtit problème

Re,
merci jeanpierre mais moi ça va j'ai pas de problème.........

 

[jeanpierre]

Re : un chtit problème

Re, Bonjour Pascal et Merci.... simplement

Jean-Pierre

 

[lorinette833]

Re : un chtit problème

SKOOBI : qu'est-ce qui fait la distinction? le client? un doublon de numéro?
__________________

La distinction entre les numéros qui n'étaient pas encore là ... 🙁

Y a 2 problèmes enfaite :

1. j'ai une colonne A... de 1 à 6000
Mais par exemple il manque : 3,4504,582,67,912, ..

Des chiffres qui n'ont aucune logique..

Et j'aimerais avec une simple formule que la colonne A puisse compléter automatiquement les nombres manquants.

Tu penses que cela est faisable?


Et le problème n°2 est :

Les nombres qui ont étaient compléter dans le problème n°1, peut-on faire une formule pour les distingué? Meme qu'ils ont aucune logique?!?


MERCI D'AVANCE
meilleures salutations

 

[PascalXLD]

Re : un chtit problème

Bonjour

un petit test mais sans formule par macro

Necessite que la colonne A soit triée

 

[lorinette833]

Re : un chtit problème

Bonjour,

merci beaucoup Pascal, mais je n'arrive pas à travailler les maccros

Il est possible avec une formule?

MEILLEURES SALUTATIONS

 

[lorinette833]

Re : un chtit problème

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/11/2007
Dim X As Integer
Application.ScreenUpdating = False
For X = Range("A65536").End(xlUp).Row To 2 Step -1
If Range("A" & X) <> Range("A" & X - 1) + 1 Then
Range("A" & X).Insert Shift:=xlDown
Range("A" & X) = Range("A" & X + 1) - 1
Range("A" & X).Font.ColorIndex = 3
X = X + 1
End If
Next
Application.ScreenUpdating True
End Sub


C'est bon j'essaie de faire avec la macro, sauf que ce que j'ai la partie en rouge n'est pas "correcte", on me dit : Erreur de compilation, Utilisation incorrecte de la propriété...😕 Là je comprends vraiment pas, pourrais-tu m'aider s'il te plait ?! Merci beaucoup, de l'intention que tu porte à mon problème ...

Bisous😛

Bonne journée, meilleures salutations

 

[PascalXLD]

Re : un chtit problème

re

c'est

Application.ScreenUpdating=True

 

[TheLio]

Re : un chtit problème

'Salut tous, il manque juste ça, en rouge:

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/11/2007 par Le Déan Pascal
Dim X As Integer
Application.ScreenUpdating = False
For X = Range("A65536").End(xlUp).Row To 2 Step -1
If Range("A" & X) <> Range("A" & X - 1) + 1 Then
Range("A" & X).Insert Shift:=xlDown
Range("A" & X) = Range("A" & X + 1) - 1
Range("A" & X).Font.ColorIndex = 3
X = X + 1
End If
Next
Application.ScreenUpdating [COLOR="Red"][B]=[/B] [/COLOR]True
End Sub

A++

TheLio

Edit I'm to late sir Xld 🙂