copier coller une cellule puis chercher la valeur suivante

pougnarette · 7 Août 2017

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 · 7 Août 2017

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 · 8 Août 2017

Yaloo à dit:
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 · 8 Août 2017

Bonjour,

Remplacer la ligne

Code:

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

par

Code:

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

Ca devrait fonctionner

Martial

copier coller une cellule puis chercher la valeur suivante

pougnarette

XLDnaute Nouveau

Pièces jointes

Yaloo

XLDnaute Barbatruc

pougnarette

XLDnaute Nouveau

Pièces jointes

Yaloo

XLDnaute Barbatruc

Discussions similaires

copier coller une cellule puis chercher la valeur suivante

pougnarette

XLDnaute Nouveau

Pièces jointes

Yaloo

XLDnaute Barbatruc

pougnarette

XLDnaute Nouveau

Pièces jointes

Yaloo

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency