reperer une cellule -intersection d'une colonne et d'une ligne qui ont des nom determinees
1 réponse
AlbatroZ
Salut tout le monde
je cherche donner a la variable "cout" la valeur de l'intersection
entre la colonne " subtotal 1 SC" et la ligne "PPA" (ces derniere
n'etant pas tjrs au meme endroit"
Voila ou j'en suis (ca bloque a la derniere ligne de ce code):
[...]
Worksheets("INCOME").Select
Set c = ActiveSheet.UsedRange.Find("subtotal 1 SC", , , xlWhole)
If c Is Nothing Then
MsgBox "column subtotal 1 SC not found."
Exit Sub
End If
Set cc = ActiveSheet.UsedRange.Find("PPA", , , xlWhole)
If cc Is Nothing Then
MsgBox "Row PPA not found."
Exit Sub
End If
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 : cout = Worksheets("INCOME").Cells(cc.Row, c.Column).Value Cordialement. Daniel "AlbatroZ" a écrit dans le message de news:
Salut tout le monde je cherche donner a la variable "cout" la valeur de l'intersection entre la colonne " subtotal 1 SC" et la ligne "PPA" (ces derniere n'etant pas tjrs au meme endroit"
Voila ou j'en suis (ca bloque a la derniere ligne de ce code):
[...]
Worksheets("INCOME").Select
Set c = ActiveSheet.UsedRange.Find("subtotal 1 SC", , , xlWhole) If c Is Nothing Then MsgBox "column subtotal 1 SC not found." Exit Sub End If
Set cc = ActiveSheet.UsedRange.Find("PPA", , , xlWhole) If cc Is Nothing Then MsgBox "Row PPA not found." Exit Sub End If
Bonsoir.
Essaie :
cout = Worksheets("INCOME").Cells(cc.Row, c.Column).Value
Cordialement.
Daniel
"AlbatroZ" <pierre_even@laposte.net> a écrit dans le message de news:
1164058773.878819.69330@j44g2000cwa.googlegroups.com...
Salut tout le monde
je cherche donner a la variable "cout" la valeur de l'intersection
entre la colonne " subtotal 1 SC" et la ligne "PPA" (ces derniere
n'etant pas tjrs au meme endroit"
Voila ou j'en suis (ca bloque a la derniere ligne de ce code):
[...]
Worksheets("INCOME").Select
Set c = ActiveSheet.UsedRange.Find("subtotal 1 SC", , , xlWhole)
If c Is Nothing Then
MsgBox "column subtotal 1 SC not found."
Exit Sub
End If
Set cc = ActiveSheet.UsedRange.Find("PPA", , , xlWhole)
If cc Is Nothing Then
MsgBox "Row PPA not found."
Exit Sub
End If
Bonsoir. Essaie : cout = Worksheets("INCOME").Cells(cc.Row, c.Column).Value Cordialement. Daniel "AlbatroZ" a écrit dans le message de news:
Salut tout le monde je cherche donner a la variable "cout" la valeur de l'intersection entre la colonne " subtotal 1 SC" et la ligne "PPA" (ces derniere n'etant pas tjrs au meme endroit"
Voila ou j'en suis (ca bloque a la derniere ligne de ce code):
[...]
Worksheets("INCOME").Select
Set c = ActiveSheet.UsedRange.Find("subtotal 1 SC", , , xlWhole) If c Is Nothing Then MsgBox "column subtotal 1 SC not found." Exit Sub End If
Set cc = ActiveSheet.UsedRange.Find("PPA", , , xlWhole) If cc Is Nothing Then MsgBox "Row PPA not found." Exit Sub End If
