copier coller une cellule puis chercher la valeur suivante

[pougnarette]

bonjour à tous
j'ai un petit problème à vous soumettre qui j'en suis sur sera une formalité pour bon nombre d'entre vous
le me positionne sur une cellule et avec une macro je copie cette cellule 2 colonne à coté
ceci étant fait , je voudrais aller me positionner sur la valeur suivante
j'ai préparé un petit exemple avec les explications
merci à vous
pougnarette

 

[Yaloo]

Bonjour pougnarette,
Avec une macro de ce type

Dim l&
For l = ActiveCell.Row + 1 To Rows.Count
If Cells(l, 24).Value <> "" And Cells(l, 24) <> 0 Then
Cells(l, 24).Select
Exit For
End If
Next

A+

Martial

 

[pougnarette]

Bonjour pougnarette,
Avec une macro de ce type

Dim l&
For l = ActiveCell.Row + 1 To Rows.Count
If Cells(l, 24).Value <> "" And Cells(l, 24) <> 0 Then
Cells(l, 24).Select
Exit For
End If
Next

A+

Martial

Bonjour martial
merci pour votre réponse
c'est tout a fait ce que j'avais besoin
j'ai juste un petit problème : quand j'arrive à la dernière ligne de mon tableau , la macro cherche désespérément la ligne suivante
peut être y a t'il une solution en lui demandant de s'arrêter de chercher au bout 10 lignes ?
en vous remerciant par avance

pougnarette

 

[Yaloo]

Bonjour,

Remplacer la ligne

For l = ActiveCell.Row + 1 To Rows.Count

par

For l = ActiveCell.Row + 1 To [X65536].End(3)(2).Row

Ca devrait fonctionner

Martial