Discussion :

[daocasa]

Bonjour,

ç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 cellule non vide et 30 cellules après la même cellule non vide.
4-répéter la même macro sur plusieurs lignes

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 répéter le même processus aux autres numéros.


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 même travail pour chaque ligne.
coller les cellules sous formes de tableau [30 jours avant]-[30 jours après].

[sabzzz]

bonjour daocasa,

je te propose un exemple pour définir la plage,
-détecter la première cellule non vide
-sélectionner 30 cellules avant cette cellule non vide et 30 cellules après la même cellule non vide.

Code :

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

1
2
3
4
5
6
7
'recheche sur une selection en ligne
'trouver le numéro de colonne de la premiere cellule non vide de la selection
'selection pour le test
Range("A1:BN1").Select
y = Selection.Find("*", After:=Range(Selection(1, 1).Address), LookIn:=xlValues).Column
'selectionner la plage en "ligne" de la ColonneTrouvé -30 à ColonneTrouvé +30
Range(Cells(Selection.Row, y - 30), Cells(Selection.Row, y + 30)).Select

Code :

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

1
2
3
4
5
6
7
'recheche sur une selection en colonne
'trouver le numéro de ligne de la premiere cellule non vide de la selection
'selection pour le test
Range("A1:A63").Select
x = Selection.Find("*", After:=Range(Selection(1, 1).Address), LookIn:=xlValues).Row
'selectionner la plage en "colonne" de la  LigneTrouvé -30 à la LigneTrouvé +30
Range(Cells(x - 30, Selection.Column), Cells(x + 30, Selection.Column)).Select

il faut impérativement que la cellule trouvée soit en position ligne au minimun à la ligne 31, ou en position colonne au minimun à AE sinon message d'erreur.

si tu nous disais la difficulté que tu rencontre, nous pourrions aller plus avant.