Détection de la première cellule non vide

T

titiborregan5

XLDnaute Accro

• 20 Mai 2010

• #2

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

 

Vote positif 0 Vote négatif

D

daocasa

Guest

• 20 Mai 2010

• #3

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

 

Pièces jointes

• test.zip

  11.9 KB · Affichages: 85
• test.zip

  11.9 KB · Affichages: 83
• test.zip

  11.9 KB · Affichages: 83

Vote positif 0 Vote négatif

D

daocasa

Guest

• 20 Mai 2010

• #4

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

SVP aider moi!!

 

Vote positif 0 Vote négatif

J

jetted

XLDnaute Occasionnel

• 20 Mai 2010

• #5

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

Code:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mai 2010

• #6

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)

 

Vote positif 0 Vote négatif

D

daocasa

Guest

• 24 Mai 2010

• #7

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

Staple1600 à dit:

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)

Cliquez pour agrandir...

Merci pour votre aide!! je suis tres reconnaissant.🙂

 

Vote positif 0 Vote négatif