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...

[moimemessssssssss]

Bonsoir,

j'ai pas trop bien compris vos histoires de lecture
c'est pour gagner du temps lorsque que la macro tourne?
quelqu'un peut il m'expliquer
merci

[Invité]

Bonsoir,

Votre code :

Code :

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

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

fait que dès que la valeur de la cellule est > 63 vous ajoutez une ligne et vous affectez la valeur "63".

En effet vous avez écrit :

( car le 61 et 62 ne sont pas présents)

Vous, vous le savez peut-être !!!!

Il faudrait peut-être écrire :

Code :

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

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

Ensuite vous pourrez étudier la solution de Ucfoutu pour optimiser.

[ouskel'n'or]

Bonsoir,

j'ai pas trop bien compris vos histoires de lecture
c'est pour gagner du temps lorsque que la macro tourne?
quelqu'un peut il m'expliquer
merci

Je veux bien me lancer, c'est le même principe que la recherche dichotomique.
ucfoutu est pourtant très clair mais il explique comme quelqu'un qui sait, pas comme quelqu'un qui sait faire savoir
Sous ton contrôle, uc ?
Tu dis donc (mes commentaires sont en bleu)

1) on va au milieu de la plage (soit 100000 lignes /2 = ligne 50000)
On lit la cellule

si plus milieu plus grand, (si la cellule contient un nombre > 63 alors on est trop loin)
on va au milieu de la 1ère moitié de la plage soit sur la ligne 25000) et on vérifie
si plus milieu toujours plus grand, on va au milieu de la plage scrutée soit à la ligne 12500... etc

si milieu plus petit, (on reprend à la ligne 50000) si la cellule contient un nombre < 63 alors la ligne 63 sera dans la seconde moitié de la plage, soit à plus de 50000
on va au milieu de la 2ème moitié (au lieu d'aller à la ligne suivante, on reprend en allant à la moitié de la plage restante, soit ligne 75000)
2) et on recommence etc... (dans un sens (+ moitié) ou dans l'autre (- moitié) de la plage précédente)

Un exemple : 63 est à la ligne 76250
Tu vas aller successivement sur les lignes
50000
75000
87500
81250
78125
76563
etc.
Bien sûr, c'est à adapter puisque les moitiés de ligne n'existent pas mais en prenant l'entier, tu sais toujours si la valeur lue sur la ligne est supérieure ou inférieure à la valeur comparée.
Tu constates qu'au lieu de lire 76250 lignes, on n'en lira que... beaucoup moins

Ai-je bien expliqué ?

[moimemessssssssss]

Bonsoir à tous,

merci pour vos réponses
c'est bon je crois que maintenant j'ai compris.