[Q] [VBA] Récupérer les coordonnées d'une zone sé lectionnée?
10 réponses
JCF
Bonjour à tous!
Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les
cellules sont adjacentes, donc ça forme un parallélépipède).
Ensuite est lancé ma macro VBA.
Je souhaite que ma macro récupère les numéros de la première et de la
dernière ligne sélectionnées, et les numéros de la première et de la
dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
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
ru-th
Salut
ligne1= ActiveCell.CurrentRegion(1).Row ligneFin = ActiveCell.CurrentRegion(ActiveCell.CurrentRegion.Count).Row remplaces row par column pour les .... colonnes
a+ rural thierry
"JCF" a écrit dans le message de news: BD22E37E.1FB2%
Bonjour à tous! Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les
cellules sont adjacentes, donc ça forme un parallélépipède). Ensuite est lancé ma macro VBA. Je souhaite que ma macro récupère les numéros de la première et de la dernière ligne sélectionnées, et les numéros de la première et de la dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Quelle syntaxe dois-je utiliser pour y parvenir? Merci pour votre aide et à bientôt! Jean-Christophe
Salut
ligne1= ActiveCell.CurrentRegion(1).Row
ligneFin = ActiveCell.CurrentRegion(ActiveCell.CurrentRegion.Count).Row
remplaces row par column pour les .... colonnes
a+
rural thierry
"JCF" <enlevezcecijcf@mac-fan.com> a écrit dans le message de news:
BD22E37E.1FB2%enlevezcecijcf@mac-fan.com...
Bonjour à tous!
Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes
les
cellules sont adjacentes, donc ça forme un parallélépipède).
Ensuite est lancé ma macro VBA.
Je souhaite que ma macro récupère les numéros de la première et de la
dernière ligne sélectionnées, et les numéros de la première et de la
dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
ligne1= ActiveCell.CurrentRegion(1).Row ligneFin = ActiveCell.CurrentRegion(ActiveCell.CurrentRegion.Count).Row remplaces row par column pour les .... colonnes
a+ rural thierry
"JCF" a écrit dans le message de news: BD22E37E.1FB2%
Bonjour à tous! Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les
cellules sont adjacentes, donc ça forme un parallélépipède). Ensuite est lancé ma macro VBA. Je souhaite que ma macro récupère les numéros de la première et de la dernière ligne sélectionnées, et les numéros de la première et de la dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Quelle syntaxe dois-je utiliser pour y parvenir? Merci pour votre aide et à bientôt! Jean-Christophe
Michel Gaboly
Bonjour,
Pas besoin d'Areas. Selection suffit.
Sub NumLignesEtColonnes() Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long With Selection PremLigne = .Row DerLigne = PremLigne + .Rows.Count - 1 PremCol = .Column DerCol = PremCol + .Columns.Count - 1 End With MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol End Sub
Bonjour à tous! Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les cellules sont adjacentes, donc ça forme un parallélépipède). Ensuite est lancé ma macro VBA. Je souhaite que ma macro récupère les numéros de la première et de la dernière ligne sélectionnées, et les numéros de la première et de la dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Quelle syntaxe dois-je utiliser pour y parvenir? Merci pour votre aide et à bientôt! Jean-Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour,
Pas besoin d'Areas. Selection suffit.
Sub NumLignesEtColonnes()
Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long
With Selection
PremLigne = .Row
DerLigne = PremLigne + .Rows.Count - 1
PremCol = .Column
DerCol = PremCol + .Columns.Count - 1
End With
MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol
End Sub
Bonjour à tous!
Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les
cellules sont adjacentes, donc ça forme un parallélépipède).
Ensuite est lancé ma macro VBA.
Je souhaite que ma macro récupère les numéros de la première et de la
dernière ligne sélectionnées, et les numéros de la première et de la
dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Sub NumLignesEtColonnes() Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long With Selection PremLigne = .Row DerLigne = PremLigne + .Rows.Count - 1 PremCol = .Column DerCol = PremCol + .Columns.Count - 1 End With MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol End Sub
Bonjour à tous! Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les cellules sont adjacentes, donc ça forme un parallélépipède). Ensuite est lancé ma macro VBA. Je souhaite que ma macro récupère les numéros de la première et de la dernière ligne sélectionnées, et les numéros de la première et de la dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Quelle syntaxe dois-je utiliser pour y parvenir? Merci pour votre aide et à bientôt! Jean-Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
JCF
"ru-th" m'a répondu:
ligne1= ActiveCell.CurrentRegion(1).Row ligneFin = ActiveCell.CurrentRegion(ActiveCell.CurrentRegion.Count).Row remplaces row par column pour les .... colonnes
Ben ça ne marche que pour ligne1, après, le problème, c'est que ça ne reste pas dans la zone sélectionnée, ça part jusqu'au bord du tableau (la dernière cellule renseignée adjacente) pour les 3 autres coordonnées (c'est ce que faisait aussi mon code...).
J'avais réussi à attraper ces quatre coordonnées sous OpenOffice en lui disant ceci:
ligne1= ActiveCell.CurrentRegion(1).Row
ligneFin = ActiveCell.CurrentRegion(ActiveCell.CurrentRegion.Count).Row
remplaces row par column pour les .... colonnes
Ben ça ne marche que pour ligne1, après, le problème, c'est que ça ne reste
pas dans la zone sélectionnée, ça part jusqu'au bord du tableau (la dernière
cellule renseignée adjacente) pour les 3 autres coordonnées (c'est ce que
faisait aussi mon code...).
J'avais réussi à attraper ces quatre coordonnées sous OpenOffice en lui
disant ceci:
ligne1= ActiveCell.CurrentRegion(1).Row ligneFin = ActiveCell.CurrentRegion(ActiveCell.CurrentRegion.Count).Row remplaces row par column pour les .... colonnes
Ben ça ne marche que pour ligne1, après, le problème, c'est que ça ne reste pas dans la zone sélectionnée, ça part jusqu'au bord du tableau (la dernière cellule renseignée adjacente) pour les 3 autres coordonnées (c'est ce que faisait aussi mon code...).
J'avais réussi à attraper ces quatre coordonnées sous OpenOffice en lui disant ceci:
Sub zaza() With ActiveCell 's'il s'agit de récupérer l'adresse de la plage MsgBox Selection.Address(0, 0) MsgBox "ligDeb: " & .Row MsgBox "ligFin: " & .Row + Selection.Rows.Count - 1 MsgBox "colDeb: " & .Column MsgBox "colFin: " & .Column + Selection.Columns.Count - 1 End With End Sub
ChrisV
"JCF" a écrit dans le message de news:BD22E37E.1FB2%
Bonjour à tous! Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les
cellules sont adjacentes, donc ça forme un parallélépipède). Ensuite est lancé ma macro VBA. Je souhaite que ma macro récupère les numéros de la première et de la dernière ligne sélectionnées, et les numéros de la première et de la dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Quelle syntaxe dois-je utiliser pour y parvenir? Merci pour votre aide et à bientôt! Jean-Christophe
Bonjour JCF,
Ou encore...
Sub zaza()
With ActiveCell
's'il s'agit de récupérer l'adresse de la plage
MsgBox Selection.Address(0, 0)
MsgBox "ligDeb: " & .Row
MsgBox "ligFin: " & .Row + Selection.Rows.Count - 1
MsgBox "colDeb: " & .Column
MsgBox "colFin: " & .Column + Selection.Columns.Count - 1
End With
End Sub
ChrisV
"JCF" <enlevezcecijcf@mac-fan.com> a écrit dans le message de
news:BD22E37E.1FB2%enlevezcecijcf@mac-fan.com...
Bonjour à tous!
Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes
les
cellules sont adjacentes, donc ça forme un parallélépipède).
Ensuite est lancé ma macro VBA.
Je souhaite que ma macro récupère les numéros de la première et de la
dernière ligne sélectionnées, et les numéros de la première et de la
dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Sub zaza() With ActiveCell 's'il s'agit de récupérer l'adresse de la plage MsgBox Selection.Address(0, 0) MsgBox "ligDeb: " & .Row MsgBox "ligFin: " & .Row + Selection.Rows.Count - 1 MsgBox "colDeb: " & .Column MsgBox "colFin: " & .Column + Selection.Columns.Count - 1 End With End Sub
ChrisV
"JCF" a écrit dans le message de news:BD22E37E.1FB2%
Bonjour à tous! Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les
cellules sont adjacentes, donc ça forme un parallélépipède). Ensuite est lancé ma macro VBA. Je souhaite que ma macro récupère les numéros de la première et de la dernière ligne sélectionnées, et les numéros de la première et de la dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Quelle syntaxe dois-je utiliser pour y parvenir? Merci pour votre aide et à bientôt! Jean-Christophe
ChrisV
Bonjour Michel,
Désolé pour le doublon... (ton msg n'apparaissait pas au moment de mon envoi)
ChrisV
"Michel Gaboly" a écrit dans le message de news:
Bonjour,
Pas besoin d'Areas. Selection suffit.
Sub NumLignesEtColonnes() Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long With Selection PremLigne = .Row DerLigne = PremLigne + .Rows.Count - 1 PremCol = .Column DerCol = PremCol + .Columns.Count - 1 End With MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol
End Sub
Bonjour à tous! Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les
cellules sont adjacentes, donc ça forme un parallélépipède). Ensuite est lancé ma macro VBA. Je souhaite que ma macro récupère les numéros de la première et de la dernière ligne sélectionnées, et les numéros de la première et de la dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Quelle syntaxe dois-je utiliser pour y parvenir? Merci pour votre aide et à bientôt! Jean-Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour Michel,
Désolé pour le doublon...
(ton msg n'apparaissait pas au moment de mon envoi)
ChrisV
"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de
news:40FD1E98.47D77816@Suppgaboly.com...
Bonjour,
Pas besoin d'Areas. Selection suffit.
Sub NumLignesEtColonnes()
Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long
With Selection
PremLigne = .Row
DerLigne = PremLigne + .Rows.Count - 1
PremCol = .Column
DerCol = PremCol + .Columns.Count - 1
End With
MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol &
vbNewLine & DerCol
End Sub
Bonjour à tous!
Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes
les
cellules sont adjacentes, donc ça forme un parallélépipède).
Ensuite est lancé ma macro VBA.
Je souhaite que ma macro récupère les numéros de la première et de la
dernière ligne sélectionnées, et les numéros de la première et de la
dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Désolé pour le doublon... (ton msg n'apparaissait pas au moment de mon envoi)
ChrisV
"Michel Gaboly" a écrit dans le message de news:
Bonjour,
Pas besoin d'Areas. Selection suffit.
Sub NumLignesEtColonnes() Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long With Selection PremLigne = .Row DerLigne = PremLigne + .Rows.Count - 1 PremCol = .Column DerCol = PremCol + .Columns.Count - 1 End With MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol
End Sub
Bonjour à tous! Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les
cellules sont adjacentes, donc ça forme un parallélépipède). Ensuite est lancé ma macro VBA. Je souhaite que ma macro récupère les numéros de la première et de la dernière ligne sélectionnées, et les numéros de la première et de la dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Quelle syntaxe dois-je utiliser pour y parvenir? Merci pour votre aide et à bientôt! Jean-Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
JCF
"Michel Gaboly" m'a répondu:
Sub NumLignesEtColonnes() Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long With Selection PremLigne = .Row DerLigne = PremLigne + .Rows.Count - 1 PremCol = .Column DerCol = PremCol + .Columns.Count - 1 End With MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol End Sub
Top moumoute! C'était bien ça la solution! Merci à vous deux pour votre aide! A+ Jean-Christophe
Sub NumLignesEtColonnes()
Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long
With Selection
PremLigne = .Row
DerLigne = PremLigne + .Rows.Count - 1
PremCol = .Column
DerCol = PremCol + .Columns.Count - 1
End With
MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine
& DerCol
End Sub
Top moumoute! C'était bien ça la solution! Merci à vous deux pour votre
aide!
A+
Jean-Christophe
Sub NumLignesEtColonnes() Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long With Selection PremLigne = .Row DerLigne = PremLigne + .Rows.Count - 1 PremCol = .Column DerCol = PremCol + .Columns.Count - 1 End With MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol End Sub
Top moumoute! C'était bien ça la solution! Merci à vous deux pour votre aide! A+ Jean-Christophe
JCF
"ChrisV" m'a répondu:
Ou encore...
Sub zaza() With ActiveCell 's'il s'agit de récupérer l'adresse de la plage MsgBox Selection.Address(0, 0) MsgBox "ligDeb: " & .Row MsgBox "ligFin: " & .Row + Selection.Rows.Count - 1 MsgBox "colDeb: " & .Column MsgBox "colFin: " & .Column + Selection.Columns.Count - 1 End With End Sub
ChrisV
Merci pour ton aide Chris!! A+ JC
"ChrisV" <chrisve@wanadoo.fr> m'a répondu:
Ou encore...
Sub zaza()
With ActiveCell
's'il s'agit de récupérer l'adresse de la plage
MsgBox Selection.Address(0, 0)
MsgBox "ligDeb: " & .Row
MsgBox "ligFin: " & .Row + Selection.Rows.Count - 1
MsgBox "colDeb: " & .Column
MsgBox "colFin: " & .Column + Selection.Columns.Count - 1
End With
End Sub
Sub zaza() With ActiveCell 's'il s'agit de récupérer l'adresse de la plage MsgBox Selection.Address(0, 0) MsgBox "ligDeb: " & .Row MsgBox "ligFin: " & .Row + Selection.Rows.Count - 1 MsgBox "colDeb: " & .Column MsgBox "colFin: " & .Column + Selection.Columns.Count - 1 End With End Sub
ChrisV
Merci pour ton aide Chris!! A+ JC
Michel Gaboly
De rien ;-)))
Les solutions sont souvent + simples quon ne le croit.
"Michel Gaboly" m'a répondu:
Sub NumLignesEtColonnes() Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long With Selection PremLigne = .Row DerLigne = PremLigne + .Rows.Count - 1 PremCol = .Column DerCol = PremCol + .Columns.Count - 1 End With MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol End Sub
Top moumoute! C'était bien ça la solution! Merci à vous deux pour votre aide! A+ Jean-Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
De rien ;-)))
Les solutions sont souvent + simples quon ne le croit.
Sub NumLignesEtColonnes()
Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long
With Selection
PremLigne = .Row
DerLigne = PremLigne + .Rows.Count - 1
PremCol = .Column
DerCol = PremCol + .Columns.Count - 1
End With
MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine
& DerCol
End Sub
Top moumoute! C'était bien ça la solution! Merci à vous deux pour votre
aide!
A+
Jean-Christophe
Les solutions sont souvent + simples quon ne le croit.
"Michel Gaboly" m'a répondu:
Sub NumLignesEtColonnes() Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long With Selection PremLigne = .Row DerLigne = PremLigne + .Rows.Count - 1 PremCol = .Column DerCol = PremCol + .Columns.Count - 1 End With MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol End Sub
Top moumoute! C'était bien ça la solution! Merci à vous deux pour votre aide! A+ Jean-Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Michel Gaboly
Aucun problème ;-)))
Bonjour Michel,
Désolé pour le doublon... (ton msg n'apparaissait pas au moment de mon envoi)
ChrisV
"Michel Gaboly" a écrit dans le message de news:
Bonjour,
Pas besoin d'Areas. Selection suffit.
Sub NumLignesEtColonnes() Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long With Selection PremLigne = .Row DerLigne = PremLigne + .Rows.Count - 1 PremCol = .Column DerCol = PremCol + .Columns.Count - 1 End With MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol
End Sub
Bonjour à tous! Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les
cellules sont adjacentes, donc ça forme un parallélépipède). Ensuite est lancé ma macro VBA. Je souhaite que ma macro récupère les numéros de la première et de la dernière ligne sélectionnées, et les numéros de la première et de la dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Quelle syntaxe dois-je utiliser pour y parvenir? Merci pour votre aide et à bientôt! Jean-Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Aucun problème ;-)))
Bonjour Michel,
Désolé pour le doublon...
(ton msg n'apparaissait pas au moment de mon envoi)
ChrisV
"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de
news:40FD1E98.47D77816@Suppgaboly.com...
Bonjour,
Pas besoin d'Areas. Selection suffit.
Sub NumLignesEtColonnes()
Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long
With Selection
PremLigne = .Row
DerLigne = PremLigne + .Rows.Count - 1
PremCol = .Column
DerCol = PremCol + .Columns.Count - 1
End With
MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol &
vbNewLine & DerCol
End Sub
Bonjour à tous!
Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes
les
cellules sont adjacentes, donc ça forme un parallélépipède).
Ensuite est lancé ma macro VBA.
Je souhaite que ma macro récupère les numéros de la première et de la
dernière ligne sélectionnées, et les numéros de la première et de la
dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Désolé pour le doublon... (ton msg n'apparaissait pas au moment de mon envoi)
ChrisV
"Michel Gaboly" a écrit dans le message de news:
Bonjour,
Pas besoin d'Areas. Selection suffit.
Sub NumLignesEtColonnes() Dim PremLigne As Long, DerLigne As Long, PremCol As Long, DerCol As Long With Selection PremLigne = .Row DerLigne = PremLigne + .Rows.Count - 1 PremCol = .Column DerCol = PremCol + .Columns.Count - 1 End With MsgBox PremLigne & vbNewLine & DerLigne & vbNewLine & PremCol & vbNewLine & DerCol
End Sub
Bonjour à tous! Soit une zone de cellules sélectionnée (une seule zone d'un coup, toutes les
cellules sont adjacentes, donc ça forme un parallélépipède). Ensuite est lancé ma macro VBA. Je souhaite que ma macro récupère les numéros de la première et de la dernière ligne sélectionnées, et les numéros de la première et de la dernière colonne sélectionnées.
J'ai déjà écrit un truc pourri qui marche pas '-/ :
Quelle syntaxe dois-je utiliser pour y parvenir? Merci pour votre aide et à bientôt! Jean-Christophe
-- Cordialement,
Michel Gaboly http://www.gaboly.com
-- Cordialement,
Michel Gaboly http://www.gaboly.com
ru-th
Salut
une variante , pour le fun pour des zones non jointes type b1:b5 c18:c:22
Sub test() rep = Selection.Address(0, 0) LigneD = Range(Mid(rep, 1, Application.Find(":", rep) - 1)).Row ligneF = Range(StrReverse(Mid(StrReverse(rep), 1, Application.Find(":", StrReverse(rep)) - 1))).Row End Sub
a+ rural thierry "JCF" a écrit dans le message de news: BD22EC88.220C%
"ru-th" m'a répondu:
ligne1= ActiveCell.CurrentRegion(1).Row ligneFin = ActiveCell.CurrentRegion(ActiveCell.CurrentRegion.Count).Row remplaces row par column pour les .... colonnes
Ben ça ne marche que pour ligne1, après, le problème, c'est que ça ne reste
pas dans la zone sélectionnée, ça part jusqu'au bord du tableau (la dernière
cellule renseignée adjacente) pour les 3 autres coordonnées (c'est ce que faisait aussi mon code...).
J'avais réussi à attraper ces quatre coordonnées sous OpenOffice en lui disant ceci:
une variante , pour le fun
pour des zones non jointes type b1:b5 c18:c:22
Sub test()
rep = Selection.Address(0, 0)
LigneD = Range(Mid(rep, 1, Application.Find(":", rep) - 1)).Row
ligneF = Range(StrReverse(Mid(StrReverse(rep), 1, Application.Find(":",
StrReverse(rep)) - 1))).Row
End Sub
a+
rural thierry
"JCF" <enlevezcecijcf@mac-fan.com> a écrit dans le message de news:
BD22EC88.220C%enlevezcecijcf@mac-fan.com...
"ru-th" <ailleurs@nowhere> m'a répondu:
ligne1= ActiveCell.CurrentRegion(1).Row
ligneFin = ActiveCell.CurrentRegion(ActiveCell.CurrentRegion.Count).Row
remplaces row par column pour les .... colonnes
Ben ça ne marche que pour ligne1, après, le problème, c'est que ça ne
reste
pas dans la zone sélectionnée, ça part jusqu'au bord du tableau (la
dernière
cellule renseignée adjacente) pour les 3 autres coordonnées (c'est ce que
faisait aussi mon code...).
J'avais réussi à attraper ces quatre coordonnées sous OpenOffice en lui
disant ceci:
une variante , pour le fun pour des zones non jointes type b1:b5 c18:c:22
Sub test() rep = Selection.Address(0, 0) LigneD = Range(Mid(rep, 1, Application.Find(":", rep) - 1)).Row ligneF = Range(StrReverse(Mid(StrReverse(rep), 1, Application.Find(":", StrReverse(rep)) - 1))).Row End Sub
a+ rural thierry "JCF" a écrit dans le message de news: BD22EC88.220C%
"ru-th" m'a répondu:
ligne1= ActiveCell.CurrentRegion(1).Row ligneFin = ActiveCell.CurrentRegion(ActiveCell.CurrentRegion.Count).Row remplaces row par column pour les .... colonnes
Ben ça ne marche que pour ligne1, après, le problème, c'est que ça ne reste
pas dans la zone sélectionnée, ça part jusqu'au bord du tableau (la dernière
cellule renseignée adjacente) pour les 3 autres coordonnées (c'est ce que faisait aussi mon code...).
J'avais réussi à attraper ces quatre coordonnées sous OpenOffice en lui disant ceci:
