Détection de la première cellule non vide

[daocasa]

Bonjour à tous,

ça fait des jours que je suis entrain de chercher une macro pour exécuter les instructions suivantes:

1-sélectionner une plage
2-détecter la première cellule non vide
3-sélectionner & extraire 30 cellules avant cette cellue non vide et 30 cellules après la même cellule non vide.
4-répéter la même macro sur plusieurs lignes


Merci beaucoup pour votre aide.

 

[titiborregan5]

Re : Détection de la première cellule non vide

Bonjour Daocasa et bienvenue,
mets un fichier exemple ce sera plus simple pour te répondre

 

[daocasa]

Re : Détection de la première cellule non vide

Bonjour,
ci-joint le fichier.

la macro a pour but de détecter la première valeur différente de zéro (exemple cellule rouge) puis copier les 30 cellules avant cette valeur (cellules en jaune) et 30 cellules après cette valeur (cellules en bleu).
pour repeter le meme processus aux autres numéros.
116-198

Autrement, regarger la première cellule non vide du range (cells(i,116),cells(i,198), prendre 30 cellule avant puis 30 cellules après cet valeur, refaire le meme travail pour chaque ligne.
coller les cellules sous formes de tableau [30 jours avant]-[30 jours après].

Merci pour votre aide..

 

[daocasa]

Re : Détection de la première cellule non vide

SVP aider moi!!

 

[jetted]

Re : Détection de la première cellule non vide

Je n'ai pas excel 2007, donc un peu difficile de vous aider
mais un depart pourrait etre

Sub test()
'sélectionner une plage
    Set plagecherche = Application.InputBox(Prompt:="Sélectionner la plage de recherche", Type:=8)
    ''détecter la premiere cellules non vide a partir de la selection
    flag = 1
    For Each Item In plagecherche
        If Item.Value <> "" And flag = 1 Then
            cellule = Item.Address(rowabsolute, columnabsolute)
            flag = 2
            MsgBox cellule
        End If
    Next
    '
End Sub

 

[Staple1600]

Re : Détection de la première cellule non vide

Bonsoir à tous

daocasa:

Joins également un version *.xls, tout le monde n'est pas sous Excel 2007-2010 (et ici tu n'es pas dans le forum spécifique à Excel 2007)

 

[daocasa]

Re : Détection de la première cellule non vide

Bonsoir à tous

daocasa:

Joins également un version *.xls, tout le monde n'est pas sous Excel 2007-2010 (et ici tu n'es pas dans le forum spécifique à Excel 2007)

Merci pour votre aide!! je suis tres reconnaissant.