zone qui bouge

[ninou58]

Re,
Voilà j'ai un petit souci, j'ai nommée une zone dans une feuille, je m'en sers dan smon code:
Set plageCherche2 = Range('zonedouble')
valcherchée2 = nompr & ' ' & 'en double'
For Each Item In plageCherche2
If Item.Value = valcherchée2 Then compteur2 = compteur2 + 1
Next Item

Le souci c'est qu'elle descend, je fais commencer à A3, et je la retrouve en a12. donc forcément mon code ne fonctionne plus.
Vous avez une idée du pourquoi?

Merci d'avance

 

[ERIC S]

Bonjour

ta zone ne descend-elle pas parce que des lignes sont insérées au dessus ?

A+

 

[ninou58]

Re,
voici le code enfin pas tout
If compteur (sup) 1 Then
compteur2 = 0
Set plageCherche2 = Range('zonecherche')
valcherchée2 = nompr & ' ' & 'en double'
For Each Item In plageCherche2
If Item.Value = valcherchée2 Then compteur2 = compteur2 + 1
Next Item
If compteur2 (inf) 1 Then
While Worksheets(nomfeuille3).Cells(ligne, 1) (diff) ''
ligne = ligne + 1
Wend
Worksheets(nomfeuille3).Cells(ligne, 1) = nompr & ' ' & 'en double'
End If

En faite c'est pas que j'insère des lignes mais je met des valeurs. Donc ce serait ça qui fait descendre ma zone, et j'ai aucun moyen?
pour garder la mème zone.

Merci d 'avance

superieur, inferieur m'empechait de poster :evil:

Message édité par: ninou58, à: 05/04/2006 15:26

 

[ninou58]

Désolé, encore moi,
je ne trouve pas comment faire, je n'arrive pas a la definir dans le code non plus.

Merci d'avance pour votre aide

 

[ERIC S]

re

je ne vois rien dans ce bout de code qui modifie ta zone

exécute ta macro en pas à pas en allant observer ta zone pour voir quand elle bouge

ou envoie un exemple de fichier XL

A+

 

[porcinet82]

Salut Ninou, Eric,

Effectivement je viens de jeter aussi un coup d'oeil a ton code et rien ne fait varier ta plage, mais il nous manque une partie qui serait peut-etre interressante, c'est comment définis-tu 'zonecherche' ?

Je pense comme l'a déjà dit Eric q'un morceau de ton fichier pourrait nous etre utile.

@+

 

[ninou58]

Bonjour,

Bah en faite je n'insert pas de ligne mais j'écris dans les lignes et aparemment c'est cela qui fait descendre ma zone.
Bon la je réessaie, ca à l'air de fonctionner je comprend pas trop pourquoi.
En faite si je laisse sélectionné ma zone ça fonctionne sinon il descend a chaque fois.
Je vais essayer d'y remédier mais je ne sai spas comment.

Merci d'avance

ps: zonecherche je l'ai défini dans excel, j'ai simplement nommé toute la plage de cellule.

Message édité par: ninou58, à: 06/04/2006 09:02

 

[ninou58]

Re
En faite au début je faisais ceci :
'vider la feuille
Sheets(nomfeuille3).Activate
Range('a3').Select
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(2, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
Selection.delete

Donc ça me décalait ma zone, au lieu de delete j'ai mis clear et depuis cela fonctionne.

Vala, chose résolue


:lol:

 

[ERIC S]

re

Bonne continuation alors