Effancement de ligne

Le
Gouap
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule ou une
suite de cellule comme A1:A12 par exemple, effacer un ensemble des cellules
correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en VB, je ne
trouve pas !
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JPMonnier
Le #20124711
Bonjour,
une fois ta sélection faite
en VB tu écrit cette commande dans une Sub
Sub Supprime()
Selection.EntireRow.Delete
End Sub
il faut créer un bouton sur ta feuille de calcule pour lancer cette
procédure
--
Cordialement

"Gouap" news:
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule ou
une suite de cellule comme A1:A12 par exemple, effacer un ensemble des
cellules correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en VB, je
ne trouve pas !



Gouap
Le #20124961
Ta commande supprime toute la ligne or je cherche à connaitre la dernière
cellule sélectionnée pour pouvoir construire une commande du type Range(A
"1ere cellule sélectionnée" : colonne J "dernière cellule sélectionnée")

"JPMonnier" %
Bonjour,
une fois ta sélection faite
en VB tu écrit cette commande dans une Sub
Sub Supprime()
Selection.EntireRow.Delete
End Sub
il faut créer un bouton sur ta feuille de calcule pour lancer cette
procédure
--
Cordialement

"Gouap" news:
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule ou
une suite de cellule comme A1:A12 par exemple, effacer un ensemble des
cellules correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en VB, je
ne trouve pas !






JPMonnier
Le #20125281
"Gouap" news:
Ta commande supprime toute la ligne or je cherche à connaitre la dernière
cellule sélectionnée pour pouvoir construire une commande du type Range(A
"1ere cellule sélectionnée" : colonne J "dernière cellule sélectionnée")

"JPMonnier" %
Bonjour,
une fois ta sélection faite
en VB tu écrit cette commande dans une Sub
Sub Supprime()
Selection.EntireRow.Delete
End Sub
il faut créer un bouton sur ta feuille de calcule pour lancer cette
procédure
--
Cordialement

"Gouap" news:
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule ou
une suite de cellule comme A1:A12 par exemple, effacer un ensemble des
cellules correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en VB,
je ne trouve pas !










JPMonnier
Le #20125271
Je ne vois pas très bien ce que tu veux faire, mais après ta sélection
faite,
si tu fais
MsgBox Selection.Address
cela te renvoie la 1ère et la dernière cellule de ta sélection
--
Cordialement

"Gouap" news:
Ta commande supprime toute la ligne or je cherche à connaitre la dernière
cellule sélectionnée pour pouvoir construire une commande du type Range(A
"1ere cellule sélectionnée" : colonne J "dernière cellule sélectionnée")

"JPMonnier" %
Bonjour,
une fois ta sélection faite
en VB tu écrit cette commande dans une Sub
Sub Supprime()
Selection.EntireRow.Delete
End Sub
il faut créer un bouton sur ta feuille de calcule pour lancer cette
procédure
--
Cordialement

"Gouap" news:
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule ou
une suite de cellule comme A1:A12 par exemple, effacer un ensemble des
cellules correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en VB,
je ne trouve pas !










Gouap
Le #20126471
Ton idée m'a permis d'écrire les lignes suivantes :

Ligne_de_Départ = Right(Left(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Left(Selection.Address, InStr(Selection.Address, ":") -
1), "$") - 1)

Ligne_de_Fin = Right(Right(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Right(Selection.Address, InStr(Selection.Address, ":") -
1), "$") - 1)

Range("h" & Ligne_de_Départ & ":ac" &
Ligne_de_Fin).SpecialCells(xlCellTypeConstants).ClearContents

C'est surement perfectible, mais au moins ça fonctionne.


"JPMonnier"
Je ne vois pas très bien ce que tu veux faire, mais après ta sélection
faite,
si tu fais
MsgBox Selection.Address
cela te renvoie la 1ère et la dernière cellule de ta sélection
--
Cordialement

"Gouap" news:
Ta commande supprime toute la ligne or je cherche à connaitre la dernière
cellule sélectionnée pour pouvoir construire une commande du type Range(A
"1ere cellule sélectionnée" : colonne J "dernière cellule sélectionnée")

"JPMonnier" %
Bonjour,
une fois ta sélection faite
en VB tu écrit cette commande dans une Sub
Sub Supprime()
Selection.EntireRow.Delete
End Sub
il faut créer un bouton sur ta feuille de calcule pour lancer cette
procédure
--
Cordialement

"Gouap" news:
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule ou
une suite de cellule comme A1:A12 par exemple, effacer un ensemble des
cellules correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en VB,
je ne trouve pas !













michdenis
Le #20126541
Bonjour Gouap,

Il y a aussi ceci :

'-------------------------
Sub test()

If TypeName(Selection) = "Range" Then
Ligne_de_Départ = Selection(1).Row
Ligne_de_Fin = Selection(Selection.Rows.Count).Row
End If
Range("h" & Ligne_de_Départ & ":ac" & Ligne_de_Fin). _
SpecialCells(2, 23).ClearContents
End Sub
'-------------------------



