Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Recherche dernier évenement (Find)

Recherche dernier évenement (Find)

4 réponses
Avatar
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

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

JB

On 3 août, 12:36, "Abileor" wrote:
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


Avatar
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" wrote:
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


Avatar
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 wrote:
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" wrote:



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 -



Avatar
Abileor
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" a écrit dans le message de news:


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 wrote:
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" wrote:



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 -