Discussion :

[moimemessssssssss]

Bonjour,

La colonne A contient des chiffre de 1 à 300 et tous les chiffres ne sont pas présents
et je voudrais rajouter des lignes pour de nouveaux chiifres
par exemple si je veux rajouter le chiffre 63 je crée une ligne qui vient juste après le chiffre 60 ( car le 61 et 62 ne sont pas présents) donc il faut que je trouve le chiffre juste apres ou avant le 63
le code est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
for i = 1 to 300 
if cells(i,1).value > 63 then rows(i).insert

mais le probleme c'est qu'il m'insert plein de ligne ce qui et normal vu que plein de nombre sont supérieurs à 63 , il faut donc trouver le chiffre juste apre ou avant et je ne sais pas comment faire.

Merci de m'aider car il n'y a pas qu'une seule ligne à créer.

[fring]

Hello,

Tu n'es pas loin de la solution, il faut juste lui dire de stopper après avoir trouvé le chiffre ou d'avoir inséré la ligne.

Essaye comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
Dim i As Integer, x As Integer
 
x = 63
 
For i = 1 To 300
    If Cells(i, 1) = x Then
        MsgBox x & " existe déjà"
        Exit Sub
    End If
    If Cells(i, 1) > x Then
        Rows(i).Insert
        Cells(i, 1) = x
        Exit For
    End If
Next i
 
End Sub

[ucfoutu]

Bonsoir,

Il faut procéder autrement, pour gagner du temps dans la boucle...
Même avec des milliers de lignes, on y parvient avec un maximum de 16 lectures, en agissant exactement de la même maniière qu'en cherchant dans un dictionnaire....

1) on va au milieu
si plus milieu plus grand, on va au milieu de la 1ère moitié
si milieu plus petit, on va au milieu de la 2ème moitié
2) et on recommence etc...
16 lectures de cette sorte suffisent pour des milliers

Edit :

Preuve de ce raisonnement de milieux de moitiés :
Ici on cherche tout et sur 100000

(16 opérations suffisent pour 100000) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
 toto = 100000
 avoirencore = toto
 nb = 0
 Do While avoirencore >= 2
   avoirencore = avoirencore / 2
   nb = nb + 1
 Loop
 MsgBox nb
End Sub

Exercez-vous à appliquer ...

[fring]

je vais d'abord devoir aller acheter Excel 2007

Merci pour l'astuce, je me la colle dans un coin

[alsimbad]

j'ai pas trop compris comment trouver 63 dans ta boucle, mais si je rajoute un 0 a toto, j'obtien nb = 19 et avec un 0 de plus, c'est 23. ce qui est peu, je te l'accorde, mais en contradiction avec ce que tu affirme.
mais, je ne lance pas un concours hein , c'est pas de mon niveau ça
Amicalement

[ucfoutu]

B onsoir, alsimbad...

Relis donc : 16 pour des milliers (en fait, même pour 100000).

Même avec des milliers de lignes, on y parvient avec un maximum de 16 lectures,

avec un zéro de plus, tu passes à des millions et avec 2 zéros de plus, à des dizaines de millions.... hein

Dans tous les cas de figure, la différence entre les nombres maximum de lectures nécessaires est ..... sans commune mesure (23 lectures pour 10 millions ? ==>> de la rigolade par rapport à 10 millions de lectures "classiques" ...)

Bonne nuit...