"Gouap"
Ton idée m'a permis d'écrire les lignes suivantes :

Ligne_de_Départ = Right(Left(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Left(Selection.Address, InStr(Selection.Address, ":") -
1), "$") - 1)

Ligne_de_Fin = Right(Right(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Right(Selection.Address, InStr(Selection.Address, ":") -
1), "$") - 1)

Range("h" & Ligne_de_Départ & ":ac" &
Ligne_de_Fin).SpecialCells(xlCellTypeConstants).ClearContents

C'est surement perfectible, mais au moins ça fonctionne.


"JPMonnier"
Je ne vois pas très bien ce que tu veux faire, mais après ta sélection
faite,
si tu fais
MsgBox Selection.Address
cela te renvoie la 1ère et la dernière cellule de ta sélection
--
Cordialement

"Gouap" news:
Ta commande supprime toute la ligne or je cherche à connaitre la dernière
cellule sélectionnée pour pouvoir construire une commande du type Range(A
"1ere cellule sélectionnée" : colonne J "dernière cellule sélectionnée")

"JPMonnier" %
Bonjour,
une fois ta sélection faite
en VB tu écrit cette commande dans une Sub
Sub Supprime()
Selection.EntireRow.Delete
End Sub
il faut créer un bouton sur ta feuille de calcule pour lancer cette
procédure
--
Cordialement

"Gouap" news:
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule ou
une suite de cellule comme A1:A12 par exemple, effacer un ensemble des
cellules correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en VB,
je ne trouve pas !













JPMonnier
Le #20126531
Je pense que les grands du forum pourront perfectionner ton idée !!
A ton service
--
Cordialement


"Gouap" news:
Ton idée m'a permis d'écrire les lignes suivantes :

Ligne_de_Départ = Right(Left(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Left(Selection.Address, InStr(Selection.Address,
":") - 1), "$") - 1)

Ligne_de_Fin = Right(Right(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Right(Selection.Address, InStr(Selection.Address,
":") - 1), "$") - 1)

Range("h" & Ligne_de_Départ & ":ac" &
Ligne_de_Fin).SpecialCells(xlCellTypeConstants).ClearContents

C'est surement perfectible, mais au moins ça fonctionne.


"JPMonnier"
Je ne vois pas très bien ce que tu veux faire, mais après ta sélection
faite,
si tu fais
MsgBox Selection.Address
cela te renvoie la 1ère et la dernière cellule de ta sélection
--
Cordialement

