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 Recuperer lindex de ligne et de colone

Recuperer lindex de ligne et de colone

6 réponses
Avatar
azza
Bonjour à tous,
Ya til un moyen sous VBA de recuperer l'index de ligne et de colone ( leurs
N°) exple:
Msgbox "Ligne : " & Indexligne & " Colone: " & IndexColone (affiche: ligne:
33 Colone: D)

Bonne journée et merci.
Signaler un problème avec ce contenu

6 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
Ellimac
Bonjour,

Sub toto()
If IsNumeric(Mid(Application.Substitute
(ActiveCell.Address, "$", ""), 2)) Then
a = Left(Application.Substitute
(ActiveCell.Address, "$", ""), 1)
Else
a = Left(Application.Substitute
(ActiveCell.Address, "$", ""), 2)
End If
MsgBox "Ligne n° " & ActiveCell.Row & Chr(13)
& "Colonne n° " & a

End Sub

Camille
-----Message d'origine-----
Bonjour à tous,
Ya til un moyen sous VBA de recuperer l'index de ligne et
de colone ( leurs

N°) exple:
Msgbox "Ligne : " & Indexligne & " Colone: " &
IndexColone (affiche: ligne:

33 Colone: D)

Bonne journée et merci.


.



Avatar
Michel Pierron
Bonjour azza;

Dim Pos As Byte
With ActiveCell
Pos = InStr(1, .Address(False, False), .Column, 1)
MsgBox "Ligne: " & .Row & " / Colonne: " _
& Left(.Address(False, False), Pos - 1)
End With

MP

"azza" a écrit dans le message de
news:O%23Lidnf$
Bonjour à tous,
Ya til un moyen sous VBA de recuperer l'index de ligne et de colone (
leurs

N°) exple:
Msgbox "Ligne : " & Indexligne & " Colone: " & IndexColone (affiche:
ligne:

33 Colone: D)

Bonne journée et merci.




Avatar
azza
Merci, je vais essayer de comprendre ca.

"Ellimac" a écrit dans le message
news: 094b01c4fdff$f80484b0$
Bonjour,

Sub toto()
If IsNumeric(Mid(Application.Substitute
(ActiveCell.Address, "$", ""), 2)) Then
a = Left(Application.Substitute
(ActiveCell.Address, "$", ""), 1)
Else
a = Left(Application.Substitute
(ActiveCell.Address, "$", ""), 2)
End If
MsgBox "Ligne n° " & ActiveCell.Row & Chr(13)
& "Colonne n° " & a

End Sub

Camille
-----Message d'origine-----
Bonjour à tous,
Ya til un moyen sous VBA de recuperer l'index de ligne et
de colone ( leurs

N°) exple:
Msgbox "Ligne : " & Indexligne & " Colone: " &
IndexColone (affiche: ligne:

33 Colone: D)

Bonne journée et merci.


.



Avatar
Michel Pierron
Ahhgh ! Trop vite; il faut lire:
Dim Pos As Byte
With ActiveCell
Pos = InStr(1, .Address(False, False), .Row, 1)
MsgBox "Ligne: " & .Row & " / Colonne: " _
& Left(.Address(False, False), Pos - 1)
End With

MP

"Michel Pierron" a écrit dans le message de
news:OqJVARg$
Bonjour azza;

Dim Pos As Byte
With ActiveCell
Pos = InStr(1, .Address(False, False), .Column, 1)
MsgBox "Ligne: " & .Row & " / Colonne: " _
& Left(.Address(False, False), Pos - 1)
End With

MP

"azza" a écrit dans le message de
news:O%23Lidnf$
Bonjour à tous,
Ya til un moyen sous VBA de recuperer l'index de ligne et de colone (
leurs

N°) exple:
Msgbox "Ligne : " & Indexligne & " Colone: " & IndexColone (affiche:
ligne:

33 Colone: D)

Bonne journée et merci.







Avatar
azza
Salut
merci pour avtivecell.addresse(false,false)
pour avoir B13 au lieu de $B$13

"Michel Pierron" a écrit dans le message news:
e445wEh$
Ahhgh ! Trop vite; il faut lire:
Dim Pos As Byte
With ActiveCell
Pos = InStr(1, .Address(False, False), .Row, 1)
MsgBox "Ligne: " & .Row & " / Colonne: " _
& Left(.Address(False, False), Pos - 1)
End With

MP

"Michel Pierron" a écrit dans le message de
news:OqJVARg$
Bonjour azza;

Dim Pos As Byte
With ActiveCell
Pos = InStr(1, .Address(False, False), .Column, 1)
MsgBox "Ligne: " & .Row & " / Colonne: " _
& Left(.Address(False, False), Pos - 1)
End With

MP

"azza" a écrit dans le message de
news:O%23Lidnf$
Bonjour à tous,
Ya til un moyen sous VBA de recuperer l'index de ligne et de colone (
leurs

N°) exple:
Msgbox "Ligne : " & Indexligne & " Colone: " & IndexColone (affiche:
ligne:

33 Colone: D)

Bonne journée et merci.










Avatar
Frédo P
"azza" a écrit dans le message de news:
uyLtqRh$
Salut
merci pour avtivecell.addresse(false,false)
pour avoir B13 au lieu de $B$13
Addresse(0,0) ça marche aussi