Recherche sur une zone variable

ERIC S

XLDnaute Barbatruc

• 31 Mars 2006

• #2

Bonjour

le nombre de lignes entre deux cellules est -il toujours le même

dans ton exemple :7
?

A+

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 31 Mars 2006

• #3

re

si oui

code à mettre sous ta feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nbligne = 7
madate = Cells(1 + Int(Target.Row / nbligne) * nbligne, Target.Column)
End Sub

A+

 

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 31 Mars 2006

• #4

Effectivement le nombre de lignes est toujours le même entre deux cellules dates, mais il est de 6 (mon exemple est mal dessiné). Mais peu importe.

Merci pour ton aide, mais j'avoue ne pas comprendre ces lignes. Si tu as le temps, pourrais-tu m'expliquer ?

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 31 Mars 2006

• #5

re

tu ouvres vba par

alt F11

tu double -clic sur le nom de la feuille qui t'intéresse

tu sélectionnes (au lieu de général) worksheet et
SelectionChange
tu copies le code (voir ci-après)

ce code basic, à chaque fois que tu sélectionnes une cellule de ta feuille stocke dans madate le contenu de la cellule située

même colonne que la cellule activée (Target.column)
et pour la ligne les dates sont en 1,7,13,19..
si target.row est entre 1 et 6 il faut pointer ligne 1, entre 7 et 12 il faut pointer ligne 7..

int((target.row-1)/nbligne) donne 0 pour target.row entre 1 et 6, donne 1 entre 7 et 12..

donc
1 + Int((Target.Row-1) / nbligne) * nbligne

fera 1 entre les lignes 1 & 6
7 entre 7 et 12
13...

le code est donc:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nbligne = 6
madate = Cells(1 + Int((Target.Row-1) / nbligne) * nbligne, Target.Column)
End Sub

il devait y avoir une erreur sur la première formule.

A tester et adapter

A+

 

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 1 Avril 2006

• #6

C'est plus clair maintenant ! Mais je n'arrive pas à l'adapter à mon cas...

En fait mon tableau commence à la ligne 3, donc en ligne 3 il y a une date, puis 6 lignes, puis une date puis 6 lignes etc...

J'ai tenté
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nbligne = 7
madate = Cells(3 + Int((Target.Row - 1) / nbligne) * nbligne, Target.Column)
End Sub

mais c'est pas bon....

Quoi qu'il en soit je te remercie pour ces réponses rapides !!!

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 1 Avril 2006

• #7

Bonjour

je pense que tu dois passer en

...Int((Target.Row - 3)...

A+

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 1 Avril 2006

• #8

re

tu peux aussi faire plus pro et plus adaptable

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nbligne = 7
ceb=3
madate = Cells(deb + Int((Target.Row - deb) / nbligne) * nbligne, Target.Column)
End Sub

A+

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 1 Avril 2006

• #9

rere

j'ai les doigts qui dérapent..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nbligne = 7
deb=3
madate = Cells(deb + Int((Target.Row - deb) / nbligne) * nbligne, Target.Column)
End Sub



la variable est deb et non ceb

A+

 

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 1 Avril 2006

• #10

ça marche impécable !!! je vais de ce pas l'intégrer dans mes macros !

1001 Merci !!

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Avril 2006

• #11

Bonsoir Chris, Éric, bonsoir le forum,

Comme ce problème m'intéressait, j'ai essayé la macro d'Éric mais j'avais des bugs selon les lignes où se trouvaient mes dates.

Je propose ce code qui semble fonctionner quelles que soient les lignes comportant des dates :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer 'déclare la variable x
Dim madate As Date 'déclare la variable madate

'si la ligne de la cellule active est inférieure à 7, sort de la procédure
If Target.Row < 7 Then Exit Sub

For x = -1 To -6 Step -1 'boucle de -1 à -6
'condition : si la cellule décalée de x vers le haut n'est pas vide et
'si elle contient une date
If ActiveCell.Offset(x, 0).Value DIFFÉRENT_DE '' And IsDate(ActiveCell.Offset(x, 0)) Then
madate = DateValue(ActiveCell.Offset(x, 0).Value) 'definit la variable madate
MsgBox madate 'message affichant madate (tu effaceras cette ligne)
Exit For 'sort de la boucle
End If 'fin de la condition
Next x 'prochaine valeur de la boucle
End Sub

Cliquez pour agrandir...

Remplace DIFFÉRENT_DE par les symboles consécutifs Inférieur, Suprérieur qui ne passent pas dans ce forum...

 

Vote positif 0 Vote négatif

Chris57

XLDnaute Occasionnel

• 2 Avril 2006

• #12

Merci pour cette macro ; effectivement elle teste si la cellule contient bien une date et non pas un texte x !!

 

Vote positif 0 Vote négatif