Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
D5944F64-1C99-4BC3-B353-D72AAB4F848C@microsoft.com...
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
D5944F64-1C99-4BC3-B353-D72AAB4F848C@microsoft.com...
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
D5944F64-1C99-4BC3-B353-D72AAB4F848C@microsoft.com...
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Les mots Clés qui se retrouvent dans l'aide pour cette procédure :
Range , Areas , Array,
2 boucles imbriquées
une sur une collection d'objets Areas
Une seconde sur les éléments d'un tableau.
L'explication, c'est un début... la suite dans l'aide !
Ce sont des trucs pas simple pour un débutant !!!
'----------------------
Sub Supprimer_lignes()
'Déclaration des variables.
Dim arr(), Rg As Range, Are As Range
Dim Adr As String
'Arr = Un tableau de une dimension
'à partir de la fenêtre VBE(visual basic editor)
'regarde dans l'aide sous Array, tu vas avoir
'beaucoup d'informations sur le sujet.
'Rg est une variable Objet de type Range
'Are est aussi une variable objet de type range
'inscrire le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
'Selection = expression réservé au language VBA
'C'est aussi un terme générique qui désigne
'l'objet sélectionné dans la feuille active.
'Cet objet n'est pas nécessairemennt une plage
'de cellules mais peut être un graphe, Une image
'un textbox...Il faut donc faire un petit test
'pour savoir si Selection représente une plage
'de cellule et ce test c'est :
'If TypeName(Selection) = "Range"
'Si c'est vrai, je récupère la "la plage sélectionnée"
'dans une variable de type "Range"
'Areas : Lorsqu'une sélection n'est pas une sélection
'continue, Areas représente la collection de toutes
'les plages discontinues de la "Selection" .
'Comme Areas est une collection, je peux utiliser
'la boucle For ech are in Rg.areas
If TypeName(Selection) = "Range" Then
Set Rg = Selection
'Boucle sur chacune des plages discontinues
'Pas grave si la plage est continue, il va
'boucler seulement une fois
For Each Are In Rg.Areas
'Récupération de l'adresse de chacune
'des plages
Adr = Are.Address
'Ce type de boucle est possible avec une
'collection d'objets ou un tableau.
'ici c'est un tableau qui contient le nom
'de toutes les feuilles de calcul que tu as
'définies
'Pour chaque élément dans le tableau
For Each elt In arr
'Il n 'est rarement nécessaire de sélectionner
'une feuille pour intervenir dessus.
LaFeuille.Range(adresse).LigneComplete.Supprimer
'(xlup) -> on remontre les lignes vers le haut
Sheets(elt).Range(Adr).EntireRow.Delete (xlUp)
Next
Next
'En sélectionnant une cellule particulière,
'J'enlève la sélection sur la totalité de la plage retenue.
Selection(1, 1).Select
End If
End Sub
'---------------------------
Salutations!
"JEAN" a écrit dans le message de news:
Ton programme, fonctionne bien
peut tu m'explique en detail les lignes de codes stp
merci
"michdenis" wrote:Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Les mots Clés qui se retrouvent dans l'aide pour cette procédure :
Range , Areas , Array,
2 boucles imbriquées
une sur une collection d'objets Areas
Une seconde sur les éléments d'un tableau.
L'explication, c'est un début... la suite dans l'aide !
Ce sont des trucs pas simple pour un débutant !!!
'----------------------
Sub Supprimer_lignes()
'Déclaration des variables.
Dim arr(), Rg As Range, Are As Range
Dim Adr As String
'Arr = Un tableau de une dimension
'à partir de la fenêtre VBE(visual basic editor)
'regarde dans l'aide sous Array, tu vas avoir
'beaucoup d'informations sur le sujet.
'Rg est une variable Objet de type Range
'Are est aussi une variable objet de type range
'inscrire le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
'Selection = expression réservé au language VBA
'C'est aussi un terme générique qui désigne
'l'objet sélectionné dans la feuille active.
'Cet objet n'est pas nécessairemennt une plage
'de cellules mais peut être un graphe, Une image
'un textbox...Il faut donc faire un petit test
'pour savoir si Selection représente une plage
'de cellule et ce test c'est :
'If TypeName(Selection) = "Range"
'Si c'est vrai, je récupère la "la plage sélectionnée"
'dans une variable de type "Range"
'Areas : Lorsqu'une sélection n'est pas une sélection
'continue, Areas représente la collection de toutes
'les plages discontinues de la "Selection" .
'Comme Areas est une collection, je peux utiliser
'la boucle For ech are in Rg.areas
If TypeName(Selection) = "Range" Then
Set Rg = Selection
'Boucle sur chacune des plages discontinues
'Pas grave si la plage est continue, il va
'boucler seulement une fois
For Each Are In Rg.Areas
'Récupération de l'adresse de chacune
'des plages
Adr = Are.Address
'Ce type de boucle est possible avec une
'collection d'objets ou un tableau.
'ici c'est un tableau qui contient le nom
'de toutes les feuilles de calcul que tu as
'définies
'Pour chaque élément dans le tableau
For Each elt In arr
'Il n 'est rarement nécessaire de sélectionner
'une feuille pour intervenir dessus.
LaFeuille.Range(adresse).LigneComplete.Supprimer
'(xlup) -> on remontre les lignes vers le haut
Sheets(elt).Range(Adr).EntireRow.Delete (xlUp)
Next
Next
'En sélectionnant une cellule particulière,
'J'enlève la sélection sur la totalité de la plage retenue.
Selection(1, 1).Select
End If
End Sub
'---------------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
95B21A83-053B-4550-A15E-BC2F172CD927@microsoft.com...
Ton programme, fonctionne bien
peut tu m'explique en detail les lignes de codes stp
merci
"michdenis" wrote:
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
D5944F64-1C99-4BC3-B353-D72AAB4F848C@microsoft.com...
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Les mots Clés qui se retrouvent dans l'aide pour cette procédure :
Range , Areas , Array,
2 boucles imbriquées
une sur une collection d'objets Areas
Une seconde sur les éléments d'un tableau.
L'explication, c'est un début... la suite dans l'aide !
Ce sont des trucs pas simple pour un débutant !!!
'----------------------
Sub Supprimer_lignes()
'Déclaration des variables.
Dim arr(), Rg As Range, Are As Range
Dim Adr As String
'Arr = Un tableau de une dimension
'à partir de la fenêtre VBE(visual basic editor)
'regarde dans l'aide sous Array, tu vas avoir
'beaucoup d'informations sur le sujet.
'Rg est une variable Objet de type Range
'Are est aussi une variable objet de type range
'inscrire le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
'Selection = expression réservé au language VBA
'C'est aussi un terme générique qui désigne
'l'objet sélectionné dans la feuille active.
'Cet objet n'est pas nécessairemennt une plage
'de cellules mais peut être un graphe, Une image
'un textbox...Il faut donc faire un petit test
'pour savoir si Selection représente une plage
'de cellule et ce test c'est :
'If TypeName(Selection) = "Range"
'Si c'est vrai, je récupère la "la plage sélectionnée"
'dans une variable de type "Range"
'Areas : Lorsqu'une sélection n'est pas une sélection
'continue, Areas représente la collection de toutes
'les plages discontinues de la "Selection" .
'Comme Areas est une collection, je peux utiliser
'la boucle For ech are in Rg.areas
If TypeName(Selection) = "Range" Then
Set Rg = Selection
'Boucle sur chacune des plages discontinues
'Pas grave si la plage est continue, il va
'boucler seulement une fois
For Each Are In Rg.Areas
'Récupération de l'adresse de chacune
'des plages
Adr = Are.Address
'Ce type de boucle est possible avec une
'collection d'objets ou un tableau.
'ici c'est un tableau qui contient le nom
'de toutes les feuilles de calcul que tu as
'définies
'Pour chaque élément dans le tableau
For Each elt In arr
'Il n 'est rarement nécessaire de sélectionner
'une feuille pour intervenir dessus.
LaFeuille.Range(adresse).LigneComplete.Supprimer
'(xlup) -> on remontre les lignes vers le haut
Sheets(elt).Range(Adr).EntireRow.Delete (xlUp)
Next
Next
'En sélectionnant une cellule particulière,
'J'enlève la sélection sur la totalité de la plage retenue.
Selection(1, 1).Select
End If
End Sub
'---------------------------
Salutations!
"JEAN" a écrit dans le message de news:
Ton programme, fonctionne bien
peut tu m'explique en detail les lignes de codes stp
merci
"michdenis" wrote:Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Les mots Clés qui se retrouvent dans l'aide pour cette procédure :
Range , Areas , Array,
2 boucles imbriquées
une sur une collection d'objets Areas
Une seconde sur les éléments d'un tableau.
L'explication, c'est un début... la suite dans l'aide !
Ce sont des trucs pas simple pour un débutant !!!
'----------------------
Sub Supprimer_lignes()
'Déclaration des variables.
Dim arr(), Rg As Range, Are As Range
Dim Adr As String
'Arr = Un tableau de une dimension
'à partir de la fenêtre VBE(visual basic editor)
'regarde dans l'aide sous Array, tu vas avoir
'beaucoup d'informations sur le sujet.
'Rg est une variable Objet de type Range
'Are est aussi une variable objet de type range
'inscrire le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
'Selection = expression réservé au language VBA
'C'est aussi un terme générique qui désigne
'l'objet sélectionné dans la feuille active.
'Cet objet n'est pas nécessairemennt une plage
'de cellules mais peut être un graphe, Une image
'un textbox...Il faut donc faire un petit test
'pour savoir si Selection représente une plage
'de cellule et ce test c'est :
'If TypeName(Selection) = "Range"
'Si c'est vrai, je récupère la "la plage sélectionnée"
'dans une variable de type "Range"
'Areas : Lorsqu'une sélection n'est pas une sélection
'continue, Areas représente la collection de toutes
'les plages discontinues de la "Selection" .
'Comme Areas est une collection, je peux utiliser
'la boucle For ech are in Rg.areas
If TypeName(Selection) = "Range" Then
Set Rg = Selection
'Boucle sur chacune des plages discontinues
'Pas grave si la plage est continue, il va
'boucler seulement une fois
For Each Are In Rg.Areas
'Récupération de l'adresse de chacune
'des plages
Adr = Are.Address
'Ce type de boucle est possible avec une
'collection d'objets ou un tableau.
'ici c'est un tableau qui contient le nom
'de toutes les feuilles de calcul que tu as
'définies
'Pour chaque élément dans le tableau
For Each elt In arr
'Il n 'est rarement nécessaire de sélectionner
'une feuille pour intervenir dessus.
LaFeuille.Range(adresse).LigneComplete.Supprimer
'(xlup) -> on remontre les lignes vers le haut
Sheets(elt).Range(Adr).EntireRow.Delete (xlUp)
Next
Next
'En sélectionnant une cellule particulière,
'J'enlève la sélection sur la totalité de la plage retenue.
Selection(1, 1).Select
End If
End Sub
'---------------------------
Salutations!
"JEAN" a écrit dans le message de news:
Ton programme, fonctionne bien
peut tu m'explique en detail les lignes de codes stp
merci
"michdenis" wrote:Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Les mots Clés qui se retrouvent dans l'aide pour cette procédure :
Range , Areas , Array,
2 boucles imbriquées
une sur une collection d'objets Areas
Une seconde sur les éléments d'un tableau.
L'explication, c'est un début... la suite dans l'aide !
Ce sont des trucs pas simple pour un débutant !!!
'----------------------
Sub Supprimer_lignes()
'Déclaration des variables.
Dim arr(), Rg As Range, Are As Range
Dim Adr As String
'Arr = Un tableau de une dimension
'à partir de la fenêtre VBE(visual basic editor)
'regarde dans l'aide sous Array, tu vas avoir
'beaucoup d'informations sur le sujet.
'Rg est une variable Objet de type Range
'Are est aussi une variable objet de type range
'inscrire le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
'Selection = expression réservé au language VBA
'C'est aussi un terme générique qui désigne
'l'objet sélectionné dans la feuille active.
'Cet objet n'est pas nécessairemennt une plage
'de cellules mais peut être un graphe, Une image
'un textbox...Il faut donc faire un petit test
'pour savoir si Selection représente une plage
'de cellule et ce test c'est :
'If TypeName(Selection) = "Range"
'Si c'est vrai, je récupère la "la plage sélectionnée"
'dans une variable de type "Range"
'Areas : Lorsqu'une sélection n'est pas une sélection
'continue, Areas représente la collection de toutes
'les plages discontinues de la "Selection" .
'Comme Areas est une collection, je peux utiliser
'la boucle For ech are in Rg.areas
If TypeName(Selection) = "Range" Then
Set Rg = Selection
'Boucle sur chacune des plages discontinues
'Pas grave si la plage est continue, il va
'boucler seulement une fois
For Each Are In Rg.Areas
'Récupération de l'adresse de chacune
'des plages
Adr = Are.Address
'Ce type de boucle est possible avec une
'collection d'objets ou un tableau.
'ici c'est un tableau qui contient le nom
'de toutes les feuilles de calcul que tu as
'définies
'Pour chaque élément dans le tableau
For Each elt In arr
'Il n 'est rarement nécessaire de sélectionner
'une feuille pour intervenir dessus.
LaFeuille.Range(adresse).LigneComplete.Supprimer
'(xlup) -> on remontre les lignes vers le haut
Sheets(elt).Range(Adr).EntireRow.Delete (xlUp)
Next
Next
'En sélectionnant une cellule particulière,
'J'enlève la sélection sur la totalité de la plage retenue.
Selection(1, 1).Select
End If
End Sub
'---------------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
95B21A83-053B-4550-A15E-BC2F172CD927@microsoft.com...
Ton programme, fonctionne bien
peut tu m'explique en detail les lignes de codes stp
merci
"michdenis" wrote:
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
D5944F64-1C99-4BC3-B353-D72AAB4F848C@microsoft.com...
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Les mots Clés qui se retrouvent dans l'aide pour cette procédure :
Range , Areas , Array,
2 boucles imbriquées
une sur une collection d'objets Areas
Une seconde sur les éléments d'un tableau.
L'explication, c'est un début... la suite dans l'aide !
Ce sont des trucs pas simple pour un débutant !!!
'----------------------
Sub Supprimer_lignes()
'Déclaration des variables.
Dim arr(), Rg As Range, Are As Range
Dim Adr As String
'Arr = Un tableau de une dimension
'à partir de la fenêtre VBE(visual basic editor)
'regarde dans l'aide sous Array, tu vas avoir
'beaucoup d'informations sur le sujet.
'Rg est une variable Objet de type Range
'Are est aussi une variable objet de type range
'inscrire le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
'Selection = expression réservé au language VBA
'C'est aussi un terme générique qui désigne
'l'objet sélectionné dans la feuille active.
'Cet objet n'est pas nécessairemennt une plage
'de cellules mais peut être un graphe, Une image
'un textbox...Il faut donc faire un petit test
'pour savoir si Selection représente une plage
'de cellule et ce test c'est :
'If TypeName(Selection) = "Range"
'Si c'est vrai, je récupère la "la plage sélectionnée"
'dans une variable de type "Range"
'Areas : Lorsqu'une sélection n'est pas une sélection
'continue, Areas représente la collection de toutes
'les plages discontinues de la "Selection" .
'Comme Areas est une collection, je peux utiliser
'la boucle For ech are in Rg.areas
If TypeName(Selection) = "Range" Then
Set Rg = Selection
'Boucle sur chacune des plages discontinues
'Pas grave si la plage est continue, il va
'boucler seulement une fois
For Each Are In Rg.Areas
'Récupération de l'adresse de chacune
'des plages
Adr = Are.Address
'Ce type de boucle est possible avec une
'collection d'objets ou un tableau.
'ici c'est un tableau qui contient le nom
'de toutes les feuilles de calcul que tu as
'définies
'Pour chaque élément dans le tableau
For Each elt In arr
'Il n 'est rarement nécessaire de sélectionner
'une feuille pour intervenir dessus.
LaFeuille.Range(adresse).LigneComplete.Supprimer
'(xlup) -> on remontre les lignes vers le haut
Sheets(elt).Range(Adr).EntireRow.Delete (xlUp)
Next
Next
'En sélectionnant une cellule particulière,
'J'enlève la sélection sur la totalité de la plage retenue.
Selection(1, 1).Select
End If
End Sub
'---------------------------
Salutations!
"JEAN" a écrit dans le message de news:
Ton programme, fonctionne bien
peut tu m'explique en detail les lignes de codes stp
merci
"michdenis" wrote:Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
D5944F64-1C99-4BC3-B353-D72AAB4F848C@microsoft.com...
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Ceci est mon dernier message, et c'est cette version de la macro qui est la bonne macro à retenir ... en faisant la
correction lors de la macro 2, j'ai effacé la dernère section de celle-ci... désolé.
'------------------------------
Sub Supprimer_lignes()
'Déclaration des variables.
Dim arr(), Rg As Range, Are As Range
Dim Adr As String, Rg1 As Range
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
If Rg1 Is Nothing Then
Set Rg1 = Are.EntireRow
Else
Set Rg1 = Union(Rg1, Are.EntireRow)
End If
Next
If Not Rg1 Is Nothing Then
Adr = Rg1.Address
For Each elt In arr
Sheets(elt).Range(Adr).Delete
Next
End If
Selection(1, 1).Select
End If
Set Are = Nothing: Set Rg1 = Nothing: Set Rg = Nothing
End Sub
'------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
merci michdenis, j'ai essayé ton programme, quand j'appuie sur le bouton de
commande,ca met un peu de temps à s'executer, présence de la sablière
c'est du a quoi?
merciBonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Ceci est mon dernier message, et c'est cette version de la macro qui est la bonne macro à retenir ... en faisant la
correction lors de la macro 2, j'ai effacé la dernère section de celle-ci... désolé.
'------------------------------
Sub Supprimer_lignes()
'Déclaration des variables.
Dim arr(), Rg As Range, Are As Range
Dim Adr As String, Rg1 As Range
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
If Rg1 Is Nothing Then
Set Rg1 = Are.EntireRow
Else
Set Rg1 = Union(Rg1, Are.EntireRow)
End If
Next
If Not Rg1 Is Nothing Then
Adr = Rg1.Address
For Each elt In arr
Sheets(elt).Range(Adr).Delete
Next
End If
Selection(1, 1).Select
End If
Set Are = Nothing: Set Rg1 = Nothing: Set Rg = Nothing
End Sub
'------------------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
DD1CE6D3-EC18-4B30-8663-E635AC7621E3@microsoft.com...
merci michdenis, j'ai essayé ton programme, quand j'appuie sur le bouton de
commande,ca met un peu de temps à s'executer, présence de la sablière
c'est du a quoi?
merci
Bonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
D5944F64-1C99-4BC3-B353-D72AAB4F848C@microsoft.com...
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.
bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
Bonjour Jean,
Ceci est mon dernier message, et c'est cette version de la macro qui est la bonne macro à retenir ... en faisant la
correction lors de la macro 2, j'ai effacé la dernère section de celle-ci... désolé.
'------------------------------
Sub Supprimer_lignes()
'Déclaration des variables.
Dim arr(), Rg As Range, Are As Range
Dim Adr As String, Rg1 As Range
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
If Rg1 Is Nothing Then
Set Rg1 = Are.EntireRow
Else
Set Rg1 = Union(Rg1, Are.EntireRow)
End If
Next
If Not Rg1 Is Nothing Then
Adr = Rg1.Address
For Each elt In arr
Sheets(elt).Range(Adr).Delete
Next
End If
Selection(1, 1).Select
End If
Set Are = Nothing: Set Rg1 = Nothing: Set Rg = Nothing
End Sub
'------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
merci michdenis, j'ai essayé ton programme, quand j'appuie sur le bouton de
commande,ca met un peu de temps à s'executer, présence de la sablière
c'est du a quoi?
merciBonjour Jean,
Voici une macro qui va supprimer (et non pas effacer) les lignes entières des feuilles que tu vas indiquer dans la
macro.
Pour ce faire, tu n'as qu'à attacher cette macro à un bouton et sélectionner au moins une cellule par ligne que tu
désires supprimer.
'---------------------------------
Sub Supprimer_lignes()
Dim arr(), Rg As Range, Are As Range
'INSCRIRE le nom des feuilles désirées
'à la place de Feuil1 et Feuil2
arr = Array("Feuil1", "Feuil2")
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each Are In Rg.Areas
adr = Are.Address
For Each elt In arr
Sheets(elt).Range(adr).EntireRow.Delete (xlUp)
Next
Next
Selection(1, 1).Select
End If
End Sub
'---------------------------------
P.S. La formule que t'a donné Isabelle, c'était pour empêcher d'avoir #Ref! dans une cellule en feuil2 lorsque tu
supprimes la ligne de la feuille 1
Salutations !
"JEAN" a écrit dans le message de news:
je voudrai laisser tel quel car j'ai un classeur qui a déja ccette
presentation,
je souhaite juste ajouter un bouton de commandes dans la feuille
1
et quand je selectionne,sur ma feuille 1 les lignes à supprimer j'apuie sur
le bouton de commande de la feuille 1 et il me supprimme egalement les ligne
de la feuille 2
par exemple si je selectionne ligne 13 14 15 16 de la feuille 1
et j'appuie sur le bouton de commande, il me supprime alors en meme temps
les lignes 13 14 15 16 de la feuille 2
merci de votre aide.bonjour Jean,
remlace la formule
þuil1!A1
par
=INDIRECT("Feuil1!"&ADRESSE(LIGNE();COLONNE()))
et crecopie la vers le bas
isabelle
Bonjour,
j'ai un petit soucis:
j'ai deux feuilles dans mon classeur excel,
feuille 1 jai A1=1;A2=2;A3=3;A4=5
dans mon feuilet 2 j'ai directement la liaison c'est a dire
A1þuil1!A1
A2þuil1!A2
A3þuil1!A3
A4þuil1!A4
mon probleme est que quand je supprime une ligne dans feuille 1, sur la
feuille 2 cela me cree un #REF!
J'ai essayé des codes mais ca bug, je voudrai avoir au fait un bouton de
commande dans la feuille 1, quand je selectionnerai les lignes à supprimer de
la feuille 1 et j'appuierai sur ce bouton de commandes, je voudrai que les
meme lignes que je supprime à la feuille 1 soit supprimé aussi à la feuille2.
savez vous?
merci de votre aide
