zone qui bouge

ERIC S

XLDnaute Barbatruc

• 5 Avril 2006

• #2

Bonjour

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

A+

 

Vote positif 0 Vote négatif

N

ninou58

XLDnaute Occasionnel

• 5 Avril 2006

• #3

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

 

Vote positif 0 Vote négatif

N

ninou58

XLDnaute Occasionnel

• 5 Avril 2006

• #4

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 5 Avril 2006

• #5

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+

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 5 Avril 2006

• #6

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.

@+

 

Vote positif 0 Vote négatif

N

ninou58

XLDnaute Occasionnel

• 6 Avril 2006

• #7

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

 

Vote positif 0 Vote négatif

N

ninou58

XLDnaute Occasionnel

• 6 Avril 2006

• #8

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:

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 6 Avril 2006

• #9

re

Bonne continuation alors

 

Vote positif 0 Vote négatif