"Gouap" news:
Ta commande supprime toute la ligne or je cherche à connaitre la
dernière cellule sélectionnée pour pouvoir construire une commande du
type Range(A "1ere cellule sélectionnée" : colonne J "dernière cellule
sélectionnée")

"JPMonnier" %
Bonjour,
une fois ta sélection faite
en VB tu écrit cette commande dans une Sub
Sub Supprime()
Selection.EntireRow.Delete
End Sub
il faut créer un bouton sur ta feuille de calcule pour lancer cette
procédure
--
Cordialement

"Gouap" news:
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule
ou une suite de cellule comme A1:A12 par exemple, effacer un ensemble
des cellules correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en VB,
je ne trouve pas !

















Gouap
Le #20126521
Je me doutais bien que mon code était perfectible.
Merci pour la correction.

"michdenis" %
Bonjour Gouap,

Il y a aussi ceci :

'-------------------------
Sub test()

If TypeName(Selection) = "Range" Then
Ligne_de_Départ = Selection(1).Row
Ligne_de_Fin = Selection(Selection.Rows.Count).Row
End If
Range("h" & Ligne_de_Départ & ":ac" & Ligne_de_Fin). _
SpecialCells(2, 23).ClearContents
End Sub
'-------------------------



"Gouap"
Ton idée m'a permis d'écrire les lignes suivantes :

Ligne_de_Départ = Right(Left(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Left(Selection.Address, InStr(Selection.Address,
":") -
1), "$") - 1)

Ligne_de_Fin = Right(Right(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Right(Selection.Address, InStr(Selection.Address,
":") -
1), "$") - 1)

Range("h" & Ligne_de_Départ & ":ac" &
Ligne_de_Fin).SpecialCells(xlCellTypeConstants).ClearContents

C'est surement perfectible, mais au moins ça fonctionne.


"JPMonnier"
Je ne vois pas très bien ce que tu veux faire, mais après ta sélection
faite,
si tu fais
MsgBox Selection.Address
cela te renvoie la 1ère et la dernière cellule de ta sélection
--
Cordialement

"Gouap" news:
Ta commande supprime toute la ligne or je cherche à connaitre la
dernière
cellule sélectionnée pour pouvoir construire une commande du type
Range(A
"1ere cellule sélectionnée" : colonne J "dernière cellule sélectionnée")

"JPMonnier" %
Bonjour,
une fois ta sélection faite
en VB tu écrit cette commande dans une Sub
Sub Supprime()
Selection.EntireRow.Delete
End Sub
il faut créer un bouton sur ta feuille de calcule pour lancer cette
procédure
--
Cordialement

"Gouap" news:
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule
ou
une suite de cellule comme A1:A12 par exemple, effacer un ensemble des
cellules correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en VB,
je ne trouve pas !
















michdenis
Le #20126701
Je souligne qu'il est de bon aloi d'utiliser
la ligne de code " On Error Resume Next" devant la
ligne de code utilisant "SpecialCell" car cette méthode
génère une erreur lorsqu'il n'y a pas de cellules
correspondantes.



"michdenis" #
Bonjour Gouap,

Il y a aussi ceci :

'-------------------------
Sub test()

If TypeName(Selection) = "Range" Then
Ligne_de_Départ = Selection(1).Row
Ligne_de_Fin = Selection(Selection.Rows.Count).Row
End If
Range("h" & Ligne_de_Départ & ":ac" & Ligne_de_Fin). _
SpecialCells(2, 23).ClearContents
End Sub
'-------------------------



"Gouap"
Ton idée m'a permis d'écrire les lignes suivantes :

Ligne_de_Départ = Right(Left(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Left(Selection.Address, InStr(Selection.Address, ":") -
1), "$") - 1)

Ligne_de_Fin = Right(Right(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Right(Selection.Address, InStr(Selection.Address, ":") -
1), "$") - 1)

Range("h" & Ligne_de_Départ & ":ac" &
Ligne_de_Fin).SpecialCells(xlCellTypeConstants).ClearContents

C'est surement perfectible, mais au moins ça fonctionne.


"JPMonnier"
Je ne vois pas très bien ce que tu veux faire, mais après ta sélection
faite,
si tu fais
MsgBox Selection.Address
cela te renvoie la 1ère et la dernière cellule de ta sélection
--
Cordialement

"Gouap" news:
Ta commande supprime toute la ligne or je cherche à connaitre la dernière
cellule sélectionnée pour pouvoir construire une commande du type Range(A
"1ere cellule sélectionnée" : colonne J "dernière cellule sélectionnée")

"JPMonnier" %
Bonjour,
une fois ta sélection faite
en VB tu écrit cette commande dans une Sub
Sub Supprime()
Selection.EntireRow.Delete
End Sub
il faut créer un bouton sur ta feuille de calcule pour lancer cette
procédure
--
Cordialement

"Gouap" news:
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule ou
une suite de cellule comme A1:A12 par exemple, effacer un ensemble des
cellules correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en VB,
je ne trouve pas !













JPMonnier
Le #20126691
Je pensais bien que c'était perfectible
micheldenis fait parti des grands!!
--
Cordialement

"Gouap" news:
Je me doutais bien que mon code était perfectible.
Merci pour la correction.

"michdenis" %
Bonjour Gouap,

Il y a aussi ceci :

'-------------------------
Sub test()

If TypeName(Selection) = "Range" Then
Ligne_de_Départ = Selection(1).Row
Ligne_de_Fin = Selection(Selection.Rows.Count).Row
End If
Range("h" & Ligne_de_Départ & ":ac" & Ligne_de_Fin). _
SpecialCells(2, 23).ClearContents
End Sub
'-------------------------



"Gouap"
Ton idée m'a permis d'écrire les lignes suivantes :

Ligne_de_Départ = Right(Left(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Left(Selection.Address, InStr(Selection.Address,
":") -
1), "$") - 1)

Ligne_de_Fin = Right(Right(Selection.Address, InStr(Selection.Address,
":") - 1), InStrRev(Right(Selection.Address, InStr(Selection.Address,
":") -
1), "$") - 1)

Range("h" & Ligne_de_Départ & ":ac" &
Ligne_de_Fin).SpecialCells(xlCellTypeConstants).ClearContents

C'est surement perfectible, mais au moins ça fonctionne.


"JPMonnier"
Je ne vois pas très bien ce que tu veux faire, mais après ta sélection
faite,
si tu fais
MsgBox Selection.Address
cela te renvoie la 1ère et la dernière cellule de ta sélection
--
Cordialement

"Gouap" news:
Ta commande supprime toute la ligne or je cherche à connaitre la
dernière
cellule sélectionnée pour pouvoir construire une commande du type
Range(A
"1ere cellule sélectionnée" : colonne J "dernière cellule
sélectionnée")

"JPMonnier" news:
%
Bonjour,
une fois ta sélection faite
en VB tu écrit cette commande dans une Sub
Sub Supprime()
Selection.EntireRow.Delete
End Sub
il faut créer un bouton sur ta feuille de calcule pour lancer cette
procédure
--
Cordialement

"Gouap" news:
Bonjour,

Je cherche depuis un moment comment je pourrais effacer les lignes
correspondant aux cellules sélectionner dans une seule colonne.
J'ai veux pouvoir quand je sélectionne dans la colonne A une cellule
ou
une suite de cellule comme A1:A12 par exemple, effacer un ensemble
des
cellules correspondant aux les lignes sélectionnée.
Ce qui donnerait pour mon exemple Range (A1:J:12).Value = ""

je me doute que ce n'est pas bien difficile, mais vu mon niveau en
VB,
je ne trouve pas !




















Publicité
Poster une réponse
Anonyme