Trouver la derniere cellule d'une colonne portant toujours le meme nom mais dans un tableau mouvant
2 réponses
AlbatroZ
Salut tout le monde,
le titre n'es pas bien clair mais voila:
On m'envoie un tableau excel toute les semaines avec:
un nombre totale de ligne different
des collonnes jamais placees dans le meme ordre
une colonne qui a toujours pour titre "subtotal 1" (mais qui n'est
jamais au meme endroit ni sur la meme colonne ni sur la meme ligne -
l'entete de se tableau etant plus ou moins grande-)
Bref j'aimerai donne a ma variable la derniere valeur de la colonne
"subtotal 1"
Merci d'avance pour vos conseils
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
Daniel
Bonsoir. Essaie :
Sub test() Dim c As Range, Valeur As String Set c = ActiveSheet.UsedRange.Find("subtotal 1", , , xlWhole) If c Is Nothing Then MsgBox "subtotal 1 pas trouvé." Exit Sub End If Valeur = Cells(65536, c.Column).End(xlUp).Value End Sub
Cordialement. Daniel "AlbatroZ" a écrit dans le message de news:
Salut tout le monde, le titre n'es pas bien clair mais voila: On m'envoie un tableau excel toute les semaines avec: un nombre totale de ligne different des collonnes jamais placees dans le meme ordre une colonne qui a toujours pour titre "subtotal 1" (mais qui n'est jamais au meme endroit ni sur la meme colonne ni sur la meme ligne - l'entete de se tableau etant plus ou moins grande-) Bref j'aimerai donne a ma variable la derniere valeur de la colonne "subtotal 1" Merci d'avance pour vos conseils
Bonsoir.
Essaie :
Sub test()
Dim c As Range, Valeur As String
Set c = ActiveSheet.UsedRange.Find("subtotal 1", , , xlWhole)
If c Is Nothing Then
MsgBox "subtotal 1 pas trouvé."
Exit Sub
End If
Valeur = Cells(65536, c.Column).End(xlUp).Value
End Sub
Cordialement.
Daniel
"AlbatroZ" <pierre_even@laposte.net> a écrit dans le message de news:
1163109788.428515.311970@h48g2000cwc.googlegroups.com...
Salut tout le monde,
le titre n'es pas bien clair mais voila:
On m'envoie un tableau excel toute les semaines avec:
un nombre totale de ligne different
des collonnes jamais placees dans le meme ordre
une colonne qui a toujours pour titre "subtotal 1" (mais qui n'est
jamais au meme endroit ni sur la meme colonne ni sur la meme ligne -
l'entete de se tableau etant plus ou moins grande-)
Bref j'aimerai donne a ma variable la derniere valeur de la colonne
"subtotal 1"
Merci d'avance pour vos conseils
Sub test() Dim c As Range, Valeur As String Set c = ActiveSheet.UsedRange.Find("subtotal 1", , , xlWhole) If c Is Nothing Then MsgBox "subtotal 1 pas trouvé." Exit Sub End If Valeur = Cells(65536, c.Column).End(xlUp).Value End Sub
Cordialement. Daniel "AlbatroZ" a écrit dans le message de news:
Salut tout le monde, le titre n'es pas bien clair mais voila: On m'envoie un tableau excel toute les semaines avec: un nombre totale de ligne different des collonnes jamais placees dans le meme ordre une colonne qui a toujours pour titre "subtotal 1" (mais qui n'est jamais au meme endroit ni sur la meme colonne ni sur la meme ligne - l'entete de se tableau etant plus ou moins grande-) Bref j'aimerai donne a ma variable la derniere valeur de la colonne "subtotal 1" Merci d'avance pour vos conseils
AlbatroZ
Super Daniel, t'assure comme d'hab ca marche super bien a++
Daniel wrote:
Bonsoir. Essaie :
Sub test() Dim c As Range, Valeur As String Set c = ActiveSheet.UsedRange.Find("subtotal 1", , , xlWhole) If c Is Nothing Then MsgBox "subtotal 1 pas trouvé." Exit Sub End If Valeur = Cells(65536, c.Column).End(xlUp).Value End Sub
Cordialement. Daniel "AlbatroZ" a écrit dans le message de news:
Salut tout le monde, le titre n'es pas bien clair mais voila: On m'envoie un tableau excel toute les semaines avec: un nombre totale de ligne different des collonnes jamais placees dans le meme ordre une colonne qui a toujours pour titre "subtotal 1" (mais qui n'est jamais au meme endroit ni sur la meme colonne ni sur la meme ligne - l'entete de se tableau etant plus ou moins grande-) Bref j'aimerai donne a ma variable la derniere valeur de la colonne "subtotal 1" Merci d'avance pour vos conseils
Super Daniel, t'assure comme d'hab
ca marche super bien
a++
Daniel wrote:
Bonsoir.
Essaie :
Sub test()
Dim c As Range, Valeur As String
Set c = ActiveSheet.UsedRange.Find("subtotal 1", , , xlWhole)
If c Is Nothing Then
MsgBox "subtotal 1 pas trouvé."
Exit Sub
End If
Valeur = Cells(65536, c.Column).End(xlUp).Value
End Sub
Cordialement.
Daniel
"AlbatroZ" <pierre_even@laposte.net> a écrit dans le message de news:
1163109788.428515.311970@h48g2000cwc.googlegroups.com...
Salut tout le monde,
le titre n'es pas bien clair mais voila:
On m'envoie un tableau excel toute les semaines avec:
un nombre totale de ligne different
des collonnes jamais placees dans le meme ordre
une colonne qui a toujours pour titre "subtotal 1" (mais qui n'est
jamais au meme endroit ni sur la meme colonne ni sur la meme ligne -
l'entete de se tableau etant plus ou moins grande-)
Bref j'aimerai donne a ma variable la derniere valeur de la colonne
"subtotal 1"
Merci d'avance pour vos conseils
Super Daniel, t'assure comme d'hab ca marche super bien a++
Daniel wrote:
Bonsoir. Essaie :
Sub test() Dim c As Range, Valeur As String Set c = ActiveSheet.UsedRange.Find("subtotal 1", , , xlWhole) If c Is Nothing Then MsgBox "subtotal 1 pas trouvé." Exit Sub End If Valeur = Cells(65536, c.Column).End(xlUp).Value End Sub
Cordialement. Daniel "AlbatroZ" a écrit dans le message de news:
Salut tout le monde, le titre n'es pas bien clair mais voila: On m'envoie un tableau excel toute les semaines avec: un nombre totale de ligne different des collonnes jamais placees dans le meme ordre une colonne qui a toujours pour titre "subtotal 1" (mais qui n'est jamais au meme endroit ni sur la meme colonne ni sur la meme ligne - l'entete de se tableau etant plus ou moins grande-) Bref j'aimerai donne a ma variable la derniere valeur de la colonne "subtotal 1" Merci d'avance pour vos conseils
