Recherche dernier évenement (Find)

Le
Abileor
J'ai unpetit pb pour trouver le dernier evenement d'une ligne.

Sub evt()
For i = 2 To 5
ActiveRows = i
Cells(i, Cells.Find("*", , xlValues, , xlByColumns,
xlPrevious).Column).Select
dder = Cells(1, ActiveCell.Column)
Cells(i, 7).Value = ActiveCell
Cells(i, 6).Value = dder
Next i
End Sub

http://www.cijoint.fr/cij34375361121437.xls
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4638961
Bonjour,

http://boisgontierjacques.free.fr/fichiers/FindDernier2.xls

JB

On 3 août, 12:36, "Abileor"
J'ai unpetit pb pour trouver le dernier evenement d'une ligne....

Sub evt()
For i = 2 To 5
ActiveRows = i
Cells(i, Cells.Find("*", , xlValues, , xlByColumns,
xlPrevious).Column).Select
dder = Cells(1, ActiveCell.Column)
Cells(i, 7).Value = ActiveCell
Cells(i, 6).Value = dder
Next i
End Sub

http://www.cijoint.fr/cij34375361121437.xls


JB
Le #4638941
For i = 2 To 5
Cells(i, 7).Value = Cells(i, 2).Resize(1, 4).Find("*", , xlValues, ,
xlByColumns, xlPrevious).Value
Next i

JB


On 3 août, 12:36, "Abileor"
J'ai unpetit pb pour trouver le dernier evenement d'une ligne....

Sub evt()
For i = 2 To 5
ActiveRows = i
Cells(i, Cells.Find("*", , xlValues, , xlByColumns,
xlPrevious).Column).Select
dder = Cells(1, ActiveCell.Column)
Cells(i, 7).Value = ActiveCell
Cells(i, 6).Value = dder
Next i
End Sub

http://www.cijoint.fr/cij34375361121437.xls


JB
Le #4638931
Sub evt()
For i = 2 To 5
Cells(i, 7).Value = Cells(i, 2).Resize(1, 4).Find("*", , xlValues, ,
xlByColumns, xlPrevious).Value
Cells(i, 6).Value = _
Cells(1, Cells(i, 2).Resize(1, 4).Find("*", , xlValues, ,
xlByColumns, xlPrevious).Column)
Next i
End Sub

JB


On 3 août, 13:04, JB
For i = 2 To 5
Cells(i, 7).Value = Cells(i, 2).Resize(1, 4).Find("*", , xlValues, ,
xlByColumns, xlPrevious).Value
Next i

JB

On 3 août, 12:36, "Abileor"


J'ai unpetit pb pour trouver le dernier evenement d'une ligne....

Sub evt()
For i = 2 To 5
ActiveRows = i
Cells(i, Cells.Find("*", , xlValues, , xlByColumns,
xlPrevious).Column).Select
dder = Cells(1, ActiveCell.Column)
Cells(i, 7).Value = ActiveCell
Cells(i, 6).Value = dder
Next i
End Sub

http://www.cijoint.fr/cij34375361121437.xls- Masquer le texte des messag es précédents -


- Afficher le texte des messages précédents -



Abileor
Le #4638731
JB vous etes formidable....

En passant j'avais reposté un SVP sur mon post car je l'avais envoyé trop
vite mais le SVP n'est pas arrivé

A defaut de SVP encore un GRAND merci



"JB"

Sub evt()
For i = 2 To 5
Cells(i, 7).Value = Cells(i, 2).Resize(1, 4).Find("*", , xlValues, ,
xlByColumns, xlPrevious).Value
Cells(i, 6).Value = _
Cells(1, Cells(i, 2).Resize(1, 4).Find("*", , xlValues, ,
xlByColumns, xlPrevious).Column)
Next i
End Sub

JB


On 3 août, 13:04, JB
For i = 2 To 5
Cells(i, 7).Value = Cells(i, 2).Resize(1, 4).Find("*", , xlValues, ,
xlByColumns, xlPrevious).Value
Next i

JB

On 3 août, 12:36, "Abileor"


J'ai unpetit pb pour trouver le dernier evenement d'une ligne....

Sub evt()
For i = 2 To 5
ActiveRows = i
Cells(i, Cells.Find("*", , xlValues, , xlByColumns,
xlPrevious).Column).Select
dder = Cells(1, ActiveCell.Column)
Cells(i, 7).Value = ActiveCell
Cells(i, 6).Value = dder
Next i
End Sub

http://www.cijoint.fr/cij34375361121437.xls- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme