Macro detection et affichage des intervalles

[sergiuspollux]

Je suis a la recherche d'une macro qui :

lire une colonne "G" numérique. 1000 lignes
qui detecte les intevalles supérieurs à 1
- ex:
cellule G10 = 10
cellule G11 = 14

"capable de detecter les intevalles 11 12 13 "

qui affiche sur une colonne tous les intervalles trouvés.

J'ai beau refléchir, je suis perdu,

Merci pour votre aide, car je désespère.

 

[Eric 45]

Re : Macro detection et affichage des intervalles

Bonsoir à tous

Essaie ce code :

Sub inter()
Range("g1").Select
derligne = Selection.End(xlDown).Row
For i = 1 To derligne - 1
    If ActiveCell.Offset(i, 0) - ActiveCell.Offset(i - 1, 0) > 1 Then ActiveCell.Offset(i, 1).Value = ActiveCell.Offset(i, 0).Value - ActiveCell.Offset(i - 1, 0).Value
Next i
End Sub

Eric

 

[sergiuspollux]

Re : Macro detection et affichage des intervalles

Bonsoir à tous

Essaie ce code :

Sub inter()
Range("g1").Select
derligne = Selection.End(xlDown).Row
For i = 1 To derligne - 1
    If ActiveCell.Offset(i, 0) - ActiveCell.Offset(i - 1, 0) > 1 Then ActiveCell.Offset(i, 1).Value = ActiveCell.Offset(i, 0).Value - ActiveCell.Offset(i - 1, 0).Value
Next i
End Sub

Eric

Je dis déjà un Grand merci.
Effectivement ca me donne le total intevalle.

Je recherche plus précisement tous les intervalles trouvés.
Si il y a moyen , je suis preneur

Et Merci encore.

 

[Eric 45]

Re : Macro detection et affichage des intervalles

Bonsoir à tous

Si tu veux tous les inter le "1" y compris, tu supprimes le "if..then" et tu écris :

Sub inter()
Range("g1").Select
derligne = Selection.End(xlDown).Row

For i = 1 To derligne - 1
ActiveCell.Offset(i, 1).Value = ActiveCell.Offset(i, 0).Value - ActiveCell.Offset(i - 1, 0).Value
Next i
End Sub

Eric

 

[sergiuspollux]

Re : Macro detection et affichage des intervalles

J'ai essayé d'adapter mais sans y arriver

je n'ai pas du utiliser les bons termes pour me faire comprendre.
quand je dis intervalles, c'est plutot la valeur.
c'est à dire :
onglet 1
g10=9
g10=11
g11=14

Il faudrait que je puisse recuper les valeurs manquantes soit : 10;12;13

dans un onglet 2 à partir de la cellule F10

car la je nage la brasse coulée.

En attente d'une soluce, Merci mille fois.

 

[Eric 45]

Re : Macro detection et affichage des intervalles

Bonjour à tous
Bonjour sergiuspollux

Un petit fichier, et dis nous

Il y a certainement plus court, mais ...

Eric

 

[sergiuspollux]

Re : Macro detection et affichage des intervalles

bonjour,

Je tiens à vous remercier, car là on ne pas faire mieux, exactement ce que je recherchais.
Merci infiniment " Super"